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Sehr geehrter Leser! 


Herzlich willkommen im Kreis der Leser unseres Commodore 64/128-Nachschlage- 
werkes, das nun in 2., erweiterter und aktualisierter Auflage mit zwei Grund- 
werksdisketten erschienen ist. 


Ihr Vorteil: Sie verfügen jetzt über einen vielseitigen Ratgeber, wenn es um 
Fragen des Einsatzes Ihres Commodores geht. 


Das Werk bietet Ihnen: 


- hundertprozentig lauffähige Programme, z.B. das menügesteuerte Tabellen- 
kalkulationsprogramm "Aliplan" 

- unentbehrliche Utilities, Tricks und Tips für erfolgreiches Programmieren 

- Kurse und Anwendungen für Grafik und Sound 

- rechnerbezogene Programmierkurse für höhere Programmiersprachen und Assembler 

-— genaue Beschreibung von Hard- und Software Ihres Commodores 

- komplette Bauanleitungen, u.a. für einen parallelen IEC- Anschluß 

- Know-how für spezielle Einsatzbereiche, z.B. zur Modellbahnsteuerung 


Nehmen Sie das Werk in die Hand, blättern Sie es durch und überzeugen Sie sich 
selbst. 


Dieses Werk veraltet nicht 


Aus eigener Erfahrung wissen Sie selbst am besten, welche Vielzahl von Möglich- 
keiten Ihnen Ihr Commodore bietet. Hinzu kommen die Neuerungen, die laufend die 
"Commodore-Welt" erweitern, Programmiersprachen, zusätzliche Peripherie usw. 


Wir haben uns daher entschlossen, speziell für dieses Werk einen Erweiterungs- 
service anzubieten. Er versorgt Sie alle 2 - 3 Monate zuverlässig mit detail- 
lierten Hardwarebeschreibungen, neuen Programmen und Routinen, praktischen Pro- 
grammier- und Anwendungskursen. 


Praxishandbuch + Disketten 





Zusammen mit dem Nachschlagewerk erhalten Sie einen kompletten 6510-Assembler, 
das menügesteuerte Tabellenkalkulationsprogramm "Aliplan", die Mausprogrammie- 
rung und das Spiel "Alpha V". Assembler, Disassembler und Monitor auf Diskette 
ermöglichen Ihnen sofort das Programmieren in Assembler. * 


Unser Diskettenservice bietet Ihnen darüber hinaus die Möglichkeit, auch die 
Programme der Erweiterungen zu beziehen. 


Vorschau auf die nächsten Erweiterungen 


Es sind Beiträge zu folgenden Themenbereichen vorgesehen: 


- Hardwarebeschreibungen und weitere Bauanleitungen z.B. zur RS 232-Schnitt- 
stelle oder dem Thema "Sprachausgabe" mit dem Commodore 

- Tips, Tricks und Utilities für Einsteiger und Profis z.B. zur Beschleunigung 
der Floppy, Erweiterungen des Betriebssystem, Manipulation von Farben und 
Zeichensätzen 

- Grafik und Sound: Kurse und Beispiele für 3D-Effekte und Raytracing 

- Musterlösungen für den Bereich Wirtschaft und Verwaltung z.B. Lagerverwaltung 
und Kassenbuchführung 


- Spezielle Einsatzbereiche, wie z.B. DFÜ (alles über Mailboxen) oder Drucken 
mit BTX 


Teilen Sie uns bitte Ihre Wünsche mit: 


Wir wollen dieses Werk auch in Zukunft genau auf Ihre Bedürfnisse zuschneiden. 
Deshalb an dieser Stelle die Aufforderung an Sie, unseren engagierten Leser: 
Bitte schreiben Sie uns, welche Themen Sie besonders interessieren und zu 
welchen Bereichen Sie gern Programme haben möchten. 

Unsere Aufgabe wird es sein, Ihre Wünsche so schnell wie möglich zu erfüllen. 


Wir bedanken uns schon vorab für die Zusammenarbeit. 
Viel Erfolg mit Ihrem neuen Handbuch wünscht Ihnen 
Huska Will: j 


Monika Köhler 
Produktmanagerin für Informatik 


Neue Möglichkeiten mitdem 
Commodore 64 (128) 


Neue Möglichkeiten mit dem Commodore 64/128 wurde zu 
werbezwecken für das Zeutschriftenforum von c16chris gescant. 


Programmierkurse für Basic, Pascal, Forth, Logo, Assembler; 
Neue Musterprogramme und Hilfsroutinen für Wirtschaft, 
Technik, Graphik und Sound; 
Programmiierhilfen und Praxistips; 

Detaillierte Systembeschreibungen; 
Bauanleitungen und Platinenfolien und 
Programme für Erweiterungen und Zubehör 


Herausgegeben von 
Hans Lorenz Schneider 
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Teil 2: Hardware-Beschreibung 


2/1 
Äußerer Aufbau 





Im Rahmen der Hardwarebeschreibung wollen wir als erstes das Thema behandeln, 
was jedem quasi sofort ins Auge sticht, der äußere Aufbau. Neben der Tastatur wer- 
den in diesem Kapitel die einzelnen Steckanschlüsse sowohl für den C 64 als auch 
den C 128 PC beschrieben. 


2/1.1 
Äußerer Aufbau des C 64 





Da das Werk sich größenteils mit dem C 64 befaßt, wollen wir ihn auch zuerst im 
Rahmen des äußeren Aufbaues besprechen und mit den Anschlüssen beginnen. 


2/1.1.1 


Anschlüsse 





Die vielen Anschlußmöglichkeiten von Peripherie- und Zusatzgeräten machen einen 
entscheidenden Vorteil des C 64 aus. Neben dem obligatorischen Netzanschluß sind 
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zunächst zwei wichtige Anschlüsse zu nennen: Die Control-Ports und der IEC-Bus. 
Die Control-Ports erlauben den Anschluß von Joysticks, Paddels oder auch eines 
Light-Pen sowie neuerdings auch „Mäuse“. Da der C 64 hauptsächlich als Spielgerät 
benutzt wird, kommt dieser in Kapitel 2/1.1.1.2 beschriebene Anschlußmöglichkeit 
eine sehr wichtige Funktion zu. 


Der /ZEC-Bus wird benötigt um die Peripheriegeräte wie z.B. Floppy und Drucker, 
anzuschließen. Dabei weisen die Peripheriegeräte je zwei solcher gleichartigen An- 
schlüsse auf, so daß die Verbindung von Computer zum ersten Peripheriegerät und 
von dort zum zweiten und von dort zu einem weiteren Peripheriegerät gezogen wer- 
den kann. Mit dem IEC-Bus werden wir uns in Kapitel 2/1.1.1.5 beschäftigen. 


Ein weiterer wichtiger Anschluß ist der Expansion-Port, der hauptsächlich für 
Standard-Software verwendet wird, um sich das Laden von Diskette zu ersparen. 
Am Expansion-Port angeschlossene Module betrachtet der Rechner in gewisser 
Weise als integriert und führt in der Regel gleich nach dem Einschalten des Rechners 
ein dort befindliches Programm aus. Daß der Expansion-Port jedoch nicht nur für 
käufliche Module nutzbar ist, wollen wir im Rahmen dieses Buches aufzeigen, in- 
dem wir z.B. unseren Assembler auf ein solches Modul auslagern und auch eine 
Betriebssystem-Erweiterung soll dort plaziert werden. 


Für Anwender, die mit ihrem C 64 Meßvorgänge erfassen wollen, aber auch für 
Bastler mit eigenen Hardware-Ergänzungen ist der User-Port von besonderer Be- 
deutung. Neben den in Kapitel 2/1.1.1.3 vorgestellten allgemeinen Merkmalen dieser 
Anschlußmöglichkeit werden wir ihm im Rahmen dieses Buches noch an einigen 
Stellen begegnen. 


Der Cassetten-Port ist nur für diejenigen Betreiber eines C 64 interessant, die (noch) 
mit einem Kassettenrekorder arbeiten. Die Aufstellung der Anschlüsse wird vervoll- 
ständigt durch die Beschreibung des Antennenanschlusses und die Verbindungen 
zum Monitor. 
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2/1.1.1.2 


Control-Ports 





Die beiden Control-Ports 1 und 2 dienen hauptsächlich zum Anschluß von Joy- 
sticks, Paddles oder eines Light-Pen. Aber auch andere Anwendungen sind denkbar 
(z.B. Maus), wobei der User-Port jedoch wesentlich einfacher zu handhaben ist. 


Der neunpolige Anschluß entspricht der Quasi-Norm, die die Firma Atari zuerst für 
ihre Joysticks benutzte. Die Kontakte sind in zwei Reihen angeordnet, wobei der 
Stecker die Form eines abgerundeten Trapezes aufweist: 


Bild 2/1.1.1.2 
Steckanschluß Control-Ports 1 und 2 














Bei den Paddles (zwei Paddles an einem Anschlußstecker) ist zu beachten, daß 
jeweils nur ein Paddlepaar angesteuert werden kann, da die Information analog ver- 
arbeitet werden muß (Drehwiderstand) und dies vom C 64 nur über die Pins 23 
und 24 des SID zu realisieren ist. Näheres dazu siehe in Kapitel 2/3.6. 


Außer den beiden Anschlüssen 5 und 9, die die eben beschriebene analoge Informa- 
tion an die Pins 23 und 24 des SID übergeben und der Stromversorgung an den An- 
schlüssen 7 und 8 sind alle Pins beider Control-Ports mit dem CIA verbunden. 
Näheres geht aus folgender Tabelle hervor. 









Control-Port 1 





Pin Funktion verbunden mit 
















1 Joystick 1 nach oben CIA PBO 
2 Joystick 1 nach unten CIA PB1 
3 Joystick 1 nach links CIA PB2 
4 Joystick 1 nach rechts CIA PB3 
5 Paddiepaar 1 Paddle 1 SID Pin 23 über Analogschalter 
6 Feuerknopf Joystick 1 a 
oder Light-Pen CIA PBA und VIC LP 
7 +5 V (bis 100 mA) (Stromversorgung) 
8 Masse (Stromversorgung) 
9 Paddliepaar 1 Paddie 2 SID Pin 24 über Analogschalter 
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Control-Port 2 
Pin Funktion verbunden mit 
1 Joystick 2 nach oben CIA PAO 
2 Joystick 2 nach unten CIA PA1 
3 Joystick 2 nach links CIA PA2 
4 Joystick 2 nach rechts CIA PA3 
5 Paddiepaar 2 Paddle 1 SID Pin 23 über Analogschalter 
6 Feuerknopf Joystick 2 CIA PA und VIC LP 
7 +5 V (bis 100 mA) (Stromversorgung) 
8 Masse (Stromversorgung) 
9 Paddlepaar 2 Paddle 2 SID Pin 24 über Analogschalter 





Die Pins 1 bis 4 und 6 werden standardmäßig als digitaler Eingang verwendet, kön- 
nen jedoch auch als digitaler Ausgang angesprochen werden. Das Prinzip der Joy- 
sticks ist recht einfach, da je nach Bewegung ein bestimmter Kontakt im Joystick 
mit Masse kurzgeschlossen wird. Joysticks, die auch Diagonale zulassen, schließen 
dementsprechend gleichzeitig zwei Kontakte mit Masse kurz. 


Die Paddles bringen einen Widerstand zwischen dem ihnen zugeordneten Anschluß 
(Pin 5 oder 9) und die Stromversorgung (Pin 7). Um optimale Ergebnisse zu er- 
zielen, sollte ein Drehwiderstand im Bereich 200 Ohm bis 200 KOhm eingesetzt wer- 
den. Siehe auch Kapitel 2/3.5 (Joystick) und 7/2.6 (Selbstbau eines Light-Pens). 
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2/1.1.1.3 


User-Port 





Der User-Port ist die wohl am häufigsten verwendete Schnittstelle, wenn man 
externe Geräte steuern oder Meßwerte erfassen will. Innerhalb dieses Buches werden 
wir noch häufiger auf den User-Port zurückgreifen, wobei er jedoch nicht immer 
direkt programmiert werden muß. Z.B. der Anschluß des Märklin Digital HO Inter- 
face (siehe Teil 8) wird am User-Port vorgenommen. 


Der User-Port ist zugleich die hardwaremäßig am leichtesten zu handhabende 
Schnittstelle. Auch die softwaremäßig realisierte RS 232-Schnittstelle (auch als V 24 
bekannt) wird über den User-Port geführt. 


Die leichte Handhabbarkeit des User-Ports ergibt sich daraus, daß die meisten Lei- 
tungen mit dem Complex Interface Adapter (CIA) verbunden sind (siehe Kapitel 
2/2.1.5). Aus der weiter unten aufgeführten Tabelle geht die Verbindung der einzel- 
nen Anschlüsse hervor. Zunächst wollen wir uns jedoch den Anschluß selbst be- 
trachten. 


Bild 2/1.1.1.3-1 zeigt die Anschlüsse des User-Ports mit ihren Bezeichnungen. 





234 5678 9002 Bild 2/1.1.1.3-1 
Steckanschluß des User-Ports 


ABCDEFH)JIKLMN 





Der User-Port ist als 24-poliger Stecker ausgebildet, wovon die vier äußeren An- 
schlüsse (1, 12, A, N) alle Masse (GND) führen. Drei weitere Anschlüsse dienen zur 
Stromversorgung externer Geräte (2, 10, 11). Die restlichen 17 Anschlüsse weisen 
eine digitale Funktion auf, die aus folgender Tabelle hervorgeht: 








Pin Bezeichnung Funktion 
1 GND Masse 
2 +5V Stromversorgung für externe Geräte (100 mA) 
3 RESET entsprechende Leitung des Prozessors 
4 CNTI CNT-Anschluß des CIA 1 
5 sPp1 SP-Anschluß des CIA 1 
6 CNT2 CNT-Anschluß des CIA 2 R 
7 SP2 SP-Anschluß des CIA 2 
8 PC2 PC-Anschluß des CIA 2 (geht für einen Takt auf Low, wenn ein 
Schreib- oder Lesezugriff auf das Portregister B ausgeführt wurde) 
9 ATN ATN des seriellen Bus 
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Pin Bezeichnung Funktion 





9VAC Wechselstrom für externe Geräte 
9VAC Wechselstrom für externe Geräte 
GND Masse 


GND Masse 

FLAG2 FLAG-Anschluß des CIA 2 
PBO Port B Bit 0 von CIA 2 
PB1 Port B Bit 1 von CIA 2 
PB2 Port B Bit 2 von CIA 2 
PB3 Port B Bit 3 von CIA 2 
PB4A Port B Bit 4 von CIA 2 
PB5 Port B Bit 5 von CIA 2 
PB6 Port B Bit 6 von CIA 2 
PB7 Port B Bit 7 von CIA 2 
PA2 Port A Bit 2 von CIA 2 
GDN Masse 


A 
B 
[6 
D 
E 
F 
H 
J 

K 
L 
M 
N 





Bis auf die Stromversorgungsanschlüsse und die Anschlüsse 3 und 9 sind alle Pins 
mit den beiden CIA’s verbunden, in der Hauptsache mit CIA 2. 


Der Rechner selbst greift auf einige Leitungen und Funktionen der CIA’s zurück, 
was bei einer Programmierung zu berücksichtigen ist. Belegt sind u.a. die Ports A 
und B sowie die Leitungen FLAG und Timer A beim CIA 1 und PAO und PAI, so- 
wie PA3 bis PA7 bei CIA 2. 


Bei Verwendung der RS 232-Schnittstelle wird der CIA 2 fast ausschließlich durch 
diese belegt, so daß hier eine Eigenprogrammierung nicht mehr möglich ist. 


Auf Beispiele wollen wir an dieser Stelle verzichten, da wir den User-Port mehrfach 
innerhalb des Buches anwenden werden. 
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2/2 
Interner Aufbau 





Nachdem wir den C 64 und den C 128 von außen unter die Lupe genommen haben, 
wollen wir uns mit dem Innenleben dieser beiden Rechner beschäftigen. Auch im 
Kapitel 2/2 werden wir wieder beide Rechner getrennt behandeln. 


2/2.1 
Interner Aufbau des C 64 





Von keinem Rechner ist das Innenleben so gut bekannt wie vom C 64. Neben einer 
allgemeinen Einführung, die auch ein Blockschaltbild beinhaltet, um die Zusam- 
menhänge aufzuzeigen, wollen wir die einzelnen operativen Einheiten des C 64 
besprechen. Die CPU 6510 ist eine Nachfolge-CPU der CPU des legendären PET, 
der eine 6502 CPU hatte. Sie wurden übrigens von der Commodore-Tochterfirma 
MOS Technology entwickelt. 


Für die Bearbeitung des Bildschirmes besitzt der C 64 einen eigenen Video- 
Controller, VIC (Video Interface Chip) genannt, der genauso wie der Sound-Chip 
(SID) aus der 65xx-Familie stammt. 


Für die Verbindung nach außen sorgen im C 64 zwei sogenannte Complex Interface 
Adapter, auch kurz CIA genannt. Abschließend gehen wir auf das logische Pro- 
grammierfeld ein (PLA), das hauptsächlich der Steuerung der Bausteine unter- 
einander dient. 
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2/2.1.1 
Einführung mit Blockschaltbild 





Das Bild zeigt die Architektur des C 64. Die Zentraleinheit des Computers bildet 
die CPU 6510, ein von Commodore entwickelter Baustein, der eine Variante der 
weitverbreiteten CPU (Zentraleinheit) 6502 ist. Die CPU kontrolliert alle Einheiten 
des Systems. Dies geschieht über drei Arten von Leitungen: 


— den Adreßbus, über den die gewünschte Speicherstelle oder der gewünschte 
Baustein ausgewählt wird. Im C 64 bilden 16 Leitungen den Adreßbus. 


— den Datenbus, über den die Daten aus Speicherstellen gelesen oder in Speicher- 
stellen geschrieben werden. Im C 64 bilden 8 Leitungen den Datenbus, er gehört 
daher zu den 8-Bit-Computern. 


— die Steuerleitungen. Zu diesen gehört eine Reihe von Leitungen, die z.B. die 
Datenrichtung bestimmen (Lesen oder Schreiben von Daten), anzeigen, ob eine 
gültige Adresse auf dem Adreßbus anliegt und ähnliches. 


Leider kann die CPU mit ihren 16 Adreßleitungen nur 64 KByte (= 65536 verschie- 
dene Adressen) Speicher adressieren. Der C 64 verfügt aber über 64 KByte Schreib- 
Lesespeicher (RAM), 20 KByte Nur-Lesespeicher (ROM) sowie über einen 4 KByte 
großen Speicherbereich (V/O), in dem die Bausteine für die Ein- und Ausgabe auf 
Bildschirm, Tastatur etc. liegen. Um dies alles ansprechen zu können, entscheidet 
die Adreßdekodierung, welche Einheiten in welchen Adreßbereichen angesprochen 
werden. Die hierbei bestehenden Möglichkeiten entnehmen Sie bitte dem Kapitel 
3/1.1 „Übersicht und Speicherbelegung“. 


Alle im Speicherbereich des Computers liegenden Bausteine verfügen über einen 
CS-Eingang (CS = Chip Select, engl. Bausteinauswahl). Über diesen Eingang wird 
dem Baustein mitgeteilt, ob er angesprochen ist. Ist dies nicht der Fall, verhält sich 
der Baustein, als wäre er nicht vorhanden. Normalerweise geht ein Zugriff der CPU 
auf das RAM des C 64, welches mit seinen 64 KByte den gesamten Adreßraum be- 
legt. Entscheidet die Adreßdekodierung jedoch anders, blendet sie den RAM- 
Bereich aus, und wählt einen der ROM-Bausteine oder den V/O-Bereich über das 
CS-Signal aus. 


Der ROM-Bereich selbst ist in drei Teile geteilt. In den ersten beiden Bausteinen 
liegen der Basic- Interpreter sowie das Betriebssystem des Computers, wobei sich der 
Basic-Interpreter noch im Betriebssystem-ROM fortsetzt. Diese beiden Bausteine 
werden normalerweise von der Adreßdekodierung in den Speicherbereich eingeblen- 
det. Die restlichen 4 KByte ROM beinhalten den Zeichensatz des C 64 (genau ge- 
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Bild 2/2.1-1 Blockschaltbild des C 64 
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nommen sind es zwei Zeichensätze, einer für Großschrift/Graphik und einer für 
Klein- und Großschrift). Er wird von der Adreßdekodierung besonders behandelt. 
Wir werden darauf noch bei der Beschreibung des Video-Bausteins eingehen. 

















c5 
= BEIERB Een 
BASIC | "SYSTEM : 







64k RAM ROM 

















" ——— KONTROLLEITUNG 


>) DATENBUS 
> ADRESSBUS 


Bild 2/2.1.-2 Die Architektur des C 64 





In dem 4 KByte großen 1/O-Bereich liegen die Ein- und Ausgabebausteine. Beim 
C 64 sind dies der Video-IC (VIC), der Sound-IC (SID) sowie zwei universelle Ein- 
und Ausgabebausteine (CIA). Die Bausteine enthalten jeweils eine unterschiedliche 
Anzahl von Registern, über die ihre Funktionen gesteuert werden. Die CPU kann 
direkt auf diese Register, wie auf normale Speicherzellen, zugreifen. Ausgewählt 
werden die einzelnen Bausteine dann von der Adreßdekodierung. 


Die Signale des Sound-Bausteins SID und des Video-Bausteins VIC werden gemein- 
sam einem Modulator zugeführt. Dieser arbeitet wie ein kleiner Sender: Er macht 
aus den Eingangssignalen ein Sendesignal, welches von normalen Fernsehern ver- 
arbeitet werden kann. 


Einen besonderen Status bei den Ein- und Ausgabegeräten nimmt der Kassetten- 
rekorder ein. Er wird nicht über einen der Ein- und Ausgabe-Bausteine betrieben, 
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sondern direkt von der CPU. Die CPU 6510 verfügt über sechs unabhängige Ein- 
und Ausgabeleitungen, von denen drei Leitungen die Steuerung der Datasette über- 
nehmen. 


TASTATUR JOYSTICKS USER-PORT SERIELLER-BUS 

















Data/ 
Adress- 









audio AUS video AUS 


video-modulator 











nr 
audio IN  video/audio T.V. KASSETTE 
AUSGABE 








Bild 2/2.1-3 /O-Bereich des C 64 


In den folgenden Kapiteln werden nun die Bausteine des C 64 näher betrachtet. Die 
zu den Bausteinen VIC, SID und CIA gehörenden Register finden Sie im Kapitel 
3/1.2 beschrieben. 
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2/2.1.2 


Der Prozessor 6510 





Der Prozessor 6510 ist die Zentraleinheit des C 64. Er steuert alle Abläufe im 
Computer. Zu diesem Zweck verfügt er über 16 Adreßleitungen zur Auswahl der 
Speicherstelle, acht Datenleitungen, über die Werte aus Speicherstellen gelesen oder 
in sie geschrieben werden können, sowie sechs frei programmierbare Leitungen und 
einige Steuerleitungen. Die folgende Tabelle zeigt die Pinbelegung und ihre Bedeu- 
tung. 













Beschreibung 
1 PHO In | Eingang des Systemtakts ca. 980 KHz 
2 RDY Ready-Leitung 
3 ARQ Interrupt-Anforderung (Interrupt Request) 
4 /INMI Interrupt-Anforderung (Non maskable Interrupt) 
5 IDMA DMA-Eingang 
6 VCC Versorgungsspannung: +5V 
7-20, 
22,23 | AQ..A15 | Adreßleitungen 
21 GND Versorgungsspannung: Masse 
24-29 P5..PO VO Leitungen 





30-37 D7..DO Datenleitungen 

38 R/W Lese-Schreibleitung 
PH2 Out | Systemtakt-Ausgang wird 1 bei gültiger Adresse 
/RESET | Rücksetzen des Prozessors 












Einige der Leitungen sind es Wert, etwas genauer betrachtet zu werden: 


/IRQ und /NMI (Pin 3 und 4) 


Dies sind Leitungen, die den Prozessor zur Unterbrechung seiner Arbeit bewegen. 
Der genaue Ablauf kann im Kapitel 4/5.2.1.3 nachgelesen werden. Für die Erzeu- 
gung der Signale ist je einer der beiden CIAs zuständig. Außerdem können SID und 
VIC ein IRQ-Signal erzeugen. : 


/DMA (Pin 5) , 


Über diesen Eingang ist es möglich, die CPU 6510 vollständig abzuschalten. Da der 
Eingang vom Modulport kommt, kann so eine externe CPU (z.B. die CPU Z-80 der 
CP/M-Karte) die Kontrolle über die Komponenten des Computers übernehmen. 
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PHOIN [Reset 
ARDY PH2OUT 
ARQ RW 
INMI Do 
/DMA Di 
NCC D2 
AO D3 

M Da 
A2 D5 
Ag D6 
A4 D7 
AS PO 
A6 Pi 

AT P2 
AB P3 
Ag P4 
A1O PS 
Att A15 
A12 Aid 
A13 GND 








PO bis P5 (Pin 24-29) 
Diese Leitungen bilden den Prozessor-Port. Im C 64 haben sie folgende Bedeutung: 








Leitung Datenrichtung Funktion 
0 Ausgabe Signal LORAM an PLA 
1 Ausgabe Signal HIRAM an PLA 
2 Ausgabe Signal CHAREN an PLA 
3 Ausgabe Schreibleitung an Datasette 
4 Eingabe Abfrageleitung der Recordertaste 
5 | Ausgabe Ausschalten des Recordermotors 





Die Programmierung der Leitungen ist im Kapitel 4/5.2.1.4 nachzulesen. 


R/W (Pin 38) 


Entscheidet, ob es sich um einen Lese- oder Schreibzugriff handelt. Bei einem 
Schreibzugriff legt der Prozessor die Leitung auf logisch 0. 








Teil 2 Kapitel 2.1 Seite 8 Interner Aufbau 








2.1064 Teil 2: Hardware-Beschreibung 


2/2.1.3 
Der Sound-Generator 6581 (SID) 





Der Sound-IC SID übernimmt die Erzeugung der Geräusche oder von Musik. Er 
verfügt über drei unabhängige Stimmen, die miteinander synchronisiert werden 
können. Für jede Stimme kann eine Hüllkurve sowie die Wellenform bestimmt wer- 
den. Zusätzlich stehen noch Filter sowie ein Ton-Eingang zur Verfügung, über den 
von außen Tonsignale zugeführt werden können. Für den SID gilt die folgende Pin- 
belegung: 




















—— 
Pin Name Beschreibung 
152 CAP1 Anschluß eines Kondensators für den Filter. 
Im C 64 beträgt die Kapazität 2200 pF. 
3,4 CAP2 Siehe Pin 1, 2. 
5 /RESET Reset-Leitung. 
6 PH2 Taktleitung vom Prozessor. 
7 R/W R/W-Leitung vom Prozessor. 
8 ICS Baustein Auswahlsignal von der Adreßdekodierung. 
9-13 A0..A4 Adreßleitungen zur Auswahl eines Registers. 
14 GND Versorgungsspannung: Masse. 
15-22 D0..D7 Datenleitungen. 
23 POTX Analog-Eingabe. 
24 POTY Analog-Eingabe. 
25 VCC Versorgungsspannung: +5V, 
26 EXTIN Externer Toneingang. 
27 OUT Tonausgang zum Modulator. 
28 VDD Versorgungsspannung: +12V. 





Auch hier sollen wieder einige Leitungen besonders betrachtet werden: 


EXTIN (Pin 26) 


Erlaubt, wie bereits erwähnt, das Einspeisen externer Tonsignale in den Baustein. 
Diese Leitung ist an der Audio/Video-Buchse zu finden. Das Signal kann nur über 
den Filter beeinflußt werden. 


POTX, POTY (Pin 23, 24) 


Über diese Eingänge werden Paddles abgefragt. Paddles bestehen lediglich aus 
einem regelbaren Widerstand. Dieser wird zwischen +5V und einem der Eingänge 
POTX oder POTY angeschlossen. Der SID wandelt dann den Widerstandwert in 
einen Zahlenwert um. Da zwei Eingänge existieren, können gleichzeitig zwei Paddles 
ausgewertet werden. Der C 64 erlaubt jedoch den Anschluß von zwei Paddlepaaren, 
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CAPI 


CAP1 


CAP2 


CAP2 


JRESET 


PH2 


RW 


/0S 


AO 


Al 


A2 


A3 


A4 


GND 





d.h. vier Paddles. Diese können jedoch nicht gleichzeitig ausgewertet werden, son- 
dern es muß mit Hilfe eines Ein-Ausgabebausteins CIA zwischen den beiden Paaren 
umgeschaltet werden. 


2/2.1.4 
Der Video-Controller 6567 (VIC) 





Der Video-Controller VIC übernimmt alle Arbeiten, die zur Erstellung des Bildes 
notwendig sind, d.h. Auswerten des Bildschirmspeichers, Farbspeichers, Zeichensatz 
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und Spritedaten sowie die Erzeugung sämtlicher Signale für einen Monitor. Er ist 
der einzige Baustein, der neben der CPU eigenständig auf den Adreßbus zugreifen 
kann. Ein Zugriff des Video-Controllers hat dabei sogar Vorrang vor der CPU. Da 
der VIC nur 14 Adreßleitungen besitzt, kann er nur einen 16 K’Byte Adreßbereich 
ansteuern. Dieser Adreßbereich kann beim C 64 aber in 16 KByte Schritten frei ge- 
wählt werden, indem die Adreßleitungen 14 und 15 von dem Ein/Ausgabebaustein 
CIA #2 erzeugt werden. Im Normalfall ist der Speicherbereich von 0 bis 16383 
gewählt. Der VIC greift dabei immer auf das RAM zu, d.h. auch in den Bereichen, 
in denen die CPU auf ROM zugreifen würde. 


Unabhängig von der gewählten Adreßlage liegt der Farbspeicher immer im Bereich 
von $D800 bis $DBFF. Dies hat den Grund darin, daß der Farbspeicher aus einem 
zusätzlichen RAM-Speicher besteht, der die Adreßgröße von 1 KByte besitzt, je- 
doch nur vier Datenleitungen enthält, was für die Farbinformation völlig ausrei- 
chend ist. 


Der Zeichensatz hingegen kann verschoben werden. Im Normalfall liegt er im ROM 
ab $D000. Dies ist außerhalb des vom VIC zu adressierendem Speicherbereichs, 
kann aber durch einen Trick trotzdem angesprochen werden: Der Adreßbereich von 
$D000 bis $DFFF wird von der Adreßdekodierung für den VIC in die Adreßberei- 
che $1000 bis $IFFF und von $9000 bis $YIFFF gespiegelt. 

















Pin Name Beschreibung 

1-7 D6..DO Datenbus Bit 0 bis Bit 6 

8 ARQ Interrupt-Ausgang zum Prozessor 
9 /LP Lightpen-Anschluß 

10 ICS Bausteinauswahl 

11 R/W Lese-Schreibsignal 

12 BA Busfreigabe 

13 VDD Versorgungsspannung: +12V 
14 COLOR Ausgang Farbsignal 

15 SYNC Ausgang Synchronisationssignale 
16 IMEC 0=VIC benutzt den Bus 

17 PHO Taktsignal 

18 JRAS Ansteuersignal für RAMs 

19 ICAS Ansteuersignal für RAMs 

20 GND Versorgungsspannung: Masse 
21 PHCL Eingang Farbfrequenz 

22 PHIN Eingang Dotfrequenz 

23 A11 Adreßleitung 

24-29 AO/A8..A5S/A13 | Adreßleitungen 

30-34 A6..A10 Adreßleitungen 

35-38 D8..D11 Datenbus für das Farbram 

39 D7 Datenbus Bit 7 

40 VCC Versorgungsspannung: +5V 
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RT 





vcc 
DS D7 
D4 D8 
D3 D9 
D2 Di0 
D D11 
Do A10 
ARQ Ag 
LP AB 
ICS AT 
RW A6 
BA ASIA13 
vDD A4IAI2 
COLOR AS/A11 
SYNC A2IA1O 
IAEC ANIAO 
PHO AOIAS 
{RAS At 
ICAS PHIN 
GND PHCL 











_ ol 


Einige besonders bemerkenswerte Leitungen sind im nachfolgenden näher erläutert: 


/IRQ (Pin 8) 


Der VIC ist in der Lage, bei bestimmten programmierbaren Ereignissen ein 
Interrupt-Signal zu erzeugen und an die CPU weiterzuleiten. Zu diesen Freignissen 
gehört die Spritekollision mit Sprites oder dem Hintergrund, der Light-Pen sowie 
der Rasterzeilenvergleich. Bei dem Rasterzeilenvergleich wird der Interrupt bei dem 
Zeilenaufbau einer vom Programmierer festgelegten Rasterzeile ausgelöst. Dies er- 
möglicht viele Effekte, wie z.B. einen mehrfarbigen Rahmen oder Text- und Grafik- 
anzeige gleichzeitig. Auch die Verdoppelung der Sprites auf 16 ist so möglich, wenn 
man ihre Bewegungsfreiheit auf Teilbereiche des Bildschirms beschränkt. 


/LP (Pin 9) ? 


Der LP-Eingang erlaubt den Anschluß eines Light-Pens. Das Signal kann am Joy- 
stick-Port angeschlossen werden. Im Kapitel 7/2.6 finden Sie eine Bauanleitung für 
einen Light-Pen sowie weitere Erklärungen. 
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BA (Pin 12) 


Für manche Operationen benötigt der VIC den Adreßbus außergewöhnlich lange. 
Dies ist z.B. im Zusammenhang mit der Spritedarstellung der Fall. Dem Prozessor 
wird dann über die BA-Leitung mitgeteilt, daß der VIC den Bus noch benötigt. 


/AEC (Pin 16) 
Wirkt auf den DMA-Eingang der CPU und gibt so den Bus für den VIC frei. 


/RAS und /CAS (Pin 18 und 19) 


/RAS und /CAS sind Steuersignale für die Speicherbausteine. Im C 64 werden für 
den 64 KByte Hauptspeicher acht Speicherchips des Types 4164 verwendet. Für jede 
Datenleitung ist einer dieser Chips zuständig. Bei den Speicherchips handelt es sich 
um dynamische RAMs, welche die Information mittels kleiner Kapazitäten, die auf 
dem Chip integriert sind, speichern. Diese Kapazitäten sind in einer Matrix organi- 
siert, so daß sich eine Adresse aus einer Zeilen- und einer Spaltenadresse zusammen- 
setzt. Diese Adressen werden nacheinander an den RAM-Baustein gelegt, wobei das 
CAS-Signal die Spaltenauswahl und das RAS-Signal die Reihenauswahl anzeigt. 
Dynamische Speicher haben den Nachteil, daß die Kapazitäten mit der Zeit ihre In- 
formation verlieren. Daher muß die Information in kurzen Abständen aufgefrischt 
werden (Refresh genannt). Diese Arbeit wird nebenbei vollständig vom VIC erledigt. 


A0/A8 bis A5/A13 (Pin 24 bis 29) sowie A6 bis All 


Die Adreßleitungen 0 bis 5 und 8 bis 13 teilen sich diese Ausgangsleitungen. Sie wer- 
den nacheinander auf die Ausgänge gelegt, da ja die Speicherbausteine die Adresse 
getrennt nach Zeile und Spalte verlangen. Zusammen mit den Adreßleitungen A6 
und A7 ergibt sich der 16 KByte Adreßraum des VIC. Die Adreßleitungen A8 bis 
All gehen direkt an den Adreßbus. 
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2/2.1.5 
Der Complex Interface Adapter 6526 (CIA) 





Der C 64 enthält zwei IC’s, über die man die CPU mit der Außenwelt in Verbindung 
treten lassen kann (USER-Port). Weiterhin wäre die Tastatur- und Joystickabfrage 
ohne diese Bausteine nicht möglich. Auch der serielle Bus, die Drucker- und Floppy- 
Schnittstelle, ist auf diese Bausteine angewiesen. Die beiden Complex Interface 
Adapter (CIA) 6526 sind diese Wunderbausteine. Sie sind die technische Weiterent- 
wicklung der Versatile Interface Adapter (VIA) 6522, die im kleinen Bruder des 
C 64, dem VC 20, verwendet werden. Wie die Bezeichnung des IC’s schon vermuten 
läßt, sind diese Bausteine für den Anschluß an die Prozessoren der 65XX-Serie ent- 
wickelt. 


Da einige von Ihnen bestimmt schon schlechte Erfahrungen mit diesem Baustein ge- 
macht haben, hier ein paar Hinweise zur Behandlung dieses IC’s. Sie sollten, wenn 
Ihr Computer eingeschaltet ist, keine Steckmodule in den USER-Port einschieben 
oder abziehen, nicht das Diskettenlaufwerk an- oder abstecken und beim Anschlie- 
Ben der Joysticks darauf achten, daß keine Kurzschlüsse entstehen. Außerdem soll- 
ten Sie es vermeiden, mit den Kontakten des USER-Ports und der Joystickports in 
Berührung zu kommen, da die CIA’s sehr empfindlich gegen statische Aufladungen 
reagieren. Diese tödliche statische Elektrizität entsteht meist durch die auftretende 
Reibung beim Laufen zwischen Teppichboden und Schuhsohlen (es können Span- 
nungen bis zu 20.000 Volt auftreten). 


Allgemeines über den 6526 


Der 6526 hat ungeahnte Möglichkeiten, von denen nur der geringste Teil im C 64 
genützt wird. Diese Geheimnisse sollen nun gelüftet werden: 


— 16 einzelne programmierbare Ein-/Ausgabeleitungen 

— 2 Handshake-Pins für parallele Ein-/Ausgabe 

— 2 unabhängige kaskadierbare 16-Bit-Timer 

— eine 24 Stunden-(AM/PM) Echtzeituhr mit programmierbarer Alarmzeit 
— ein 8-Bit-Schieberegister für die serielle Ein-/Ausgabe. 


Die Pinbelegung der CIA’s 


Die CIA 6526 besitzt ein 40-poliges Gehäuse. Dabei markiert die Einkerbung beim. 
IC die Seite von Pin 1 und Pin 40. Betrachtet man nun das IC so, daß die Ein- 
kerbung nach oben zeigt, so ist links davon Pin 1. Man zählt nun auf der linken 
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Seite nach unten bis Pin 20, springt auf die rechte Seite, dort befindet sich Pin 21. 
Nach oben weiter gezählt endet man bei Pin 40. Diese Zählweise ist bei allen IC’s 
genormt. Hier ist nun die Pinbelegung der CIA’s: 





Pin 1 
Pin 2-9 
Pin 10-17 
Pin 18 
Pin 19 
Pin 20 
Pin 21 


Pin 22 


Pin 23 


Pin 24 
Pin 25 


Pin 26-33 
Pin 34 
Pin 35-38 





Pin 39 


Pin 40 





Masse 

Ein-/Ausgabeport A (8 Bit bidirektional) 

Ein-/Ausgabeport B (8 Bit bidirektional). Die Bits 6 und 7 können zur Anzeige des Un- 
terlaufs der beiden 16-Bit-Timer programmiert werden. 

PC (Port Control) ist ein Ausgang, er zeigt an, daß Daten am Port B oder an beiden 
Ports zur Verfügung stehen. 

TOD (Time Of Day) ist nur ein Eingang, er dient zur Triggerung der Echtzeituhr (50/60 
Hertz) 

+5V Betriebsspannung 

IRQ (Interrupt Requesi) ist ein Ausgang. Dieser wird auf O0 gesetzt, wenn ein, durch 
das Setzen eines Bits im ICR (Interrupt Control Register), freigegebenes Interrupt- 
ereignis eintritt. 

R/W (lesen/schreiben) ist nur ein Eingang, 0 bedeutet dabei, daß der Datenbus zum 
Prozessor auf Eingabe geschaltet ist, daß heißt, daß der Prozessor Daten in den CIA 
schreiben kann. 1 bedeutet entsprechend, daß der Datenbus zum Prozessor auf Aus- 
gabe geschaltet ist, daß heißt, daß der Prozessor Daten vom CIA empfangen kann. 
CS (Chip Select) ist nur ein Eingang: O=Datenbus wird übernommen; 1=Datenüber- 
gabe ist gesperrt. 

—FLAG ist nur ein Eingang, gleiche Bedeutung wie PC. 

02 (Systemtakt 2) ist nur ein Eingang, er ist mit dem Systemtakt des Prozessors ver- 
bunden und regelt die Kommunikation mit dem Prozessor 6510. 

DB7-DBO (Datenbus;) bidirektional, direkte Verbindung mit dem Prozessor 6510. 
RES (Reset) ist nur ein Eingang, O=Rücksetzen der CIA in den Grundzustand. 
RS3-RSO (Register Select) ist nur ein Eingang, damit können die 16 Register der CIA 
angesprochen werden, aber nur wenn —CS=0 ist. 

SP (Serial Port) bidirektional, dient zur Ein-/Ausgabe des Schieberegisters des seriel- 
len Poris. 


CNT (Count) bidirektional, er ist der Ein-/Ausgang des Schieberegistertaktes oder zur 
externen Triggerung der 16-Bit-Timer. 





Die Register der CLA’s 


Da wir nun die Pinbelegung der CIA’s kennen, wenden wir uns den einzelnen Regi- 
stern zu. Durch das Memory-Mapping der Peripherie-Bausteine im C 64 ist es mög- 
lich, die CIA’s genau wie Speicherplätze anzusprechen. Dabei liegen die Basisadres- 
sen der CIA’s für CIA I bei 56320 ($DC00) und für CIA 2 bei 56576 ($DDO0). 


Um nun die einzelnen Registeradressen berechnen zu können, addiert man zu der 
Basisadresse des gewünschten CIA’s die Registerzahl, so erhält man die Adresse des 


gewünschten Registers. 
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PRA (Port Register A) Zugriff: lesen/schreiben. 
In diesem Register kann man den Zustand der 8 Ein-/Ausgabeleitungen PAO-7 abfragen. 
Dabei spielt es keine Rolle, ob die I/O-Leitungen auf Ein- oder Ausgabe geschaltet sind. 





| PRB (Port Register B) Zugriff: lesen/schreiben. 


In diesem Register kann man den Zustand der 8 Ein-/Ausgabeleitungen PBO-7 abfragen. 
Dabei spielt es keine Rolle, ob die I/O-Leitungen auf Ein- oder Ausgabe geschaltet sind. 





DDRA (Data Direction Register A) Zugriff: iesen/schreiben. 

Mit diesen Bits können die Datenrichtungen der Ausgabeleitungen PAO-7 festgelegt wer- 
den. Bei gesetztem Bit (1) ist die entsprechende PA-Leitung auf Ausgang und bei gelösch- 
tem Bit (0) ist die entsprechende PA-Leitung auf Eingang geschaltet. 








DDRB (Data Direction Register B) Zugriff: lesen/schreiben. 

Mit diesen Bits können die Datenrichtungen der Ausgabeleitungen PBO-7 festgelegt wer- 
den. Bei gesetztem Bit (1) ist die entsprechende PB-Leitung auf Ausgang und bei gelösch- 
tem Bit (0) ist die entsprechende PB-Leitung auf Eingang geschaltet. 





TA LO (Timer A LO-Byte) Zugriff: lesen. 

Beim Lesen dieses Registers erhält man das niederwertige Byte des 16-Bit-Timer. Dieser 
Timer hält beim Lesen nicht an, sondern zählt weiter. Das heißt, man liest den Momentan- 
wert des Timers aus. 

Zugriff: schreiben. 

Beim Schreiben in dieses Register schreibt man das niederwertige Byte in den 16-Bit- 
Timer, von dem aus der Timer von 0 ab aufwärts zählen soll. 








TA HI (Timer A HI-Byte) Zugriff: lesen. 

Beim Lesen dieses Registers erhält man das höherwertige Byte des 16-Bit-Timers. Dieser 
Timer hält beim Lesen nicht an, sondern zählt weiter. Das heißt, man liest den Momentan- 
wert des Timers aus. 

Zugriff: schreiben. 

Beim Schreiben in dieses Registers schreibt man das höherwertige Byte in den 16-Bit- 
Timer, von dem aus der Timer von 0 ab aufwärts zählen soll. Ein neuer Wert wird erst in 
den Timer geladen, wenn laufender Zählvorgang abgeschlossen ist. Soll der Timer sofort 
seine Arbeit aufnehmen, so ist zusätzlich in Register 14 Bit 4 zu setzen. 








TB LO (Timer B LO-Byte) 
Dieses Register arbeitet analog wie Register 4 bei Timer A, jedoch bezogen auf Timer B. 





TB HI (Timer B HI-Byte) 
Dieses Register arbeitet analog wie Register 5 bei Timer A, jedoch bezogen auf Timer B. 











TOD (Time Of Day 1/10 Sekunde) Zugriff: lesen. 

in diesem Register werden nur die Bits 0-3 verwendet, sie geben die Zehntelsekunden der 
Echtzeituhr im BCD-Format (Binar Coded Decimal) an. Die Bits 4-7 sind dabei immer 0. 
Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 gesetzt ist. 

Dann können die 1/10 Sekunden der Alarmzeit im BCD-Format gesetzt werden. Es ist da- 
bei noch zu beachten, daß die Bits 4-7 auf O gesetzt sind. . 

Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 nicht gesetzt ist. 

Dann können die 1/10 Sekunden der Uhrzeit im BCD-Format gesetzt werden. Es ist dabei 
noch zu beachten, daß die Bits 4-7 auf 0 gesetzt sind. Außerdem wird beim Schreiben in 
dieses Register die Uhr wieder gestartet. 
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Reg 9 | TOD SEC (Time Of Day Sekunden) Zugriff: lesen. 
In diesem Register stehen die Sekunden im BCD-Format zur Verfügung. 
Bit 0-3, dort stehen die Einersekunden (BCD) 
Bit 4-6, dort siehen die Zehnersekunden (BCD) 
Bit 7 ist immer O0 
Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 gesetzt ist. 
Dann können die Sekunden der Alarmzeit im BCD-Format gesetzt werden. 
Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 nicht gesetzt ist. 
Dann können die Sekunden der Uhrzeit im BCD-Format gesetzt werden. 
Reg 10 | TOD MIN (Time Of Day Minuten) 
Dieses Register arbeitet analog wie Register 9, jedoch bezogen auf Minuten. 
Reg 11 | TOD (Time Of Day Stunden) Zugriff: lesen. 
In diesem Register stehen die Stunden im BCD-Format zur Verfügung. 
Bit 0-3, dort stehen die Einerstunden (BCD) 
Bit 4, dort stehen die Zehnerstunden (BCD) 
Bit 5, 6, sind immer O0 
Bit 7, dort steht die Tageshälfte. Ist Bit 7 gelöscht (0), signalisiert dieses die Tageshälfte 
AM (vormittags). 
Ist Bit 7 gesetzt (1), signalisiert dieses die Tageshälfte PM (nachmittags). 
Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 gesetzt ist. 
Dann können die Stunden der Alarmzeit im BCD-Format gesetzt werden. 
Zugriff: schreiben wenn in Register 15 (CRB) Bit 7 nicht gesetzt ist. 
Dann können die Stunden der Uhrzeit im BCD-Format gesetzt werden. Beim Schreiben 
in dieses Register wird die Uhr angehalten. Sie startet erst wieder, wenn ein Schreibzugriff 
auf das Register 8 erfolgte. 
Reg 12 ! SDR (Serial Data Register) Zugriff: lesen/schreiben. 
Dieses Register wirkt auf die Anschlüsse SP und CNT. Es ist ein Schieberegister zum Sen- 
den oder Empfangen von seriellen Daten. Die Datenrichtung wird von Bit 6 in Register 14 
bestimmt. e 
Eingabemodus: Ein Bit wird in das Schieberegister übernommen, wenn am Anschluß CNT 
eine steigende Flanke auftritt. Nachdem acht Bit übernommen wurden, wird das entspre- 
chende Bit im Register 13 (ICR) gesetzt. 
Ausgabemodus: Die Schieberate wird durch den Timer A bestimmt. Die Schiebeimpulse 
erscheinen am Anschluß CNT. Ist das Schieberegister leer, so wird ebenfalls das Bit im 
Interrupt-Kontrollregister gesetzt, es sei denn, daß vor Beendigung des Schiebevorgangs 
ein neuer Wert in das Schieberegister geschrieben wurde. 
Reg 13 | ICR (Interrupt Control Register) Zugriff: lesen (INT-Data). 
‚Achtung! Beim Lesen des INT-Data-Registers werden alle Bits des INT-Data-Registers auf 
Null gesetzt. 
Nun, was verbirgt dieses Register. Es zeigt die einzelnen Zustände, die im CIA auftreten 
können, an. Das Register kann nun so programmiert werden, daß beim Auftreten bestimm- 
ter Zustände ein Interrupt an die CPU gesendet wird. Hier nun die einzelnen Bits dieses 
Registers und ihre Funktionen. 
Bit 0 | ist Bit O gesetzt (1), dann tritt ein Unterlauf an Timer A auf. 
Bit 1 | ist Bit 1 gesetzt (1), dann tritt ein Unterlauf an Timer B auf. 
Bit 2 | ist Bit 2 gesetzt (1), dann stimmt die Uhrzeit mit der Alarmzeit überein. . 
Bit 3 | wird gesetzt, wenn das SDR (Serial Data Register) je nach Betriebsart voll oder leer ist. 
Bit 4 | wird gesetzt, wenn am Eingang von Pin 24 (FLAG) eine negative Flanke auftritt. 


BER 3 





ist immer O (ohne Bedeutung). 
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Bit 6 | ist immer O0 (ohne Bedeutung). 

Bit 7 | Die Daten, die im INT-Mask-Register abgelegt werden, bestimmen, bei welchen Ereignis- 
sen ein Interrupt ausgelöst werden soll. Ist ein Bit im INT-Mask-Register gesetzt (1) und es 
wird das gleiche Bit vom CIA im INT-Data-Register gesetzt, dann wird Bit 7 im INT-Data- 
Register gesetzt und gleichzeitig ein Interrupt an die CPU über Pin 21 (-IRQ) gesendet. 
Zugriff: schreiben (INT-Mask). 

Achtung! Beim Schreiben in das INT-Mask-Register werden alle Bits des INT-Data- 
Registers auf Null gesetzt. 

Um Daten in das INT-Mask-Register zu schreiben, muß man sich vorher überlegt haben, 
ob man ein Bit löschen oder ob man es setzen möchte. Dafür ist im INT-Mask-Register das 
Bit 7 zuständig. Die anderen Bits sind identisch mit dem INT-Data-Register. Möchte man 
nun ein Bit löschen, so muß gleichzeitig das Bit 7 gelöscht und das zu löschende Bit ge- 
setzt werden. Soll ein Bit gesetzt werden, so muß Bit 7 gesetzt und gleichzeitig das zu set- 
zende Bit gesetzt werden. 


Reg 14 | CRA (Control Register A) Zugriff: lesen/schreiben. 

Mit diesem Register werden die Betriebszustände des CIA’s bestimmt. Es kommt in die- 
sem Register wieder auf die einzelnen Bits an. 

Bit 0 | Ist Bit 0 gesetzt, dann startet Timer A. 

Ist Bit 0 gelöscht, dann stoppt Timer A. 

Bit 1 | Ist Bit 1 gesetzt, so wird jeder Unterlauf von Timer A an Pin 16 (PB6) signalisiert. Dieses 
Signal hat Vorrang vor der Festlegung im DDRB. Wie das Signal nun aussieht, wird in 
Bit 2 festgelegt. 

Bit 2 | Ist Bit 2 gesetzt, so wird ein Unterlauf von Timer A durch ein Umkippen von PB6 auf das 
jeweils andere Potential signalisiert. 

Ist Bit 2 gelöscht, so wird ein Unterlauf von Timer A durch einen positiven Impuls in der 
Länge eines Systemtaktes (ca. 1 Microsekunde) angezeigt. 

-Ist Bit 3 gesetzt, dann zählt Timer A nur einmal vom programmierten Wert auf Null und 
hält dann an (One Shot Mode). 

Bit 3 | Ist Bit 3 gelöscht, dann zählt Timer A ständig vom programmierten Wert nach Null. Das 
bedeutet, sobald der Timer den Wert Null erreicht hat, beginnt er wieder beim anfangs pro- 
grammiertem Wert auf Null herunterzuzählen (Continious Mode). 

Bit 4 | Ist 4 Bit gesetzt, dann ist es möglich, den Timer zu jedem beliebigen Zeitpunkt mit einem 
neuen Wert zu laden. 

Bit 5 | Ist Bit 5 gesetzt, dann ist es möglich, den Timer A extern zu triggern. Es werden dabei 
die positiven Flanken an Pin 40 (CNT) gezählt. 

Ist Bit 5 gelöscht, dann wird der Systemtakt gezählt. 

Bit 6 | Ist Bit 6 gesetzt, dann werden aus dem Schieberegister Daten herausgeschoben. Es arbei- 
tet als Ausgang. 

Ist das Bit gelöscht, dann arbeitet das Schieberegister als Eingang. 

Bit 7 | Ist Bit 7 gesetzt, so arbeitet die Echtzeituhr mit der Netzfrequenz von 50 Hz. 

Ist das Bit 7 gelöscht, so arbeitet die Echtzeituhr mit der Frequenz von 60 Hz (wie in den 
USA üblich ist). 


Reg 15 | CRB (Control Register B) Zugriff: lesen/schreiben. 

Bit 0 | Ist Bit O gesetzt, dann startet Timer B. 
Ist Bit 0 gelöscht, dann stoppt Timer B. 
Bit 1 | Ist Bit 1 gesetzt, so wird jeder Unterlauf von Timer B am Pin 17 (PB7) signalisiert. Dieses 
Signal hat Vorrang vor der Festlegung im DDRB. Wie das Signal nun aussieht, wird in 
Bit 2 festgelegt. . 
Bit 2 | Ist Bit 2 gesetzt, so wird ein Unterlauf von Timer B durch ein Umkippen von PB7 auf das 
jeweils andere Potential signalisiert. 
Ist Bit 2 gelöscht, wo wird ein Unterlauf von Timer B durch einen positiven Impuls in der 
Länge eines Systemtaktes angezeigt. 
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Bit 3 Ist Bit 3 gesetzt, dann zählt Timer B nur einmal vom programmierten Wert auf Null und 
hält dann an (One Shot Mode). 

Ist Bit 3 gelöscht, dann zählt Timer B ständig vom programmierten Wert auf Null herunter 
(Continious Mode). 

Bit 4 Ist Bit 4 gesetzt, dann ist es möglich in den Timer zu jedem beliebigen Zeitpunkt mit 
einem neuen Wert zu laden und sofort zu starten. 

Bit 5-6 | Mit diesen beiden Bits wird die Betriebsart von Timer B bestimmt. Die Betriebsart des 
Timers ist von beiden Bits abhängig. Es müssen deshalb immer beide Bits abgefragt 
werden, um zu wissen, wie Timer B arbeitet. 

Bit 5 gelöscht/Bit 6 gelöscht 

Der Timer wird vom Systemtakt getriggert. 

Bit 5 gelöscht/Bit 6 gesetzt 

Der Timer wird von positiven Flanken, die an Pin 40 (CNT) auftreten, getriggert. 

Bit 5 gesetzt/Bit 6 gelöscht 

Der Timer B wird von Timer A getriggert. Jeder Unterlauf von Timer A ist dabei ein 
Triggerimpuls. 

Bit 5 gesetzt/Bit 6 gesetzt 

Timer B wird von Timer A nur dann getriggert, wenn an Pin 40 (CNT) ein High-Pegel an- 
liegt (CNT muß 1 sein). Das bedeutet, die Unterläufe von Timer A werden nur dann an 
Timer B weitergegeben, wenn an Pin 40 (CNT) ein High-Pegel anliegt. 

Bit 7 Ist Bit 7 gesetzt, so kann man die Uhrzeit von der Echtzeituhr in den Registern 8-11 
(TOD...) einstellen. 


































Die Aufgaben der CIA’s im C 64 
Die Aufgaben der E/A-Ports von CIA 1: 


Die Tastaturabfrage: 

Die Tastatur ist als eine 8x8-Matrix aufgebaut (siehe Bild 2/2.1.5-1). Diese Matrix 
wird von den zwei 8-Bit-Ports des CIA 1 abgefragt. An Port A von CIA 1 werden 
die Zeilen des Tastenfeldes und an Port B die Spalten abgefragt. Da das Tastenfeld 
des C 64 aber 66 Tasten enthält, die sich jedoch mit einer 8#8-Matrix nur 64 Tasten 
abfragen lassen, werden sich bestimmt schon manche von Ihnen gefragt haben, wie 
das realisiert wird. Die Lösung ist sehr einfach. Die SHIFT-LOCK-TASTE wird 
parallel zu einer SHIFT-Iaste angeschlossen. Nun bleibt noch eine Taste übrig, die 
RESTORF-Iaste. Sie hat nur die Aufgabe, einen NMI auszulösen. Die RESTORE- 
Taste wird deshalb direkt über ein Timer-IC (NE 556), das sich im Steckplatz U20 
auf der Rechnerplatine befindet, angeschlossen. Beim Betätigen dieser Taste gibt 
der Timer einen kurzen Impuls an die NMI-Leitung der CPU weiter. Dieser NMI- 
Anschluß wird bei der Beschreibung des Prozessors noch genauer behandelt. Damit 
sind alle 66 Tasten untergebracht. 
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Bild 2/2.1.5-1: Der Aufbau der Tastatur-Matrix 





Was passiert, wenn nun eine Taste innerhalb der 8x8-Matrix gedrückt wird? 


Zuvor noch ein Hinweis, der zum besseren Verstehen der Tastaturabfrage wichtig ist. 
Wenn am CIA eine Port-Leitung auf Eingang geschaltet ist und diese Leitung nicht 
belegt wird, so interpretiert der CIA-Baustein an diesem Eingang einen High-Pegel 
(logisch 1). 


Die Ein-/Ausgabeleitungen (PAO bis PA7 und PBO bis PB7) werden beim Einschal- 
ten Ihres Rechners vom Betriebssystem programmiert. Der Port A (PAO bis PA7) 
arbeitet als Ausgang und der Port B (PBO bis PB7) arbeitet als Eingang. Da diese 
Eingänge ja nicht beschaltet sind (das heißt, es liegt kein definierter Zustand logisch 
0 oder 1 an), bedeutet das für den CIA, daß nun an allen Eingängen ein High-Pegel 
anliegt. Tritt nun ein Interrupt auf (normal jede 1/60 Sekunde), ausgelöst vom 
Timer des CIA 1, so fragt das Betriebssystem unter anderem auch die Tastatur ab. 
Bei dieser Abfrage geschieht nun folgendes: 
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Es wird der Port A (PA0O bis PA7 alle Leitungen gleichzeitig) für einen kurzen 
Moment auf Low-Pegel gesetzt. Solange nun dieser Port einen Low-Pegel führt, 
wird Port B der Reihe nach von PAO bis PA7 abgefragt. Wenn nun eine Taste inner- 
halb der 8=8-Matrix gedrückt wird, so liegt an einem dieser Port-Leitungen ein Low- 
Pegel an. Sobald dieser Low-Pegel an einer der Port-Leitungen erkannt wird, weiß 
die CPU, daß eine Taste gedrückt ist. Sie muß jetzt nur noch herausfinden, welche 
Taste in der Tastaturmatrix gedrückt ist. Dazu schaltet die CPU der Reihe nach die 
einzelnen Port-Leitungen von Port A (PAO bis PAT7) auf Low-Pegel und überprüft 
dabei, wann an einer Portleitung von Port B ein Low-Signal auftritt. Ist die Leitung 
gefunden, steht die genaue Position der gedrückten Taste in der 8+8-Matrix fest. 
Diese Bitkombination kann das Betriebssystem jetzt auswerten. Sie können die ein- 
zelnen Positionen der Tasten aus der Matrix der Zeichnung 2/2.1.5-1 entnehmen. 


Die Joystick-Abfrage 


Eine weitere Aufgabe der Ein-Ausgabe-Ports von CIA 1 ist die Joystick-Abfrage an 
die Control-Ports 1 und 2. Es werden für die Joystick-Abfrage jeweils 6 Leitungen 
pro Joystick und Controlport genutzt. Davon werden vier Leitungen für die vier 
Hauptrichtungen oben, unten, links und rechts genutzt. Die fünfte Leitung signali- 
siert den Feuerknopf und die sechste Leitung ist der Masse-Anschluß. Hier nun die 
Pinbelegung der für die Joystick-Abfrage benötigten Anschlüsse: 


Von Control-Port 1 werden folgende Anschlüsse benötigt: 


Pin vom Stecker Signal CIA Pin 
oben: 1 JOY AO PBO (10) 
unten: 2 JOY Al j PBI (11) 
links: 3 JOY A2 PB2 (12) 
rechts: 4 JOY A3 PB3 (13) 
Feuer: 6 Button A/LP* PB4 (14) 
Masse: 8 GND —- © 


* Dieser Eingang wird auch verwendet um einen Light-Pen anzuschließen (wie 
schon beschrieben). 


Von Control-Port 2 werden folgende Anschlüsse benötigt: 


Pin vom Stecker Signal CIA Pin 
oben: 1 JOY BO PAO (2) 
unten: 2 JOY Bl PA1 (3) 
links: 3 JOY B2 PA2 (4) 
rechts: 4 JOY B3 PA3 (5) 
Feuer: 6 Button B PA4 (6) 
Masse: 8 GND — © 


Die Anschlußbelegung der Control-Ports können Sie aus dem 2. Teil des Kapitel 
2/1.1.1.2 über die Control-Ports entnehmen. 
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Aufbau eines Joysticks: 


Im Inneren des Joysticks befinden sich fünf Schaltkontakte (vier Richtungen und 
der Feuerknopf), die im Ruhestand geöffnet sind. Wird der Joystick nun bewegt, 
so wird ein Schaltkontakt betätigt. Dieser Schaltkontakt legt nun an den entspre- 
chenden Port des CIA 1 ein Low-Signal. Kommt am CIA dieses Signal an, so wird 
es verarbeitet und führt je nach Programmierung einen Befehl aus. Zum besseren 
Verstehen betrachten Sie bitte den Schaltplan (s. Seite 9). 


Die Aufgaben der E/A-Ports von CIA 2 (NMI-CIA): 


Die Ein-/Ausgabe-Ports von CIA 2 werden hauptsächlich für Datenübertragungen 
genutzt. 


Von Port A sind nun folgende Leitungen belegt: 


Bit O0 und Bit 1 dienen zur Festlegung der Video-Bank für den VIC-II-Chip. Das 
heißt, mit diesen beiden Leitungen wird der Speicherbereich, der vom VIC-II-Chip 
genutzt werden kann, festlegt. 


Bit 2 wird für die Datenausgabe bei einer angeschlossenen RS-232 Schnittstelle be- 
nötigt (TXD). 


Die übrigen Bits werden für die Übertragung der seriellen Schnittstelle benötigt. 


Bit 3: ANT OUT (Attention-Leitung) 

Bit 4 CLOCK OUT (Taktleitung Ausgang) 
Bit 5: SERIAL OUT (Datenleitung Ausgang) 
Bit 9 CLOCK IN (Taktleitung Eingang) 
Bit 7: SERIAL IN (Datenleitung Eingang) 


Port B wird im Normalbetrieb nicht benutzt. Die Leitungen von Port B sind voll- 
ständig an den USER-Port herausgeführt und stehen dort zur freien Verfügung. 
Wird am USER-Port eine RS-232-Schnittstelle angeschlossen, sind die Port- 
Leitungen von Port B wie folgt belegt: 


Bit 0: RXD (Receive Data) 

Bit 1: RTS (Request To Send) 

Bit 2: DTR (Data Terminal Ready) 
Bit 3: RI (Ring Indicator) 

Bit 4 DCD (Data Carrier Detect) 
Bit 5: unbenutzt 

Bit 6 CTS (Clear To Send) 

Bit 7: DSR (Data Set Ready) 
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2/2.1.6 
Das logische Progammiierfeld (PLA) 





Das PLA (Programable Logic Array, engl. programmierbares Logikfeld) ist ein spe- 
zieller IC, der, im Fall des C 64, über 16 Eingabeleitungen und 8 Ausgabeleitungen 
verfügt. Intern besitzt er eine Vielzahl möglicher logischer Verknüpfungen, um die 
Ausgangssignale aus den Eingangssignalen zu erzeugen. Der IC im € 64 wurde so 
programmiert, daß er den wesentlichen Teil der Adreßdekodierung übernimmt. Im 
folgenden ist die Anschlußbelegung im C 64 wiedergegeben: 

















































Name Beschreibung 
1 NG Nicht benutzt 
2-4 A13..A15 Adreßleitungen 13 bis 15 
5 VA1A Adreßleitung 14 des Video-Bereichs 
6 CHAREN CHAREN vom Prozessorport 
7 HIRAM HIREM vom Prozessorport 
8 LORAM LORAM vom Prozessorport 
8 CAS Signal vom VIC zur RAM-Steuerung 
10 ROML Signal zum Modulport 
11 ROM H Signal zum Modulport 
12 VO aktiviert Adreßdecoder für /O-Bereich 
13 GR/W R/W-Signal für das Farbram 
14 GND Versorgungsspannung: Masse 
15 CHAROM Auswahlsignai Zeichensatz-ROM 
16 KERNAL Auswahlsignal Betriebssystem-ROM 
17 BASIC Auswahlsignal Basic-ROM 
18 CASRAM CAS-Signal für RAMs 
19 OE Output-Enable-Signal: aktiviert das PLA. 
Im C 64 ist das PLA immer aktiviert. 
20-21 VA12.VA13 | Adreßleistungen 12-13 des Video-Bereichs 
22 GAME Eingangssignal vom Modulport 
23 EXROM Eingangssignal vom Modulport 
24 R/W R/W-Signal vom Prozessor 
25 AEC AEC-Signal vom VIC 
26 BA BA-Signal vom VIC 
27 A112 Adreßleitung 12 
28 VCC Versorgungsspannung: +5V 








Um die vielen Steuermöglichkeiten des PLAs zu verstehen, sind hier die wichtigsten 
noch einmal kurz beschrieben: 


/CHAREN, /HIRAM und /LORAM (Pin 6, 7 und 8) 


sind die drei Speicherverwaltungssignale, die vom Prozessorport kommen. Mit Hilfe 
dieser drei Signale entscheidet das PLA, welche Bausteine in welchen Speicher- 
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AIS 





















VAI4 RW 
ICHAREN JEXROM 
{HIRAM IGAME 
/LORAM VA15 
ICAS VA12 
/ROM L IOE 

/ROM H ICASRAM 
AO IBASIC 
GRW /KERNAL 
GND /CHAROM 








bereich eingeblendet werden. Da die Auswirkungen bereits im Kapitel 3/1.1 ausführ- 
lich dargestellt sind, soll hier nicht weiter darauf eingegangen werden. 


/CHAROM, /KERNAL und /BASIC (Pin 15, 16 und 17) 


sind die Bausteinauswahlsignale für die drei ROMs des C 64. Das PLA steuert über 
diese Signale den Zeichensatz (CHAROM), das Betriebssystem (KERNAL) sowie 
den Basic-Interpreter an (BASIC). 


/GAME und /EXROM (Pin 22 und 23) 


EXROM und GAME sind Signale, die vom Modulport kommen. Mit Hilfe dieser 
Signale wird ein eingestecktes Modul erkannt. Die folgende Tabelle gibt kurz die 
sinnvollen Auswirkungen der Signale wieder: 
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2/2.1.6 
Das logische Progammierfeld (PLA) 





Das PLA (Programable Logic Array, engl. programmierbares Logikfeld) ist ein spe- 
zieller IC, der, im Fall des C 64, über 16 Eingabeleitungen und 8 Ausgabeleitungen 
verfügt. Intern besitzt er eine Vielzahl möglicher logischer Verknüpfungen, um die 
Ausgangssignale aus den Eingangssignalen zu erzeugen. Der IC im C 64 wurde so 
programmiert, daß er den wesentlichen Teil der Adreßdekodierung übernimmt. Im 
folgenden ist die Anschlußbelegung im C 64 wiedergegeben: 


Name Beschreibung 


NG Nicht benutzt 

A13..A15 Adreßleitungen 13 bis 15 

VA14 Adreßleitung 14 des Video-Bereichs 
CHAREN CHAREN vom Prozessorport 

HIRAM HIREM vom Prozessorport 

LORAM LORAM vom Prozessorport 

CAS Signal vom VIC zur RAM-Steuerung 
ROML Signal zum Modulport 

ROM H Signal zum Modulport 

VO aktiviert Adreßdecoder für l/O-Bereich 
GRI/W R/W-Signal für das Farbram 

GND Versorgungsspannung: Masse 
CHAROM Auswahlsignal Zeichensatz-ROM 
KERNAL Auswahisignal Betriebssystem-ROM 
BASIC Auswahlsignal Basic-ROM 

CASRAM CAS-Signal für RAMs 

OE Output-Enable-Signal: aktiviert das PLA. 
Im © 64 ist das PLA immer aktiviert. 
VA12.VA13 | Adreßleistungen 12-13 des Video-Bereichs 
GAME Eingangssignal vom Modulport 
EXROM Eingangssignal vom Modulport 

R/W R/W-Signal vom Prozessor 

AEC AEC-Signal vom VIC 

BA BA-Signal vom VIC 

A12 Adreßleitung 12 

VCC Versorgungsspannung: +5V 

















Um die vielen Steuermöglichkeiten des PLAs zu verstehen, sind hier die wichtigsten 
noch einmal kurz beschrieben: 


/CHAREN, /HIRAM und /LORAM (Pin 6, 7 und 8) 


sind die drei Speicherverwaltungssignale, die vom Prozessorport kommen. Mit Hilfe 
dieser drei Signale entscheidet das PLA, welche Bausteine in welchen Speicher- 
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LoRAM | GAME | EXROM | AUSWIRKUNG 





keine 
8K ROM-Modul von $8000 bis $YIFFF 
16K ROM-Modul von $8000 bis $BFFF 


1 1 
1 1 
1 0 
0 0 8K ROM-Modul von $A000 bis $BFFF 


oOo0- 


/ROM L und /ROM H (Pin 10 und 11) 


ROM L und ROM H sind die Bausteinauswahlsignale für die zwei ROM-Bausteine 
des Modulports. ROM L steuert dabei den Baustein für den Speicherbereich von 
$8000 bis $OIFFFF und ROM H den Baustein für den Bereich von $A000 bis $BFFF. 








Teil 2 Kapitel 2.1.6 Seite 4 








Interner Aufbau 





2.1 C64 Teil 2: Hardware-Beschreibung 





Teil 2 Kapitel 2.2.1 Seite 1 





Interner Aufbau 








Teil 2: Hardware-Beschreibung 


2/2.2 
Interner Aufbau des C 128 PC 





Nach dem Aufbau des C 64 wollen wir natürlich auch den des C 128 besprechen. 
Wir beginnen mit einer allgemeinen Einführung, die auch ein Blockschaltbild der 
vorhandenen Bausteine beinhaltet. Es folgt die Beschreibung der einzelnen Bau- 
steine, wie des Prozessors 8502, des 80-Zeichen-Videokontrollers (VDC), des Z 80 
A-Prozessors, der Speicherverwaltung MMU und des logischen Programmierfeldes 
(PLA). Außerdem wird noch der Videokontroller für den 40-Zeichen-Monitor be- 
schrieben, da sich beim 8564 einige Änderungen gegenüber dem 6567 im C 64 er- 
geben haben. 


Den Abschluß des Kapitels über den internen Aufbau des C 128 bildet eine Darstel- 
lung der Busleitungen sowie eine Zusammenfassung, die insbesondere auf das Zu- 
sammenwirken der einzelnen Bausteine eingeht. 


2/2.2.1 


Einführung mit Blockschaltbild 
(Autor: Adrian Naftanail) 





Obwohl der C 128 meistens als Nachfolger des legendären C 64 vorgestellt wird, ist 
er eigentlich viel mehr als eine einseitige Weiterentwicklung seines Vorgängers. Er 
besitzt nämlich die Fähigkeiten von drei Computern in einem. Auf Benutzerebene 
schlägt sich diese Tatsache im Vorhandensein von drei Arbeitsmodi nieder, und 
zwar: 


— der C 64-Modus, 100%ig kompatibel mit dem C 64, da sein Vorgänger intern 
durch die Hardware simuliert wird. Es stimmen also auch alle Systemadressen 
überein, und die Wirkungen der verschiedenen POKP’s sind somit genau die- 
selben. 
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— der C 128- oder eigene Modus. Dieser Modus stellt eine Erweiterung der Fähig- 
keiten des C 64 bis auf die Ebene eines Personal-Computers mit professioneller 
80-Zeichen-Ausgabe und doppelter Arbeitsgeschwindigkeit dar. Die eingebaute 
Basic-Version 7.0 erfüllt viele Wünsche die noch offen standen, und die hervor- 
ragenden Möglichkeiten im Bereich Grafik und Sound können auch ohne um- 
ständliche POKE’s oder schreiben von umfangreichen Programmteilen zur Gel- 
tung gebracht werden. 


— Der CPM-Modus verwandelt schließlich den C 128 in ein leistungsfähiges Werk- 
zeug unter dem Betriebssystem CPM Version 3.0 im 2-MHz-Takt, und erweitert 
somit beträchtlich das ohnehin schon sehr umfangreiche Angebot existenter 
Software. 


Für den interessierten Computer-Fan und den fortgeschrittenen Benutzer bleibt das 
Vorhandensein der drei Betriebsmodi nicht nur ein äußerliches Merkmal, sondern 
spiegelt sich unübersehbar in der Hardware des C 128 wieder. Es ist sozusagen das 
Zusammenleben von drei Computern in einem Gehäuse, wobei allerdings sehr viele 
Bausteine zur gemeinsamen Benutzung in allen drei Systemen bereit stehen, andere 
jedoch ausgeschaltet oder nur mit beschränkter Funktion benutzt werden. 


Um den internen Aufbau und die Funktionsweise leichter verstehen zu können, stel- 
len wir das Blockschaltbild des Computers dar (Bild 2/2.2.1-1). In den nächsten Ka- 
piteln folgt eine genauere Beschreibung der einzelnen Bauteile, und im letzten Kapi- 
tel eine Zusammenfassung der Beziehungen dieser Abschnitte zueinander, sofern 
dies nicht notwendigerweise im Zusammenhang mit der Betrachtung der Bausteine 
in den vorangegangenen Kapiteln bereits geschehen ist. 


Bevor wir mit dem Kommentar des Blockschaltbildes fortfahren, betrachten wir 
nochmals global die für den Benutzer interessanten Eigenschaften des C 128. Der 
C 64-Modus simuliert absolut seinen Vorgänger, kann aber nicht die weiteren Mög- 
lichkeiten des Systems ausschöpfen. Für den Betrieb im eigenen Modus wurde der 
Commodore-Kernal auf eine kompatible Weise erweitert. Es stehen 128KB RAM 
für Benutzer und System zur Verfügung, mit eingebauter Basic-Version 7.0. Intern 
müssen die 128KB RAM allerdings in Bereiche (sogenannte Banks) aufgeteilt wer- 
den, da.der Prozessor über seinen Adreßbus höchstens 64KB adressieren kann. 
Stack und Zero-Page können verlegt werden, was manche Umständlichkeiten bei 
der Software-Erstellung erspart. Das Standard-ROM des Systems beträgt 48KB. Da- 
zu kommen noch 32KB ROM für interne Funktionen und die Anschlußmöglichkeit 
einer externen 32KB ROM-Erweiterung. Der Z80-Coprozessor kann die 128KB 
RAM sowie die Kernal-Utilities voll benutzen. 


Die zum C 64 zusätzlich eingebauten Funktionstasten sind vom Benutzer frei pro- 
grammierbar. Die bekannten Ein- und Ausgabe-Möglichkeiten werden mit einer 
zweifach schnelleren Monitor-Ausgabe, einem schnelleren Interface zum Disketten- 
laufwerk und einem Audio-Eingang des SID-Chips zum Mischen von externen 
Audio-Signalen verbessert. 
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Im folgenden werden wir nun anhand des Blockschaltbildes 2/2.2.1-1 die internen 
Zusammenhänge etwas näher betrachten. Damit die Verständlichkeit nicht durch 
nebensächliche Klammern erschwert wird, werden Bausteine und Signale mit dem 
Kurznamen erwähnt. Der Sinn der Bezeichnungen kann dann aus den folgenden 
Kapiteln entnommen werden. 


Der Kommunikation des Prozessors mit den untergeordneten Bau-Elementen steht 
im C 128 eine sogenannte Teilhaberbus-Struktur zu Grunde. Dies erlaubt geteilten 
Zugriff auf das Zeichen-ROM, Farb-RAM und System-RAM sowohl von Seiten des 
Prozessors, wie auch des 8564-VIC Video-Controllers ohne das Zwischenschalten 
eines Interfaces oder die Benutzung eines Coprozessors (wie im C 64). Damit dies 
möglich ist, muß das RAM schnell genug sein, um in einem halben Maschinen- 
zyklus die geforderten Daten zur Verfügung stellen zu können, und der Adreßbus 
wird in einen geteilten und in einen nicht geteilten Bereich gespaltet. 


Alle normalen 65xx-Ein-/Ausgabeteile bleiben auf dem nichtgeteilten Adreßbus, 
während der VIC-Chip und seine unterstützenden Chips auf dem geteilten Bereich 
arbeiten. Der VIC-Chip schleust die Prozessoradressen auf den geteilten Busbereich 
mittels seiner AEC-Leitung. Die Kommunikation des Prozessors mit der Ein- und 
Ausgabe und dem ROM wird von der PLA durch Chip-select Signale geregelt. 


Der Zugriff des Prozessors auf das RAM wird von der MMU mit der übersandten 
Adresse, der Ausgangsadresse (stets als übersetzte Adresse angesprochen), sowie des 
Eintrages im MMU-Konfigurationsregister und RAM-Konfigurationsregister ver- 
waltet und auf eine der zwei 64KB RAM-Bereiche verteilt. Der Zugriff des VIC auf 
die RAM-Banks ist unabhängig davon festsetzbar. 


Der Inhalt des MMU-Konfigurationsregisters’ ist dem PLA-Decoder bekannt und 
bestimmt somit die Generierung aller nötigen Chip-select-Signale für Peripherie, 
Prozessoranteil am Speicher, Farb-RAM, VIC-Register u.s.w. 


Die Hauptaufgabe des VIC ist die für den Bildschirm nötigen Daten aus dem Spei- 
cher zu holen und dann daraus Monitor-Signale und ein moduliertes TV-Signal zu 
produzieren. Der 8563 Video-Controller erzeugt einen RGBI-Ausgang für einen 
Monitor mit 80-Zeichen-Ausgabe. 


Der serielle Bus-Port, der User-Port und die Joystick-Ports entsprechen den C 64- 
Ports und werden über die zwei 6526 CIA-Chips betrieben. 


In den folgenden Kapiteln werden wir nun die einzelnen Bausteine und ihre Funk- 
tionen genauer unter die Lupe nehmen. 











Interner Aufbau Teil 2 Kapitel 2.2.2 Seite 1 








2.2 C 128 PC Teil 2: Hardware-Beschreibung 


2/2.2.2 
Der 8502-Mikroprozessor (CPU) 





Der 8502-Mikroprozessor ist eine Weiterentwicklung des 6510/6502 und ist die ope- 
ricrende Zentraleinheit im C 128-Modus. Da er mit den im C 64 befindlichen Pro- 
zessoren, 6510 oder auch 6502 softwaremäßig voll kompatibel ist, stellt er auch im 
C 64-Modus die Zentraleinheit dar. Er benutzt ebenso einen Zero-Page-Port für die 
Speicherverwaltung und Kommunikation mit dem Kassettenrekorder. 


Zusätzlich besteht aber für den 8502 die Möglichkeit im 2-MHz-Iakt zu arbeiten. 
Uneingeschränkt im 2-MHz-JTakt arbeiten kann der 8502 allerdings nur im Zusam- 
menhang mit dem 8563 Video-Controller (für die 80-Zeichen-Ausgabe zuständig — 
siehe Kapitel 2/2.2.4), da die restlichen Teile für die Verwaltung der Ein- und Aus- 
gabe, sowie der 8564 Ersatz-Chip des älteren 6567 VIC-Chips (im C 64-Modus als 
Video-Interface und auch als Coprozessor fungierend) nur mit 1-MHz-Takt arbeiten 
können. In diesem Fall wird der VIC als Video-Interface aus dem System ausge- 
schaltet und behält lediglich seine Funktion als allgemeiner Taktgeber, also 2 MHz 
für den Prozessor und 1 MHz für die peripheren Bausteine. Im Falle eines Zugriffs 
auf langsamere Bausteine ist er befähigt, den 2-MH7z-Takt des Prozessors auf I MHz 
zu strecken. 


Zum besseren Verständnis der Funktionsweise folgt nun eine Beschreibung der Ein- 
und Ausgänge des Prozessors: 












Pin Name Beschreibung 
PHI-O Eingang für die Systemuhr (1-2 MHz) 
RDY Ready; Eingang zur Steuerung des Speicherzugriffs 
ARQ Interrupt request; Unterbrechungssignal 
/NMI Nicht maskierbare, d.h. nicht ignorierbare Unterbrechungs- 
aufforderung 
AEC Adreß-Steuersignal 
VCC Stromversorgung 
7-23 AO-A15 Die Ausgänge des Adreßbusses 
(ohne 21) 
21 VSS Masse-Leitung O Volt 
24-30 P6-PO Ein-/Ausgänge des bidirektionalen Daten-Ports 
31-38 D7-DO Ein-/Ausgänge des Datenbusses von und zu den peri- 
pheren Bausteinen 5 
39 RW Ausgang zur Kontrolle der Richtung des Datentransfers. 


Der Ausgang ist hoch fürs Lesen und liegt tief fürs Schrei- 
ben in und aus dem Speicher. 
40 RES Reset; Neustart 
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Es folgen nun ein paar Erläuterungen zu den wichtigeren Anschlüssen. 





ie 
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Bild 2/2.2.2-1 Der 8502-Mikroprozessor. 
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/IRQ 


Über diesen Eingang wird der Prozessor zu einer Unterbrechung aufgefordert. Nach 
Abschluß der laufenden Befehlsequenz prüft der Prozessor das Interrupt-Flag 
seines PSR (Prozessor Status Register), und falls nicht gesetzt, beginnt er mit der 
Ausführung der Interrupt-Routine. Dies geschieht, indem der Prozessor, nach 
Sichern des Programmzählers und Status-Registers auf dem Stapel, sowie nach 
Setzen des I-Flags, um andere Unterbrechungen zu vermeiden, den Programm- 
zähler aus Speicheradresse $FFFE und $FFFF lädt, und dann sein Programm an 
der dort befindlichen Adresse fortsetzt. 


/NMI 


Der Prozessor wird dadurch zu einer ähnlichen Unterbrechung veranlaßt. Im Ge- 
gensatz zu /IRQ ist die Unterbrechung nicht vermeidbar (keine Flag-Überprüfung) 
und der Programmzähler wird aus Adresse $FFFA und $FFFB geladen. 


AEC 


Der Adreßbus kann nur bei hohem AEC zur Geltung kommen, da er bei tiefem 
AEC in einen hochohmigen Zustand versetzt wird und somit den Speicherzugriff 
einer anderen Einheit (z.B. Coprozessor) freigibt. 


RES 


Über diesen Eingang kann der Prozessor mittels einer von der Elektronik erzeugten 
positiven Spannungsspitze zum Neustart veranlaßt werden. Dies bedeutet Setzen des 
I-Flags und Laden des Programmzählers mit dem Inhalt der Speicheradresse 
$FFFC und $FFFD. 
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2/2.2.3 


Der Z80-Mikroprozessor 





Es war wohl die Verbreitung und die Bekanntheit des Z80, sowie die Menge guter 
Software, die auf diesem Mikroprozessor lauffähig ist die Commodore veranlaßten, 
den Z80 in den C 128 fest einzubauen. Im Vergleich zur Möglichkeit das System mit 
einer Z80-Karte zu erweitern, die es ja schon bei dem C 64 gab, wird durch den 
festen Einbau die Handhabung des ganzen Systems wesentlich erleichtert und somit 
die Benutzerfreundlichkeit verbessert. Im allgemeinen ist zu bemerken, daß die 
Hardware des C 128 so ausgelegt wurde, um die Benutzung schon vorhandener 
Software zu ermöglichen, was eigentlich für Computer dieser Preiseklasse nicht un- 
bedingt üblich ist. 


Obwohl, wie man oft hören kann, alle Mikroprozessoren ähnlich konzipiert sind, 
benötigen, durch die Wahl der einen oder anderen technischen Lösung bedingt, die 
Endprodukte des einen oder anderen Herstellers eine oft recht verschiedene kon- 
krete Umgebung um auch praktisch zu funktionieren. Diese Umgebung besteht aus 
Hilfsbausteinen für Ein- und Ausgabe, Speicher, Taktgeber usw. die zusammen eine 
sogenannte Familie bilden. Die Integration eines Bausteines aus einer anderen Pro- 
duktfamilie ist meistens ohne einigen Aufwand auf der Ebene der Elektronik nicht 
zu bewältigen. 


Im C' 128 befinden sich hauptsächlich Bausteine der 85xx-Familie. Dazu kommen 
noch Elemente der 65xx-Vorgängerfamilie, mit der sie softwaremäßig zwar voll kom- 
patibel sind, hardwaremäßig aber nur teilweise demselben Standard entsprechen, 
und schließlich der Z80 A-Prozessor als einziger völlig fremder Baustein. Es ist 
Commodore trotzdem gelungen, den Z80 so zu integrieren, daß er praktisch auf alle 
Möglichkeiten des restlichen Systems eingehen kann. Wir beschreiben nun im fol- 
genden auf welche Art und Weise die Eingliederung des Z80 in die 85xx-Familie 
durchgeführt wurde. 


Obwohgl der Z80 auch als Coprozessor angesprochen wird, ist dies eigentlich nicht 
richtig. Es gibt keine parallele Zusammenarbeit zwischen dem 8502 und dem Z80, 
wie es in einem echten Coprozessorsystem der Fall ist, da immer nur einer der bei- 
den Prozessoren über den Bus verfügen kann. Die Regelung des Zugangs für den 
Z80 auf den Prozessorbus bedarf mehr als einem einfachen Steuersignal zur Berech- 
tigung des Zugriffs, da das Protokoll, wonach der Z80 die Steuersignale für die Ver- 
waltung seines Busses annimmt bzw. abgibt, nicht mit demjenigen der 85xx-Familie 
übereinstimmt. Der Z80 selbst ist nur an einen lokalen Bus seines Typs direkt ver- 
bunden, der einerseits die zu lesenden Daten — durch ein Latch geführt — über- 
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nehmen darf, andererseits die zu schreibenden Daten — während AEC hoch ist — 
über ein Gatter auf den Prozessorbus setzen kann. 


Die nötigen Steuersignale für das Lesen und Schreiben laufen beim Z80 über die 
Leitungen /RD und /WR. Die Steuerung des Lesevorganges ist einfach, da der Z80 
über den /RD-Ausgang seine Absicht direkt mitteilt und dadurch die Daten vom 
Prozessorbus auf seinen eigenen Bus holen kann. Die Steuerung des Schreibvorgan- 
ges ist aber nicht mehr so problemlos. Der /WR-Ausgang wird von einer Flip-Flop- 
und einer Transistorschaltung unter Beachtung des AEC und des Taktimpulses ver- 
arbeitet, um die R/W-Leitung des 8502-Prozessors an die MMU zu simulieren. 
Außerdem ist der Z80 so konzipiert, daß er Schreib-/Lesezyklen für Speicher und 
Ein-/Ausgabe unterscheidet, während die 85xx-Familie die Kommunikation nur 
über den Speicher erledigt, wobei Ein-/Ausgabeeinheiten über die V/O-Bereiche 
adressiert werden, die sowohl im C 64 als auch im C 128 vertreten sind (siehe z.B. 
Kapitel 3/1.1 für den C 64). 


Dieses Problem, sowie der Zugriff des Z80 auf die C 128 Kernal-Utilities, können 
aber durch Eingreifen des 8502 gehandhabt werden. Es bedarf dazu allerdings eines 
Mechanismuses, der die gegenseitige Übergabe der Systemkontrolle regelt. Die Um- 
schaltung wird über die /BUSAK- und /BUSRQ-Leitungen beim Z80 bzw. AEC 
und RDY beim 8502 in Verbindung mit der /Z80EN-Leitung der MMU und BA- 
Leitung des VIC kontrolliert. 


Weil der Z80 beim Einschalten empfindlich ist und keinen fremden Eingriff tole- 
viert, wird das System durch diesen Prozessor hochgefahren. Nach einigen Initiali- 
sierungszyklen kann dann der Z80 den 8502-Prozessor im C 64- oder C 128-Modus 
starten oder selbst die Kontrolle behalten. Übrigens ist das Vorhandensein eines 9V- 
Anschlusses nur durch das Dasein des Z80 bedingt, da die notwendige Minimal- 
spannung für den Eingang seines Taktgebers über dem von der 85xx-Familie liefer- 
baren Niveau liegt. Der Taktimpuls des VIC-Chips muß deswegen von einer Transi- 
storschaltung erst auf die richtige Höhe gebracht werden bevor er zum Z80 kommt. 


Wir vervollständigen nun die Beschreibung des Z80 mit der Angabe der Anschlüsse 
dieses wichtigen Bausteins: 








Pin Name Beschreibung 
1-5 AN1-A15 
30-40 AO-A10 Der Adreßbus. Wird über 16-Bit für die Speicheradressie- 


rung und über 8-Bit für Ein-/Ausgabe (also bis zu 256 
Ports) benutzt. Die unteren 7 Bits werden zum Auffrischen 
des Speichers benutzt. 


6 PHI Eingang für die Systemuhr. 

7-14 DO-D7 Ein-/Ausgänge für den 8-Bit-Datenbus. 

(ohne 11) (genaue Pin-Folge in Bild 2/2.2.3-1) 

11 +5V Stromversorgung. 

16 ANT Eingang zur Unterbrechungsaufforderung. 

17 INMI Nicht maskierbare Unterbrechungsaufforderung. 


18 JHALT Haltezustand. 
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Name Beschreibung 

19 /MEMREQ Dieser Ausgang siganlisiert, daß der Adreßbus eine gültige 
Adresse für einen Speicher- oder Ein-/Ausgabezyklus führt. 

20 1ORQ Ankündigungssignal für Ein-/Ausgabe. 

21 IRD Ausgang wodurch der Prozessor einen Lesevorgang an- 
kündigt. Damit können die Daten vom Prozessorbus geholt 
werden. 

22 WR Über diesen Ausgang wird signalisiert, daß der Datenbus 
gültige Daten führt. 

23 /IBUSAK Ausgangssignal zur Anerkennung der Freigabe des Busses. 

24 IWAIT Dieser Eingang wird benutzt um den Prozessor in einen 
Wartezustand zu bringen. 

25 /BUSRQ Eingang, über den andere Teilnehmer Daten, Adressen 
und Steuersignale für die Busverwaltung vom Prozessor 
anfordern. 

26 /IRESET Eingang, über den der Z80 zum Neustart gezwungen wird. 

27 /M1 Zeigt Maschinenzyklus 1 an. 

28 IRFSH Gibt an, daß die unteren 7 Bits des Adreßbusses eine 






Adresse für Auffrischungslesen enthalten. 
Masse-Leitung OV 






Wir schließen nun das Kapitel mit einigen zusätzlichen Erklärungen, die im engen 
Rahmen der obigen Aufzählung nicht genügend Platz fanden. 


/INT 


Der Aufforderung wird nur nach Abfrage des Interrupt-Flags und falls die 
/BUSRQ-Leitung nicht aktiv ist, Folge geleistet. Gleichzeitig gibt der Prozessor ein 
Anerkennungssignal ab, und zwar über die Leitung /IORQ. Der Z80 kennt drei ver- 
schiedene Arten für die Beantwortung einer Unterbrechung, je nach Modus. 


/NMI 


Diese Art von Unterbrechungsaufforderung kann nicht abgelehnt werden. Sie wird 
immer nach Ausführung der gerade laufenden Befehlsfolge anerkannt, und zwingt 
den Prozessor — nach Sichern des Programmzählers auf dem Stapel — sein Pro- 
gramm bei Adresse $0066 fortzusetzen. Es ist noch zu bemerken, daß ein dauernder 
Wartezustand die Anerkennung verschieben kann, und daß /BUSRQ noch vor 
/NMI an den Zug kommen kann. 


/HALT 


Diese Zustand tritt nach Ausführung einer HALT-Anweisung ein. Während dieses 
Zustandes werden leere Anweisungen ausgeführt (NOP’s), damit das Auffrischen 
des zugehörigen Speicherbereiches fortgesetzt wird. Der Zustand wird durch eine 
Unterbrechung oder Busabgabe beendet. 
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/IORQ 


Zeigt das Vorhandensein einer gültigen Adresse für eine Ein-/Ausgabeoperation auf 
der unteren Hälfte des Adreßbusses an. Dieses Signal wird auch im Falle eines Inter- 
rupts, zusammen mit einem /MiI-Signal erzeugt, um anzuzeigen, daß ein Vektor für 
die Beantwortung der Unterbrechung auf den Datenbus gelegt werden kann. 


/M1 


/Mi zeigt an, daß während des gerade laufenden Maschinenzykluses der Opera- 
tionscode eines Befehls eingelesen wird. Falls es sich um einen 2-Byte-Befehl han- 
delt, wird /Ml1 beim Einlesen eines jeden Bytes generiert. /Ml wird auch zusammen 
mit /IORQ benutzt, um die Anerkennung einer Unterbrechung zu signalisieren. 
Während /Ml werden keine Ein-/Ausgabeoperationen durchgeführt. 
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Bild 2/2.2.3-1 Der Z80-Mikroprozessor 
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2/2.2.4 
Der 8563-Video-Controller (VDC) 





Wie schon erwähnt, ermöglicht der Video-Display-Controller eine professionelle 
80-Spalten- und 16-farbige Ausgabe auf einem RGBI-Monitor. Der Speicherbedarf 
für Zeichen und auszugebende Informationen wird von einem eigenen DRAM ge- 
deckt, um den Speicherplatz des System-DRAM’s nicht zusätzlich zu kürzen. Die 
Verbindung zum eigenen DRAM geht über einen lokalen Display-Bus, der dem 
8502-Prozessor nicht zugänglich ist, und die Verwaltung dieses DRAM-Bereiches 
(Lesen, Schreiben, Auffrischen) erledigt der 8563-Video-Controller allein. Die Kapa- 
zität des angeschlossenen DRAM’s kann, unter Benutzung von zwei 4416 DRAM- 
Einheiten, 16K oder 64K betragen, falls acht 4164 DRAM-Chips benutzt werden. 
Vorläufig wurde im C 128 die erste Konfiguration gewählt, und sie wird in einem 
internen Register festgelegt. Damit berühren wir auch das wichtigste Thema in der 
Beschreibung des 8563-Video-Controllers, und zwar: 


Die Register des VDC 


Von außen gesehen, besteht der 8563 aus nur zwei Registern, sogenannten externen 
Registern. Diese zwei Register werden im I/O-Bereich ab Stelle $D600 adressiert und 
schaffen den Zugang zu den 37 informationshaltigen internen Registern des Bau- 
steins. Ins erste der beiden externen Register, Adreß/Status-Register genannt, kann 
in dessen untere 5 Bits die Adresse (d.i. in diesem Fall einfach die Nummer) des in- 
ternen Registers, für das der Zugriff bestimmt ist, geschrieben werden. Die oberen 
Bits enthalten Statusinformationen und werden beim Lesen des Registers in einem 
Status-Byte ausgegeben. Das zweite externe Register, auch Datenregister genannt, 
enthält die Daten, die in das im Adreß/Status-Register adressierten interne Register 
geschrieben oder daraus gelesen werden sollen. 


Je nach Funktion können die internen Register in sogenannte Satzungsregister (set- 
up) und Ausgaberegister (display) unterteilt werden. Die ersteren enthalten Synchro- 
nisations-Daten, die den Video-Standard (PAL, NTSC usw.) festlegen. Die Register 
der anderen Gruppe beinhalten Informationen, welche die eigentliche Ausgabe der 
einzelnen Zeichen und Zeichenblöcke auf den Bildschirm bestimmen. 


Eine Übersicht der Inhalte der 37 internen Register befindet sich in Tabelle 
2/2.2.4-1. 2 
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R 00 Horizontal gesamt 

R 01 Horizontal ausgegeben 

R 02 Horizontale Sync.-Position 

R 03 Vertikale Sync.-Breite | Horizontale Sync.-Breite 

R 04 Vertikal gesamt 

R 05 Vertikal gesamt Einstellen 

R 06 Vertikal ausgegeben 

R 07 Vertikale Sync.-Position 

R 08 Interlace-Modus 

R 09 Zeichen gesamt vertikal 

R 10 Cursor Modus Start-Abtastzeile für Cursor 

R 11 End-Abtastzeile für Cursor 

R 12 Ausgabe-Startadresse (HB) 

R 13 Ausgabe-Startadresse (LB) 

R 14 Cursor-Position (HB) 

R 15 Cursor-Position (LB) Ei 
en 

R 16 Lichtgriffel vertikal 

R 17 Lichtgriffel horizontal 

R 18 Erneuerungsort (update) (HB) 

R 19 Erneuerungsort (LB) 

R 20 Startadresse für Ausgabemerkmaile (Attribute) (HB) 

R 21 Startadresse für Ausgabemerkmale (LB) zu 

R 22 Zeichen gesamt horizontal Zeichen ausgegeben horizontal 

R 23 . Zeichen ausgegeben vertikal 

R 24 Kopieren Rey. Bildsch.| Blink-Frequ. Vertikales weiches Scrollen 

R 25 Grafik/Text | Atrb. Enb | Halbgrafik | Pix Dbi Horizontales weiches Scrollen 

R 26 Vordergrundfarbe Hintergrundfarbe 

R 27 Adressen-Inkrement-Zeile 

R 28 Zeichensatzadresse 4164/4416 

R 29 Abtastzeile für Unterstreichen 

R 30 Wortzähler 

R 31 CPU Daten Lesen/Schreiben 

R 32 Quelladresse für Block-Kopieren (HB) 

R 33 Quelladresse für Block-Kopieren (LB) 

R 34 Ausgabe ermöglichen (Display Enable): Anfang 









Ausgabe ermöglichen: Ende 














DRAM Auffrischen pro Abtastzeile 





Tabelle 2/2.2.4-1 


HB = 
LB = 


höherwertiges Byte 
niederwertiges Byte 
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Die Signale des 8563-Chips 


Wie üblich, zeigen wir nun zum Abschluß des Kapitels die einzelnen Signale und 
Anschlüsse des betrachteten Bausteins. Da die Kommunikation des Video- 
Controllers in drei verschiedenen Richtungen mit drei separaten Einheiten statt- 
findet, und zwar mit der CPU, mit dem eigenen DRAM-Bereich über den lokalen 
Bus und schließlich mit dem äußeren Monitor, werden wir auch die Signale, die die 
entsprechenden Verbindungen realisieren, in dieser logischen Reihenfolge aufzählen. 


Einige Anschlüsse des Chips sind für künftige Entwicklungen gedacht und bleiben 
im C 128 unbenutzt. 





Pin Name Beschreibung 
CPU-Signale 

4 cs Chip-Select; Der 8563-Controller ist im System nur operations- 
fähig, falls dieser Eingang hoch ist. 

7 ICS Chip-Select; Der 8563 ist nur ansprechbar, falls dieser Eingang 
tief liegt. 

8 IRS Register-Select; Falls hoch, kann ins Datenregister geschrie- 
ben, oder daraus gelesen werden. Der Eingang ist auf Syste- 
mebene mit AO verbunden. 

9 R/W Prozessorsignal; Über diesen Eingang wird die Benutzungs- 
richtung des Daten-Busses festgelegt. 

10-18 DO-D7 Ein-/Ausgänge des Datenbusses; Erlauben den Datenaus- 

(ohne 12) tausch zwischen dem 8563 und der CPU. 

19 DSPEN Display Enable; im C 218 nicht verwendet. 

22 RES Reset; in der aktuellen Schaltung des C 128 nicht benutzt, mit 
INIT verbunden. 

23 INIT Initialisierungseingang; Beim Neustart bedingt das Tiefliegen 
dieses Eingangs ein korrektes Initialisieren des Chips. 

24 TST Test; Nur beim Testen benutzt. Im C 128 an die Masse geleitet. 
Signale des lokalen Busses 

21 DR/W DRAM-Lese/Schreibsteuerung. 

26-33 DAO-DA7 Gemultiplexter Adreßbus zum lokalen Display-DRAM. 

34-42 DDO-DD7 Ein-/Ausgänge des lokalen Datenbusses. 

(ohne 37) 

47 RAS Row Adress Strobe; Zeilenabtastimpuls für das lokale DRAM. 

48 CAS Column Adress Strobe; Spaltenabtastimpuls für das lokale 
DRAM. 

Video-Ausgänge 

1 CCLK Video-Ausgang der Zeichenuhr; Im C 128 nicht verwendet. 

2 DCLK Video-Punkt-Uhr; Bestimmt die Größe eines Pixels und ist, in- 
tern, die Zeitbasis für alle synchronisierten Signale. 

3 HSYNC Horizontales Synchronisationssignal; Über das zugehörige in- 
terne Register programmierbar. 

20 VSYNC Vertikales Synchronisationssignal; Ebenso programmierbar. 

43-45 R.G,B;l Rot, Grün, Blau, Intensität; Ausgänge zur Überlieferung eines 


4-Bit-Codes (16 Möglichkeiten, d.h. Farben oder Grau-Töne) an 
einen externen Monitor. 

12 Masse Masse, OV 

37 VCC Stromversorgung, +5V 
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Bild 2/2.2.4-1 Der 8563-Video-Controller 
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2/2.2.5 
Der Speichermanager (MMU) 





Zusammen mit der PLA bewältigt die MMU (Memory Management Unit) die wich- 
tigsten Verwaltungsarbeiten, die innerhalb des Systems anfallen. Mit Hilfe der 
MMU kann man zwischen den verschiedenen Möglichkeiten für die Speicherauftei- 
lung, die der C 128 bietet, umschalten. Wie der Name schon andeutet, ist es die 
Hauptaufgabe der MMU, die komplexen Abläufe der Kommunikation anderer Bau- 
steine mit dem Speicher zu sichern. Konkret ist die MMU für die Erzeugung der 
nötigen CAS-Select-Signale zur Aufteilung des RAM’s, der ROMBANK-Signale zur 
Aufteilung des ROM’s sowie für die Erzeugung des übersetzten Adreßbessus 
(TA8-TA15) verantwortlich. Außerdem generiert die MMU auch die nötigen Steuer- 
signale zur Kontrolle der Prozessormodi. Die Daten der MMU werden aber nur falls 
AEC hoch ist in Betracht genommen, um die Überbelastung des Busses während 
der VIC-Zyklen zu vermeiden. 


Im C 64-Modus ist die MMU zwar nicht adreßmäßig im Speicher vertreten, und so- 
mit softwaremäßig auch nicht ansprechbar, sorgt aber trotzdem für eine mit dem 
C 64-Standard völlig kompatible Speicherverwaltung. 


Um die Funktionsweise der MMU zu verstehen und folglich auch ihren Einsatz über 
die Software richtig zu handhaben, ist die Kenntnis ihrer Register sowie die Bedeu- 
tung der Werte der einzelnen Bits aus diesen Registern unerläßlich. Deshalb fahren 
wir nun fort mit einer genauen Beschreibung der Auswirkungen, die eine Ein- 
tragung in eines dieser Register zur Folge hat. 


Die Register der MMU 


Die Namen der MMU-Register, sowie die von ihnen belegten Speicheradressen, 
können dem Bild 2/2.2.5-1 entnommen werden. Gemäß ihrer Adressen, erscheint 
eine Gruppe dieser Register im I/O-Bereich des Speichers ($D500 bis $D50B), die 
andere im Systembereich des Speichers ($FF00 bis $FF04). Nur das Konfigurations- 
register, das in einem bestimmten Sinne die entscheidende Rolle spielt, ist in beiden 
Bereichen vertreten und kann also auch dann gelesen werden, falls der I/O-Bereich 
ausgeblendet ist. 
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Versionsregister 

Zeiger für Page 1 (HB) 
Zeiger für Page 1 (LB) 
Zeiger für Page 0 (HB) 
Zeiger für Page 0 (LB) 
RAM-Konfigurationsregister 
Modus-Konfigurationsregister 
Präkonfigurationsregister D 
Präkonfigurationsregister C 
Präkonfigurationsregister B 
Präkonfigurationsregister A 


Konfigurationsregister 


Lade-Konfigurationsregister D 
Lade-Konfigurationsregister C 


Lade-Konfigurationsregister B 





Lade-Konfigurationsregister A 


Konfigurationsregister 





2.2 C 128 PC 
$D50B —— VR 
$D50A —— P1H 
$D509 —— PIL 
$D5068 —— POH 
$D507 °—— POL 
$D506 ———— RCR 
$D5065 —— MCR 
$D504 7° —— PCRD 
$D508 —— PCR C 
$D502°——— PCRB 
$D501| °—— PCR A 
$D500 ——— CR 
$FF OA °——— LCRD 
$SFF08U°——— LORC 
SFFO2_°-——— LCR B 
$FFOd O7 ——— LORA 
$FFOO °—— CR 

Bild 2/2.2.5-1 

Die Register der MMU 

HB = höherwertiges Byte 


LB 


niederwertiges Byte 


Das Konfigurationsregister 


Der Inhalt dieses Registers bestimmt, welche ROM-, RAM- und VO-Bereichsauf- 
teilung des Speichers vom System gerade benutzt wird. Es befindet sich bei Adresse 
$D500 im I/O-Bereich und $FF00 im Systembereich. Zuweilen sind einige seiner 
Bit-Werte von den Leitungen MSO und MS1 (auch als ROMBANK-Leitungen an- 
gesprochen) im C 128-Modus wiedergespiegelt, je nach Setzen von ROM und RAM. 
Die MS-Leitungen teilen der PLA mit, welcher Speichertyp sind in einem bestimm- 
ten Adreßbereich befindet. Im C 64-Modus allerdings sind beide Leitungen hoch, 
und die Aufteilung in ROM und RAM wird von der PLA nach den vom C 64 be- 
kannten Methoden erledigt. Im folgenden werden wir nun die Bedeutung der einzel- 
nen Bits dieses wichtigen Registers hervorheben. 
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Bit 0 

entscheidet im C 128-Modus ob ein Zugriff auf den I/O-Bereich ($D500-$DFFF) 
oder auf den ROM-Bereich stattfindet. Falls dieses Bit nicht gesetzt ist (Wert 0) han- 
delt es sich um einen I/O-Zugriff. Falls gesetzt (Wert 1), handelt es sich um einen 
RAM/ROM-Zugriff, dessen genauerer Ausgang von den höheren Bits desselben Re- 
gisters bestimmt wird. Die MMU-Register von $D500 bis $D50B sind also nur bei 
nichtgesetzem Bit 0 erreichbar, während die Register $FF00-$FF04 im C 128-Modus 
immer im Speicher eingeblendet sind. Der Wert dieses Bits ist hardwaremäßig durch 
das I/O-Signal (Pin 13) angegeben und wird im C 64-Modus von der PLA ignoriert, 
die den /O-Bereich mittels HIROM und CHAREN festlegt. Im Falle eines Resets 
nimmt dieses Bit den Wert O an. 


Bit 1 

kontrolliert im C 128-Modus den Zugriff des Prozessors auf den unteren ROM- 
Bereich ($4000-$7FFF). Falls nicht gesetzt, ist das System-ROM in diesem Bereich 
eingeschaltet. Dieses Bit beeinflußt die beiden Status-Leitungen MSO und MSI, die 
von der PLA decodiert werden, um anschließend die richtigen ROM-Chip-Selects 
zu erzeugen. Bei gesetztem Bit 1 wird der genannte Bereich als RAM interpretiert, 
und das CAS-Signal wird an das von weiteren Bits des Registers festgelegte RAM- 
Bank zugeleitet. Im C 64-Modus wird der Wert von Bit 1 nicht berücksichtigt. Der 
Reset-Wert ist 1, und blendet in diesen Bereich das untere C 128 Basic-ROM ein. 


Bits 2 und 3 


bestimmen im C 128-Modus den Speichertyp des mittleren Bereiches ($8000 bis 
$BFFF). Hardwaremäßig wird Bit 2 von MSI und Bit 3 von MS0O angezeigt. Beide 
gesetzt, bedeutet RAM in diesem Bereich mit den entsprechenden CAS-Signalen, 
keines gesetzt dagegen System-ROM. Falls nur Bit 2 den Wert 1 hat, werden in 
diesem Speicherabschnitt die internen ROM-Funktionen erreicht, und falls nur Bit 
3 gesetzt ist, die externen. Im C 64-Modus werden beide Bits ignoriert, und beim 
Neustart nehmen sie den Wert O an, um hier das obere Basic-ROM einzublenden. 


.Bits 4 und 5 


haben folgerichtig denselben Einfluß auf den oberen Speicherabschnitt ($C000 bis 
$FFFF), nur werden die hier liegenden ROM-Abschnitte den Zeichensatz und den 
Kernal erfassen. Es ist noch zu bemerken, daß im Falle einer Überlagerung mit der 
Angabe des Bits 0, entscheidend für Bereich $D500-$FFFE, das //O-Bit den Vor- 
rang hat, und daß es im oberen Block einen unantastbaren Abschnitt zwischen 
$FF00 und $FF04 gibt. 


Bit 6 
entscheidet schließlich, welches der RAM-Banks ausgewählt wird. Falls nicht ge- 
setzt, ist Bank 0 gewählt, und das /CASO0-Signal wird auf tief gesetzt. Falls gesetzt, 
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ist es Bank 1 und /CASI fällt auf tief. Bit 7 hat vorläufig keine Funktion und bleibt 
für künftige Erweiterungen frei. 


Ändern der Speicheraufteilung 


Da wir jetzt wissen, welche Bedeutung dem Konfigurationsregister bei der Speicher- 
aufteilung zugeschrieben ist, werden wir nun zeigen, wie der Benutzer sich Zugang 
zu diesem Register schaffen kann, um auf diese Weise die gewünschte Speicherkon- 
figuration zu bestimmen. 


Mit Hilfe von zwei Registergruppen, und zwar vier Präkonfigurationsregister und 
vier Lade-Konfigurationsregister, ist ein von Seiten des Benutzers festsetzbares 
Laden des Konfigurationsregisters bei geringem Zeitverlauf und Speicheraufwand 
gewährleistet. Die PCR’s A bis D speichern die verschiedenen Möglichkeiten der 
Speicheraufteilung, die der Benutzer in Betracht zieht und dann, zum gegebenen 
Zeitpunkt mit einem einzigen Befehl einsetzen wird. Das Format eines jeden Prä- 
konfigurationsregisters ist folglich auch dasselbe wie das Format des Konfigura- 
tionsregisters. Die PCR’s befinden sich, wie aus Bild 2/2.2.5-1 ersichtlich, im V/O- 
Bereich ab Abdresse $D501 bis $D504. Das Schreiben in eines dieser Register hat 
vorerst keine direkte Auswirkung. Es wird nur eine Konfiguration gespeichert, die 
dann durch einen Befehl auch realisiert werden kann. Bei einem Neustart werden 
alle vier Register auf O gesetzt. 


Die Lade-Konfigurationsregister entsprechen paarweise den Präkonfigurationsregi- 
stern und befinden sich im Systembereich ab $FFO1 bis $FFO4, sind somit, zusam- 
men mit dem Konfigurationsregister bei $FF00 immer zugänglich, unabhängig von 
der jeweiligen Speicheraufteilung. Beim Lesen eines LCR’s wird der Wert des ent- 
sprechenden PCR’s ausgegeben, und beim Schreiben in ein solches Register wird der 
Wert des zugehörigen PCR’s in das Konfigurationsregister gebracht, und dadurch 
auf bekannter Weise eine bestimmte Speicheraufteilung verwirklicht. Es ist also 
möglich, auch aus einer Konfiguration in der der I/O-Bereich nicht erscheint und 
die PCR’s nicht zugänglich sind, umzuschalten, da die Lade-Konfigurationsregister 
immer zugänglich bleiben. Im C 64-Modus haben diese beiden Registergruppen 
keinen Einfluß. Bei einem Reset werden sie mit dem Wert 0 initialisiert. 


Das Modus-Konfigurationsregister 


Dieses Register befindet sich im I/O-Bereich bei der Adresse $D505. Wie der Name 
es schon verrät, bestimmt der Wert dieses Registers den Arbeitsmodus des Com- 
puters, d.h. welcher Prozessor die Oberhand hat und mit Hilfe welcher Betriebs- 
system-Variante er gerade arbeitet. 


Bevor wir zur Beschreibung der Funktionen der einzelnen Bits übergehen (siehe Bild 
2/2.2.5-2), ist zu bemerken, daß einige davon, namentlich FSDIR, GAME, EXROM 
und 40/80, wie bidirektionale Ports arbeiten. Ein in den Port geschriebener Wert 
wird von der Hardware-Leitung angegeben, und kann davon auch wieder gelesen 
werden. Nur falls eine externe Erweiterung eine Port-Leitung auf tief bringt, wird 
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das Lesen dieser Leitung den O-Wert anzeigen. Nach Entfernen der externen Erwei- 
terung wiedergibt sie den vorher gespeicherten Wert. Bei der Beschreibung der ein- 
zelnen Bits werden wir genauer auf die Ein-/Ausgangs-Funktionen der Port-Bits ein- 
gehen. 









Bit 5 Bit 4 Bit 1 Bit O 


Betriebs- | /EXROM IGAME FSDIR Frei für Prozessor- 
System Sensor Sensor Erweiterungen Modus 





Bit 6 





Bit 7 


40/80 
Sensor 






























Bild 2/2.2.5-2 Das Modus-Konfigurationsregister 

Bit 0 

setzt fest, welcher Prozessor das System kontrolliert, und zwar über die Ausgangslei- 
tung /Z80EN. Hat das Bit den Wert 0, liegt die /Z80EN-Leitung tief, und der 
Z80-Prozessor ist aktiv. Im Z80-Modus wird jede Adresse aus RAM-Bank 0, von 
$0000 bis $OFFF, in die entsprechende Adresse von $D000 bis $DFFF übersetzt, wo 
sich das Z80 CP/M BIOS im System-ROM befindet. Die Leitungen MSO und MS1 
werden System-ROM anzeigen (also tief), und die Page 0 und Page 1 Offset-Zeiger 
werden ausgeschaltet. Das RAM kann trotzdem noch vom A16-Bit (Bit 6) des Kon- 
figurationsregisters, über CASO und CASI, in Banks geteilt werden. Falls Bank 1 
gewählt wurde, ist das BIOS ROM ausgeblendet und das System kann von $0000 
bis $FFFF RAM adıessieren. Die Page 0- und Page 1-Zeiger sind in diesem Fall 
wieder wirksam. Beim Anschalten sowie im Falle eines Resets hat das Bit den 
Wert 0, da, wie schon in Kapitel 2/2.2.3 erklärt wurde, das System durch den 
Z80-Prozessor hochgefahren werden muß, der dann nach Abschluß seiner Initiali- 
sierungsroutinen die Kontrolle abgeben kann. 


Bits 1 und 2 


sind nicht benutzt und bleiben als zukünftige mögliche Port-Leitungen frei. Beim 
Lesen liefern sie unveränderlich den Wert 1. 


Bit 3° 

trägt, zusammen mit der entsprechenden Hardware-Leitung, den Namen FSDIR 
(Fast Serial Direction). Als Ausgangs-Leitung des Ports kontrolliert das Bit die 
Richtung der Datenübertragung im Puffer der schnellen seriellen Schnitt-Stelle zum 
Diskettenlaufwerk. Als Eingang fungiert es als Sensor für ein Steuersignal der oben- 
genannten Schnittstelle. 


Bits 4 und 5 


sind Sensor-Bits für /GAME und /EXROM. Als Eingänge wiedergeben sie die 
Hardware-Leitungen zur Kontrolle von /GAME und /EXROM nach den C 64- 
Regeln. Da C 128-Erweiterungen /GAME und /EXROM nicht benutzen, wird das 
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Aufspüren dieser Leitungen im C 128-Modus mit der Umschaltung auf den C 64- 
Modus beantwortet. 


Bit 6 

bestimmt den Betriebssystem-Modus und ist von dem C 128-Signal (Pin 47) logisch 
invertiert wiedergegeben. Wenn das Bit gesetzt ist, verschwindet die MMU aus dem 
adressierbaren Speicher und das System schaltet auf C 64-Modus um. Beim Neu- 
start erhält dieses Bit den Wert 0, so daß alle MMU-Register ansprechbar sind. 


Bit 7 
ist das Ergebnis, das der Abtastsensor des 40/80-Spalten-Schalters liefert. Der Wert 


ist 1 bei offenem Schalter und O bei geschlossenem. Die Ausgangsfunktion dieses 
Bits ist vorläufig noch nicht festgesetzt. 


Das RAM-Konfigurationsregister 


Das RAM-Konfigurationsregister befindet sich im V/O-Bereich bei Adresse $D506 
und beinhaltet die Parameter der RAM-Aufteilung, sowohl für den Prozessor wie 
als auch für den Block-Zeiger des VIC-Chips. Wir nehmen, wie üblich, die Funktio- 
nen der einzelnen Bits unter die Lupe. 


Bits 0 und 1 


Der Wert von Bits 0 und 1 bestimmt zusammen den RAM-Anteil, der für die RAM- 
Banks gemeinsam ist, falls überhaupt gemeinsames RAM von den nächsthöheren 
Bits erlaubt ist. Die Kombination 00 legt IK gemeinsames RAM fest. Die Kombina- 
tionen Ol, 10, 11, legen gemeinsame Bereiche von 4K, 8K und 16K entsprechend fest. 
Die RAM-bestimmenden Bits des Konfigurationsregisters werden von Bits 0 und 1 
des RAM-Konfigurationsregisters überstimmt, in dem Sinne, daß der gemeinsame 
RAM-Anteil sich immer in Bank 0 befindet. Im C 64-Modus haben diese Bits 
keinen Einfluß. Ihr Resetwert ist 0. 


Bits 2 und 3 


entscheiden, welcher RAM-Anteil gemeinsam sein wird, falls überhaupt. Wenn 
beide Bits Wert 0 haben, gibt es keinen gemeinsamen Abschnitt. Ist Bit 2 gesetzt, 
so liegt der gemeinsame Abschnitt im unteren RAM-Bereich, für gesetztes Bit 3, 
entsprechend oben, und falls beide gesetzt, oben und unten. Der Zugriff auf den 
gemeinsamen Speicher ist durch Tiefsetzen von CASO und Hochbringen von CAS1 
realisiert. 


Bits 4 und 5 


Die Funktionen dieser Bits sind noch nicht festgelegt. Beim Lesen liefern sie unver- 
änderlich den Wert 0. 











Interner Aufbau Teil 2 Kapitel 2.2.5 Seite 7 








2.2 C 128 PC Teil 2: Hardware-Beschreibung 


Bit 6 

funktioniert als RAM-Bank-Zeiger für den VIC-Chip. Damit kann entweder RAM- 
Bank 0 oder RAM-Bank 1 für den Zugriff des VIC gewählt werden, und zwar unab- 
hängig von der Bank-Aufteilung, die für den Prozessor gilt. Im 80-Zeichen-Modus 
schaltet sich der VIC-Chip durch konstantes Hochschalten von AEC selbst aus, und 
übergibt die Ausführung der Ausgabefunktionen an den 8563-VDC, der ebenfalls 
unabhängig seine Bank-Aufteilung des RAM bestimmen kann. 


Bit 7 ist funktionslos. 


Das Versionsregister 


Dieses Register ist ein Statusregister, das nur gelesen werden kann. Es befindet sich 
bei Adresse $D50B im V/O-Bereich. Es hat keine funktionelle Aufgabe, sondern ent- 
hält im unteren Halbbyte einen Code, der die Version der eingebauten MMU- 
Ausführung identifiziert, und im oberen Halbbyte einen Code, der die Anzahl der 
Speicherblöcke anzeigt, beim jetzigen Stand, Wert 2 (zwei 64K Blöcke). Das Dasein 
dieses Registers wird es ermöglichen, daß die Software, die für künftige C 256- oder 
andere Erweiterungen geschrieben werden wird, auch für den jetzigen C 128 abwärts 
kompabitel bleiben wird. 


Die Page-Zeiger 


Diese vier Register befinden sich im V/O-Bereich von $D507 bis $D50A, und erlau- 
ben das Verlegen von Page 0 und Page 1 in jedem Prozessor-Modus. Dies ist beson- 
ders für den 8502-Prozessor interessant, da dadurch einige Nachteile der 65xx- 
Familie, wie z.B. begrenzte Stapelgröße, und im allgemeinen ziemlich ausgebuchte 
Page 0, beseitigt werden können. 


Die Verlegung der Page 0 wird mit Hilfe der beiden Register POL und POH durchge- 
führt (siehe Bild 2/2.2.5-1). Bits 0 bis 7 des POL entsprechen den übersetzten Adres- 
sen TA8 bis TA15 zur Bestimmung des Zugriffs auf Page 0. Falls in dieses Register 
geschrieben wird, gilt die versetzte Page 0 ab dem nächsten Tief der Systemuhr. Im 
Register POH ist nur Bit 0 ansprechbar und entspricht TA16. Eine Eintragung in die- 
ses Register tritt nur nach einem Schreiben ins POL-Register in Kraft, und kontrol- 
liert die Erzeugung von CAS0, bei Wert 0, oder von CASI, für Wert 1 dieses Bits. 


Die Verlegung der Page I wird mit Hilfe der Register PIL und PIH entsprechend 
verwirklicht. Nach einem Reset werden alle vier Register auf die wahren Page 0 und 
Page 1 initialisiert. 


Wir haben zwar einige der Verbindungsleitungen der MMU zu den anderen Bau- 
steinen erwähnt, für ein gründliches Verständnis der Rolle dieses wichtigen Bau- 
steins innerhalb des C 128 werden wir nun die einzelnen Leitungen systematisch auf- 
zählen und die wichtigeren davon eingehender erläutern. 
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Pin Name Beschreibung 
1 VCC Stromversorgung, +5V 
2 RESET Eingang zur Initialisierung der MMU-Register bei Neustart. 


Die Initialisierungswerte für die einzelnen Register wurden 
in den vorangehenden Abschnitten angegeben. 


3-10 TA8-TA15 Ausgänge des übersetzten Adreßbusses 

11 ICASO Signal zur Kontrolle der RAM-Aufteilung in Banks. /CASO 
bedingt den Zugriff auf den ersten 64K-Bereich. 

12 ICAS1 Wie /CASO, aber für den zweiten 64K-Bereich. 

13 VO Auch MS2 genannt, wiedergibt den Wert von Bit 0 des 
Konfigurationsregisters, wie dort schon erklärt. 

14-15 MS1-MSO Auch ROMBANKHI und RAMBANKLO genannt. 

16 AEC Signal zur Regelung der Bus-Priorität. 

17 MUX Das gemultiplexte Speichersignal. Es wird als Taktgeber 
für verschiedene Abschnitte der MMU benutzt. 

18-21 AO-A3 

24-31 A8-A15 Adreßleitungen vom Prozessor. Sie bestimmen die Erzeu- 
gung von Chip-Selects und gemultiplexten Adreßleitungen. 

22-23 A415-A6/7 Kombinierte Adreßleitungen vom Prozessor. So zusammen- 
gelegt, um die Anzahl der Pins zu reduzieren. 

32 R/W Eingang für Lese-/Schreib-Signal des Prozessors. Liegt 
hoch für eine Lese- und tief für eine Schreib-Operation 
des Prozessors. 

33 PHI-O Eingang der Systemuhr. Die Prozessor-Adresse gilt wäh- 
rend der steigenden Phase, die Daten während der sin- 

2 kenden. 

34 MASSE Masse, OV 

35-42 DO-D7 Über diese Eingänge werden Daten vom Prozessor in die 
internen Register der MMU geschrieben. 

43 /Z80EN Falls dieser Ausgang auf tief geht, wird der Z80-Modus 
eingeleitet. Sonst ist der 8502 der Hauptprozessor. 

44 FSDIR Port-Leitung von Bit 3 des Konfigurationsregisters. 

45 IGAME Port-Leitung von Bit 4 des CR. Da im C 128-Modus frei, 
wird es in diesem Modus als Steuersignal für den Farb- 
RAM-Bereich benutzt. 

46 JEXROM Port-Leitung des Bit 5 des CR. 

47 C 128 Auch MS3 genannt. Dieser Ausgang ist im C 128-Modus 
hoch. Falls die MMU ihn auf tief setzt, schaltet das System 
auf C 64-Modus um. 

48 40/80 An Bit 7 des Konfigurationsregisters gekoppelt. 
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Bild 2/2.2.5-3 Der Speichermanager (MMU) 
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TA8-TA15 


Diese Leitungen liefern die übersetzten Adressen des gemultiplexten Adreßbusses 
und des geteilten Busses. TA8 bis TAll und TAl2 bis TA15 haben intern einen ver- 
schiedenen Status, um den Ablauf der VIC-Zyklen in Abhängigkeit von AEC zu er- 
lauben. 


MSO-MS1 


Über diese Ausgänge kontrolliert die MMU die Aufteilung des Speichers in Berei- 
che. Diese Signale leiten jeden ROM-Zugriff im C 128-Modus auf einen bestimmten 
ROM-Bereich. Falls beide tief liegen, wird der Zugriff aufs System-ROM geleitet. 
Wenn MS0 hoch ist, dann wird auf externe ROM-Funktionen zugegriffen, und falls 
nur MSI hoch ist, auf interne ROM-Funktionen. Sind beide hoch, so wird auf das 
RAM des entsprechenden Abschnitts zugegriffen. 


AEC 


Adress Enable Control = Steuersignal zur Freigabe der Adressierung. Dieses Signal 
zeigt an, ob der 8502-Prozessor oder der VIC auf den geteilten Bus Zugang hat. 
Falls tief, kann der VIC oder ein Ausgabe-Chip auf den Speicher zugreifen, und es 
findet keine Übersetzung für Zeiger oder BIOS-Adressen statt. 
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2/2.2.6 
PLA-Programable Logic Array 





PLA heißt Programable Logic Array, also programmiertes Logikfeld. Dieses Logik- 
feld besteht aus verschiedenen Typen von Gattern, die durch die Programmierung 
in bestimmter Weise verknüpft werden. Ein PLA ersetzt in der Regel 10 - 30 her- 
kömmliche Logik-ICs und ist außerdem wesentlich flexibler. 


Das PLA im Commodore 128 PC 


Das PLA im C 128 PC übernimmt wesentliche Aufgaben bei der Adreß- und Signal- 
steuerung. Es wird von den beiden Prozessoren sowie von der Memory Manage- 
ment Unit (MMU, siehe Kapitel 2/2.3.5) gesteuert. 


Während im C 64-Modus das PLA das komplette Speichermanagement steuern 
muß, wird diese Aufgabe im C 128-Modus voll von der MMU übernommen. So ist 
das PLA im € 128-Modus frei für die Feinarbeiten im Speicher. Damit die Funktio- 
nen dieses wichtigen Bausteins klarer werden, sollen hier die einzelnen Ein- und 
Ausgänge näher beschrieben werden: 


Name Beschreibung 


A15-A10 Adreßleitungen A15-A10 vom 8502 bzw. Z-80 
VICFIX Timing-Steuerung für VIC-Chip (40 Zeichen) 
IDMAACK Aknowledge Direktspeicherzugriff 
AEC Adreß-Steuersignal des VIC-Chip 
R/W Schreib/Lese-Leitung vom 8502 bzw. Z-80 
IGAME Eingang für die Erkennung externer ROM’s 
JEXROM Eingang für die Erkennung externer ROM’s 
/Z-80 EN Gibt Bus für Z-80 frei 
IZ-80 VO VO-Zugriff des Z-80 
C128/64 Steuersignal der MMU: 128/64-Modus 
NO SEL Steuersignal der MMU: 1/O-Bereich einblenden 
ROMBANKHI Steuersignal der MMU: Speicherselektion Bit 1 
ROMBANKLO Steuersignal der MMU: Speicherselektion Bit 0 
VMA4A-VMAS Adreßleitungen A4-A5 vom VIC-Chip 
BA VIC gibt Bus frei 
LORAM Konfigurationssignal vom Prozessorport, Bit O 
HIRAM Konfigurationssignal vom Prozessorport, Bit 1 
GND Masse-Leitung O Volt (Ground) _ 
CHAREN Konfigurationssignal vom Prozessorport, Bit 2 
INA14 VIC-Adreßleitung A14 von der CIA 
128/256 Steuersignal für ROM mit 128 oder 256 KBit 
nicht angeschlossen 
Datenpuffer-Steuersignal 
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Pin Name 
30 /ROML 
31 /ROMH 
32 CLRBNK 
33 IFROM 
34-37 IROMA4-/ROM1 
38 NOCS 
39 /DIR 
40 /DWE 
4 ICASENB 
42 NIC 
43 INOACCG 
44 IGWE 
45 ICOLRAM 
46 ICHAROM 
47 ICAS 





Beschreibung 


Selektionssignal für externe ROM’'s Low 
Selektionssignal für externe ROM's High 
Selektiert zwischen den zwei Color-RAM-Bereichen 
Selektionssignal für das interne Funktions-ROM 
Selektionssignale für die 4 internen ROM’s 
Selektionssignal für I/O im Bereich $D000-$DFFF 
Richtingssignal für Datenpuffer 

Schreibsignal für die dynamischen RAM’s 
Selektiert zwischen den beiden 64-K-Bereichen 
Selektionssignal für den VIC 

VO-Zugriff, veranlaßt VIC zu 1 MHz-Takt 
Schreibsignal für Color-RAM 

Selektionssignal für Color--RAM 

Selektionssignal für Character-ROM 
Spaltenselektion für die RAM-Chips 


48 +5V Stromungsorgung (+5 Volt) 
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Nach dieser Übersicht über alle Pins des PLA’s werden wir jetzt einige Leitungen 
etwas genauer unter die Lupe nehmen: 


/EXROM und /GAME (Pins 11 und 12) 


Diese beiden Eingänge sind im C-64-Modus dafür verantwortlich, extern, d.h. an 
Expansionsport angeschlossene ROM’s bzw. EPROM'’s zu erkennen. Liegt minde- 
stens eines der beiden Signale auf low, so wird in bestimmten Speicherbereichen 
statt des internen RAM’s bzw. ROM’s ein externer Speicher selektiert. 


Näheres hierzu ist den Speicherbelegungsplänen zu entnehmen. Beim € 128-Modus 
haben diese Eingänge keine Funktion, denn wenn beim Einschalten des C 128 eines 
dieser beiden Signale auf low liegt, was über die MMU abgefragt werden kann, wird 
sofort in den C 64-Modus geschaltet. 


/ROML und /ROMH (Pins 30 und 31) 


Diese beiden Ausgänge sind die korrespondierenden Selektionssignale zu /EXROM 
und /GAME. Mit diesen Signalen werden im C 64-Modus die externen ROM’s se- 
lektiert. Auch im C 128 können über diese Ausgänge externe ROM’s angesprochen 
werden, und zwar im Bereich $8000-$BFFF für ROML und $C000 $FFFF für 
ROMH (siehe auch /FROM). Um ein externes EPROM anzusprechen, muß die 
MMU entsprechend programmiert werden. 


LORAM, HIRAM und CHAREN (Pins 22, 23 und 25) 


Diese drei Eingänge werden direkt vom prozessoreigenen Port des 8502 gesteuert 
(Bit 0-2). Im C 64-Modus wird mit diesen Signalen das komplette Speichermanage- 
ment gesteuert. Im C 128-Modus übernimmt die MMU das Speichermanagement, 
so daß die drei Signale des Prozessors für andere Aufgaben benutzt werden können. 


LORAM und HIRAM steuern die Color--RAM-Bank. Im Gegensatz zum C 64 ist 
im C 128 ein 2-KB-RAM-Bereich für das Speichern der Farbe eingebaut. Mittels 
LORAM und HIRAM kann programmgesteuert zwischen den zwei 1-KB-Bereichen 
umgeschaltet werden. Mit dem Pegel von LORAM wählt man den Bereich, auf den 
‘der Prozessor zugreift, mit dem Pegel von HIRAM den Bereich, aus dem der VIC 
seine Farbinformationen bezieht. Dies hat den Vorteil, daß das Farb-RAM geändert 
werden kann, ohne daß die Änderung sofort auf dem Bildschirm zu sehen ist. So 
wird z.B. flackerfreies Scrollen des Bildschirminhalts in alle Richtungen möglich. 


CHAREN bestimmt, ob das Character-ROM in den jeweiligen 16-KByte-Bereich 
des VIC eingeblendet wird. Ist diese Leitung geschaltet, so stellt sich der entspre- 
chende Speicherbereich für die VIC und CPU gleich dar. Ist CHAREN low, wird 
relativ zur Position des VIC im Speicher bei $1000-$1FFF das Charakter-ROM ein- 
geblendet. Während im € 64-Modus das Character-ROM im ersten und im dritten 
16-Kbyte-Bereich fest eingeblendet ist, kann man im C 128-Modus frei wählen, ob 
eine Einblendung erfolgen soll oder nicht. 
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C128/64, /O SEL, ROMBANKLO und ROMBANKHI 
(Pins 15 bis 18) 


Diese vier Eingänge des PLA korrespondieren direkt mit Registern in der MMU 
und werden deshalb in Kapitel 2/2.2.5 beschrieben. 


/CASENB (Pin 41) 


Dieser Ausgang wählt zwischen den beiden 64-KByte-Bereichen. Um zu verstehen, 
wie dies funktioniert, werden wir etwas näher auf die Ansteuerung des dynamischen 
RAM?’s (128 KB) eingehen. 


Die Adresse, an der der Speicherzugriff erfolgen soll, wird den RAM-Chips in zwei 
Teilen mitgeteilt, nämlich Reihen- und Spaltenadresse. Nachdem der RAM-Chip die 
Reihenadresse erhalten hat (RAS-Signal), wird intern die komplette ’RAM-Reihe’ 
aufgefrischt (refreshed). Dies ist bei dynamischen RAM’s notwendig, da sie sonst 
ihren Inhalt verlieren. Die nachfolgende Spaltenadresse erhält aber nur die 64- 
KByte-Bank, auf die zugegriffen wird. 


Erst nachdem das entsprechend CAS-Signal anliegt, geben die RAM-Chips ihre Da- 
ten aus bzw. lassen sich beschreiben. Daraus ergibt sich: Refresh bei beiden Banks, 
Zugriff bei einer Bank. Ähnlich arbeitet übrigens auch der VIC, der eigentlich für 
den Refresh der RAM's zuständig ist. Diese Technik nennt man „Ras-only-Refresh”. 


/ROM1 bis /ROM4, 128/256 (Pins 34 bis 37 und Pin 27) 


Die Anschlüsse /ROMI bis /ROMA4 dienen den-Selektionssignalen für die vier inter- 
nen 16 KByte-ROM’s (C 64-Kernal und BASIC, C 128 LO, C 128 MID und C 128 
HD). Der Eingang 128/256 ist für den Fall vorgesehen, daß statt 16 KByte-ROM’s 
höher integrierte 32-KByte-ROM’s benutzt werden sollen. In diesem Fall würden 
dann nur noch /ROMI und /ROM3 mit jeweils 32 KByte angesprochen. 


/FROM (Pin 33) 


Das Signal /FROM selektiert ein internes Funktions-ROM im Bereich 
$8000-$FFFF. Ob eine Selektion erfolgt, wird von der MMU gesteuert. Dieses ROM 
kann eine Kapazität von bis zu 32 KByte haben (z.B. 27256), es ist allerdings zu be- 
achten, daß bestimmte Speicherbereiche zeitweise ($D000-$DFFF für /O-Bereich) 
oder grundsätzlich ($FF0O-$FF04 für MMU) ausgeblendet werden. 
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Der C 64 und seine Peripherie. 


Nachdem der äußere und der innere Aufbau des C 64 und des C 128 PC beschrieben 
wurden, wollen wir uns nun den Peripheriegeräten zuwenden. Sinn dieses Kapitels 
ist es, Ihnen zunächst die grundlegenden Informationen zu den einzelnen Periphe- 
riegeräten zu liefern, um Ihnen eine eventuelle Kaufentscheidung zu vereinfachen, 
indem Sie die Daten der verschiedenen Geräte direkt miteinander vergleichen kön- 
nen. Zuerst soll hierbei auf Commodoreeigene Geräte eingegangen werden, aber 
auch Peripheriegeräte anderer Hersteller werden vorgestellt. 
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Im weiteren Verlauf der Kapitel über die einzelnen Geräte werden dann Besonder- 
heiten und einige Tips und Kniffe besprochen. Außerdem finden Sie unter den in 
Kapitel 4/6 dargestellten Utilities und den Musterprogrammen aus Teil 5 sowie den 
Hard- und Softwareergänzungen aus Teil 7 weitere Hinweise zur Handhabung, Er- 


gänzung und Benutzung der Peripheriegeräte. 
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2/3.1 
Floppy-Laufwerke 





Im Rahmen der Besprechung von Peripheriegeräten wollen wir als erstes die Floppy- 
Laufwerke behandeln, da sie im allgemeinen auch das erste Peripheriegerät darstel- 
len, was zusätzlich zum Rechner angeschafft wird. 


2/3.1.1 
Das Laufwerk 1541 





Das Fioppy-Laufwerk mit der Nummer 1541 von Commodore ist die Standard- 
Diskettenstation, die im Zusammenhang mit dem C 64 eingesetzt wird. Ein früheres 
Modell ist das Laufwerk 1540, das aber nicht mehr im Handel anzutreffen ist. Das 
Modell 1541 stellt die verbesserte — fehlerbereinigte — neue Version dar. 


2/3.1.1.1 


Allgemeine Daten 





Die 1541 ist ein sogenanntes Einzellaufwerk, das mit 51/4“-Disketten arbeitet. Zur 
Zeit haben 51/4“-Disketten die weiteste Marktverbreitung, obwohl Geräte mit klei- 
neren Disketten (3° oder 3'/2°) mittlerweile immer größeren Anklang finden. 
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“ 





Bild 2/3.1.1 Das Floppy-Laufwerk 1541 


Die Speicherkapazität von 170 KB ist langjähriger Standard, der auch heute noch 
bei den meisten Home-Computern anzutreffen ist. 


Wichtig ist, daß das Laufwerk nicht vom C 64 gesteuert wird, sondern ein eigenes 
Betriebssystem aufweist, was ein Disketten-Laufwerk in der Regel schneller macht. 
Leider kann man trotzdem die 1541 nicht als schnell bezeichnen. Ein weiterer Nach- 
teil der 1541 ist die mangelnde Wärmeabfuhr, so daß bei täglichem, vielstündigem 
Einsatz Lesefehler auftreten können. Hier schafft ein kleiner Ventilator Abhilfe, 
aber Betriebszeiten von mehr als acht Stunden sind eine Seltenheit bei normaler 
Heimanwendung. 


Peripheriegeräte 
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Im folgenden eine Übersicht über die wichtigsten Daten der 1541: 


Technische Daten 
DOS 

(Disk Operating System) 
Version 

RAM-Puffer 
Formatierung 


Inhaltsverzeichnis 
Schnittstelle 
Gerätenummer 
Speicherkapazität 
Frei verfügbar 


Befehlsvorrat 
Files 





Direktzugriff 





Benutzerhinweis 


Filetypen 


Netzspannung 
Abmessungen 

Breite 

Tiefe 

Höhe 

Mitgeliefertes Zubehör 





Betriebssystem mit 16 KByte 

DOS 2.6 

2 KByte 

Laufwerk formatiert jede softsektorierte Standarddiskette 5,25° mit 
35 konzentrischen Spuren, die zwischen 17 (innere Spur) und 21 
(äußere Spur) Sektoren aufweisen 

auf Spur 18 

serieller IEEE-Bus (IEC) 

8 (kann hard- oder softwaremäßig geändert werden). 


168 656 Bytes (sequentielle Files) 
167 132 Bytes (relative Files) 


OPEN — Datei öffnen 

CLOSE — Datei schließen 

LOAD — Programm laden 

SAVE — Programm sichern 

LOAD ,„,$“ — Inhaltsverzeichnis laden 

NEW — Diskinhalt löschen 

VERIFY — Programm im RAM mit File vergleichen 
RENAME — Datei umbenennen 

COPY — Datei kopieren 

SCRATCH — Datei löschen 

BLOCK-READ — Sektor lesen 

BLOCK-WRITE — Sektor schreiben 

BLOCK-EXECUTE — Programm in einem Sektor ausführen 
BLOCK-ALLOCATE — Sektor sicherstellen 

BLOCK-FREE — Sektor freigeben 

MEMORY READ —- Sektorbereich auslesen 

MEMORY WRITE — Sektorbereich schreiben 
MEMORY-EXECUTE —- Sektorbereich (Programm) ausführen 
BUFFER-POINTER — Zeiger in Puffer setzen 

USER 


BLOCK bezieht sich dabei direkt auf die Information auf die 
Diskette (Block—Sektor), MEMORY auf den Speicher des DOS 
Offene Dateien und Funktionsstörungen sowie der Betriebszu- 
stand der Floppy werden durch LED’s angezeigt. 

Fehler- und Statusinformationen können über einen eigenen 
Datenkanal erfragt werden. 

sequentiell, relativ (Direktzugriff/Random Access), Programm- 
dateien, User-Dateien 


220 V, 50 Hz 


200 mm 
374 mm rl 
97 mm 


Ausführliches Bedienungshandbuch, Testdiskette und Verbindungskabel zur Zentraleinheit. 
Die Floppy VC-1541 ist anschließbar an den VC 20 und den C 64 sowie den C 128 PC. 
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Das Floppy-Laufwerk 1541 ist kompatibel zu den anderen Commodore-Laufwerken 
mit der Bezeichnung CBM 4040 (Doppelfloppy für 4000er Serie) und CBM 2031 
(Einzellaufwerk für den PET). 


Wichtig ist, daß die Daten bis zum eigentlichen Schreiben auf der Diskette gepuffert 
werden, bis eine gewisse Anzahl von Bytes zur Verfügung steht. Deshalb ist auf 
jeden Fall in einem Programm nach Beendigung von Schreibarbeiten der CLOSE- 
Befehl zu geben, um alle Daten aus dem Puffer auch wirklich auf die Diskette zu 
übertragen. 


Zum Befehlsvorrat ist zu sagen, daß nicht alle Befehle im Basic zur Verfügung 
stehen, sondern teilweise über den Kommandokanal (Kanal 15) übergeben werden 
müssen. Dies sind die Befehle NEW, VERIFY, RENAME, COPY und SCRATCH. 
Auch die Fehler- und Statusinformationen können über Kanal 15 abgefragt werden. 
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2/3.1.2 
Das Laufwerk 1570 








Bild 2/3.1.2 Das Floppy-Laufwerk 1570 


Das Laufwerk 1570 ist eine Zwischenentwicklung zwischen dem Laufwerk 1541 und 
dem Laufwerk 1571. Die Laufwerke 1570 und 1571 sind hauptsächlich in Verbin- 
dung mit dem C 128 gedacht, wobei das Laufwerk 1570 alle Merkmale des 1571 auf- 
weist, bis auf das neue Gehäuse und den zweiten Schreib-/Lesekopf. 


Wahrscheinlich haben Materialengpässe die Firma Commodore veranlaßt, die 
Floppy 1570 im Vorgriff auf die 1571 zu produzieren. 
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2/3.1.2.1 


Allgemeine Daten 





Das Laufwerk 1570 ist schreib- und lesekompatibel zu den Laufwerken 1541, 
CBM 2031 (Single-Laufwerk zum PET) und CBM 4040 (Doppellaufwerk zur 
4000er Serie). 


Das DOS 2.6 wurde zum DOS V3.0 5070 mit 32 KB ROM erweitert und natürlich 
finden wir bei der 1570 ebenfalls den Pufferspeicher von 2 KB RAM. 


Ein wesentlicher Vorteil gegeüber der 1541 ist die Geschwindigkeit, die ca. um den 
Faktor 10 zugenommen hat. Auch das Umschalten der Geräteadresse wurde verein- 
facht, indem ein DIL-Schalter die hardwaremäßige Umstellung möglich macht. 


Durch einen programmierbaren Format-Controller ist es der 1570 auch möglich, die 
meisten handelsüblichen CP/M Diskettenformate zu verarbeiten. Dies ist nötig, da 
bekanntlich der C 128 ein CP/M-Modus besitzt. 


Die 1570 kann neben dem C 64 auch am VC 20, C 16, C 116 und plus/4 angeschlos- 
sen werden, wobei hier die Übertragungsrate (beim Programmladen) bei 300 Zei- 
chen pro Sekunde (Baud) liegt. In Verbindung mit dem C 128 (sowohl im 
C-128-Modus als auch im CP/M-Modus) beträgt die Übertragungsrate maximal 
5200 Zeichen pro Sekunde. 





Technische Daten 

Schnittstelle serieller IEEE-Bus (IEC) 

Geräteadresse 8 (kann softwaremäßig oder über DIL-Schalter hardwaremäßig 
geändert werden) 

GCR-Format (Group Code Recording) 

single sided/single density 








Kapazität 

Unformatiert 252019 Bytes 

Formatiert 174848 Bytes 

Größte sequentielle Datei 168656 Bytes 

Größte relative Datei 167132 Bytes 

Einträge pro relative Datei 65535 

Dateien pro Diskette 144 

Spuren auf der Diskette 35 

Sektoren pro Spur 17-21 

Sektoren pro Diskette 683 maximal 
664 frei 

Bytes pro Sektor 256 
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single sided/double density 

Kapazität 

Unformatiert 

Sektorgröße 128 

Sektorgröße 256 

Sektorgröße 512 

Sektorgröße 1024 

Maximale Anzahl der Spuren 

Sektoren pro Spur 
Sektorgröße 128 
Sektorgröße 256 
Sektorgröße 512 
Sektorgröße 1024 

Befehlsvorrat 

Files 





Direktzugriff 





Filetypen 


Aufzeichnungsverfahren 
Standard 

CP/M 
Schreib-/Lesekopf 
Netzspannung 
Abmessungen 

Breite 

Tiefe 

Höhe 

Gewicht 

Mitgeliefertes Zubehör 


Technische Daten (Fortsetzung) 
MFM-Format (Modifed Frequency Modulation) 


500000 Bytes 
133120 Bytes 
163840 Bytes 
184320 Bytes 
204800 Bytes 


40 

26 

16 

9 

5 

OPEN — Datei öffnen 

CLOSE — Datei schließen 

LOAD — Programm laden 

SAVE — Programm sichern 
LOAD „,$“ — Inhaltsverzeichnis laden 
NEW — Diskinhalt löschen 
VERIFY — Programm im RAM mit File vergleichen 
RENAME — Datei umbenennen 
COPY — Datei kopieren 
SCRATCH — Datei löschen 
BLOCK-READ 

BLOCK-WARITE 

BLOCK-EXECUTE 

BLOCK-ALLOCATE 

BLOCK-FREE 


MEMORY READ 

MEMORY WRITE 

MEMORY-EXECUTE 

BUFFER-POINTER 

USER 

BLOCK bezieht sich dabei direkt auf die Information auf der 
Diskette (Block=Sektor), MEMORY auf den Speicher des 
DOS 

Fehler- und Statusinformationen können über einen eigenen 
Datenkanal abgefragt werden 

sequentiell, relativ (Direktzugriff/Random Access), Programm- 
dateien, User-Dateien 


GCR 
GCR, MFM 


1 
220 V, 50 Hz 


200 mm 
374 mm 

97 mm . 
3,8 kp 


Ausführliches Bedienungshandbuch, Test-/Demodiskette mit DOS-SHELL und Verbindungskabel 


zur Zentraleinheit. 
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Lassen Sie sich nicht von der Bezeichnung GCR-Format und MFM-Format bei den 
technischen Daten irritieren. Im GCR-Format finden Sie den bisherigen Commo- 
dore-Standard, wie er auch bei der 1541 vorhanden ist. Das MFM-Format be- 
schreibt die Disketteneinteilung bei Verwendung von CP/M, wobei hier — nach An- 
gabe von Commodore — auch eine Lese-/Schreibkompatibilität zu einem Kaypro II 
und einem Osborn DD besteht. 
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2/3.5 
Joystick 





In sehr vielen Fällen — nicht nur bei Spielprogrammen — erübrigt sich bei Verwen- 
dung eines Joysticks der Gebrauch der Tastatur. An anderer Stelle im Buch werden 
wir sogar den Joystick dazu heranziehen, eine Maus zu simulieren. 


Angeschlossen werden die Joysticks entweder an Controlport 1 oder Controlport 2, 
wobei Controlport 2 in der Regel bevorzugt wird, da sich hier keine Komplikationen 
ergeben. Teilweise erfolgt die interne Behandlung der Joysticks analog mit der Tasta- 
tur, so daß sich hier insbesondere bei Controlport 1 Unstimmigkeiten zeigen kön- 
nen, worauf wir später aber noch eingehen werden. 


Wenn Sie Ihr Anwenderprogramm mit einem Joystick steuern wollen, so können Sie 
die Stellung des Joysticks über die rechnerinternen Adressen 56320 (Controlport 2) 
oder 56321 (Controlport 1) erfragen. Hierzu wird der PEEK-Befehl verwendet. Da 
beide Adressen Ein-Byte-Register sind, können Werte von 0 bis 255 dargestellt wer- 
den. Die zugehörigen Dezimalzahlen zu den einzelnen Joystickstellungen an den 
verschiedenen Ports können Sie durch folgende Programmzeile auf den Bildschirm 
holen: 


10 PRINT PEEK (56320) : GOTO 10 


oder 


10 PRINT PEEK (56321) : GOTO 10 


‘Haben Sie dies durchgeführt, so ergeben sich die in den Abbildungen 2/3.5-1 bis 
2/3.5-4 dargestellten Werte, 


Die Werte sind im übrigen für den C 64 und € 128 identisch. Verwendet man beim 
C 128 jedoch den JOY-Befehl, so ergeben sich die in den Abbildungen 2/3.5-5 und 
2/3.5-6 aufgeführten Werte. 
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238 
234 230 
235 = 231 
233 229 Ruhestellung: 239 
237 


Bild 2/3.5-1 Joystickwerte an Control-Port 1 mit gedrückter Feuertaste 


m 
254 


250 246 





251 247 


249 245 Ruhestellung: 255 


253 | 


Bild 2/3.5-2 Joystickwerte am Control-Port 1 ohne Feuertaste 
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110 
106 102 
107 — —— 103 
105 101 Ruhestellung: 111 








Bild 2/3.5-3 Joystickwerte an Control-Port 2 mit gedrückter Feuertaste 




















Bild 2/3.5-4 Joystickwerte am Control-Port 2 ohne Feuertaste 
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129 


136 


135 — 








a 132 Ruhestellung: 128 





Bild 2/3.5-5 Joystickwerte bei Verwendung des JOY-Befehls im 128er-Modus mit gedrückter Feuertaste 


p——— nn eeeeeee22222626e6eoeoee222222222, 


1 








4 Ruhestellung: O 


7 








Bild 2/3.5-6 Joystickwerte bei Verwendung des JOY-Befehls im 128er-Modus ohne Feuertaste 
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Wenn man die Dezimalzahlen genauer interpretiert, so stellt man fest, daß die ein- 
zelnen Richtungen und der Feuerknopf jeweils durch ein Bit innerhalb der eingele- 
senen Bytes gesteuert werden. Die Diagonalen ergeben sich aus den Bitkombinatio- 
nen der vier Hauptrichtungen, und auch dem Feuerknopf ist ein Bit zugeordnet. 
Näheres ist aus Bild 2/3.5-7 ersichtlich. 


Bitmuster für Control-Port 2 








27 26 25 24 23 22 21 20 
1 1 Feuer- unten/ 
knopf 1 hinten 
128 64 32 16 8 4 2 1 


Richtung gilt, wenn aus „1“ eine „0“ wird. 


Bitmuster für Control-Port 1 


rechts 





Richtung gilt, wenn aus „1“ eine „0“ wird. 


Bild 2/3.5-7 Bitmuster für Auswertung der Joystickabfrage an den Control-Ports mit PEEK. Bei JOY(n) 
erfolgt eine Umrechnung im Basic. 


Bei Verwendung eines Joysticks sollte man den Wert der Abfrage zunächst einer 
Variablen (z.B. JO) zuweisen, bevor man im weiteren Programmablauf die abge- 
fragte Richtung weiterverarbeitet. Geschieht dies nicht, so kann sich während der 
Verarbeitung — besonders bei Basic-Programmen — die Richtung und damit der 
zu verarbeitende Wert ändern. Dies ist in den meisten Fällen unerwünscht. 


Im Folgenden wollen wir Ihnen ein kleines Rahmenprogramm vorstellen, das Sie bei 
der Verwendung eines Joysticks heranziehen können: 
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JUSPEEK(SEIERN 
A REM - --- OBER 
= 0 AND She T 


IF 










UM 
"JG AMD 1 







REM um 1 
IF CO AND 8 


a REM 
IF ©IO AHTS 


B REN un 0 
IF 2.10 AND 











a REM ----- 
3 IF CO AND 22 











3 THEN ... 


8 REN = -- LI 
IF <.J0 AND 4 





RER 





-_— REEHTE Wo 
IF Sc AND © THEN u... 
REN arme - FEI HUPF FRIRIBELREN 
&THEH on. 


IF EIO AND 








Listing 2/3.5-1: Rahmenprogramm bei Joystickverwendung 


Wir haben die Vorgehensweise über die Bitmuster gewählt, um nicht jeweils die 
Richtung mit oder ohne Feuerknopf abfragen: zu müssen. Dies geschah unter der 
Berücksichtigung der Tatsache, daß in der Regel die Feuertaste unabhängig von der 
gerade gewählten Richtung eine eigene Funktion hat. Neben Schießen kann dies z.B, 
auch die Auswahl eines angewählten Menüpunktes sein. 


Es ist zu beachten, daß bei dieser Vorgehensweise zunächst die Diagonalen abge- 
fragt werden. Würde man als erstes eine der vier Hauptrichtungen abfragen, so 
kämen die Diagonalen nie zum Zuge, da z.B. die Richtung rechts (Bit zum Dezimal- 
wert 8) bereits eine Verzweigung bringen würde, auch wenn Bit 0 (Dezimal 1) gesetzt 
ist und dies insgesamt die Richtung „oben rechts“ bedeuten würde. 


An mehreren Stellen in diesem Buch werden wir den Joystick benutzen, so daß wir 
an dieser Stelle keine ausführlichen Beispiele bringen wollen. 
Kollisionen mit der Tastatur 


Wir hatten bereits gesagt, daß es beim Control-Port 1 zu Kollisionen mit der Tasta- 
tur kommen kann. Besonders schön deutlich wird es am C 128 mit folgendem klei- 
nen Programm: 





10 PRINT PEEK (56321) : GET A$ : PRINT A$ : GOTO o| 
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Wenn Sie dieses Miniprogramm starten und zunächst den Joystick in Ruhestellung 
belassen, so erscheint ein über die andere Zeile der Wert 255, was für die Kodierung 
der Ruhestellung auch richtig ist. 


Wenn Sie nun den Feuerknopf kurz drücken, so erscheint buchstabenweise in den 
Zwischenräumen der Begriff MONITOR. Durch den Feuerknopf kann man also 
den Druck auf die Funktionstaste F8 simulieren. Auf die sich ändernden Zahlen- 
werte für die einzelnen Joystickpositionen wollen wir im Folgenden nicht mehr ein- 
gehen. Bewegen Sie jetzt den Joystick nach vorne, ändert sich außer dem Zahlen- 
wert nichts. Sobald Sie jedoch nach vorne rechts gehen, verschwinden die 
Zwischenräume zwischen den Zahlwerten. Ebenso, wenn der Joystick nach rechts 
und unten rechts bewegt wird. 


Bewegen Sie ihn nach unten links, links oder oben links, so erscheinen zwischen den 
Zahlen plötzlich zwei Zwischenräume. Drücken Sie bei den letztgenannten drei 
Richtungen zusätzlich den Feuerknopf so simulieren sie die Funktionstaste F7. 


Besonders bei Anwenderprogrammen die mit Joystick und Tastatur arbeiten, kann 
es zu Problemen kommen. Arbeiten Sie z.B. zusätzlich zum Joystick mit einem 
Menü, dessen Wert mit dem GET-Befehl abgefragt wird, so kann es passieren, daß 
Sie nach Drücken des Feuerknopfes den zu M gehörigen Menüpunkt aufrufen, oh- 
ne jedoch die Taste M gedrückt zu haben. Das M rührt vom MONITOR-Befehl her. 


Sofern also nur ein Joystick in Ihrem Anwenderprogramm verwendet werden soll, 
ist auf jeden Fall der Anschluß an Control-Port 2 vorzuziehen. 





Teil 2 Kapitel 3.5 Seite 8 








Peripheriegeräte 








3.5 Joystick Teil 2: Hardware-Beschreibung 


Teil 3 


Interne Software 





Teil 3 Kapitel 1.1 Seite 1 





Das Betriebssystem des C 64 








Teil 3: Interne Software 


3/1 
Das Betriebssystem des C 64 





Im Rahmen der internen Software wollen wir zunächst auf die softwaremäßige 
Grundausstattung des C 64 eingehen: Ohne Betriebssystem läuft nichts. Das Be- 
triebssystem gestattet z.B. dem Anwender die Eingabe von Zeichen auf der Tastatur, 
es sorgt für die Darstellung der Zeichen auf dem Bildschirm, es verwaltet den inter- 
nen Speicher und auch die Befehle im Zusammenhang mit dem Kassettenrekorder 
oder einer Floppystation sind begrifflich zum Betriebssystem zu zählen, obwohl sie 
vom Basic in ihrer Anwendung nicht zu unterscheiden sind. Kurz und gut, das Be- 
triebssystem ist das Kernstück der Anlage, das die einzelnen Komponenten sinnvoll 
zusammenfügt. 

Im Rahmen der Beschreibung des Betriebssystems werden wir zunächst eine Über- 
sicht über die Speicherbelegung des C 64 mit RAM und ROM bringen. Diese sind 
eine Grundvoraussetzung für das Verständnis der weiteren Teile. 

Als nächstes folgt eine Übersicht über die wichtigsten Adressen, wobei wir zunächst 
den Variablenbereich, den das Betriebssystem im ersten KByte das RAM belegt, be- 
sprechen wollen. Neben einer Kurzübersicht wird jede einzelne Adresse ausführlich 
besprochen. ’ 

Im Rahmen des Betriebssystems wollen wir auch die Register der einzelnen Zusatz- 
bausteine (VIC, SID und CIA) aufzeigen, um die Adreßübersicht abzurunden. 


3/1.1 
Übersicht und Speicherbelegung 





Mit einem 8-Bit-Prozessor, wie es der 6510 im C 64 ist, kann man insgesamt 65536 
Speicherzellen adressieren, da zur Adressierung zwei Byte zur Verfügung stehen. 
Nun hat der C 64 seinen Namen von den 64 KByte-RAM, die in ihm enthalten sind. 
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Da aber außerdem noch ein Betriebssystem und eine Sprache (der Basic-Interpreter) 
gebraucht werden, weiterhin der Zeichensatz untergebracht werden und ein Adreß- 
bereich für Ein-/Ausgabeoperationen vorhanden sein muß, gibt es ein paar kleine 
Probleme, auf die wir im Rahmen dieses Kapitels eingehen wollen. 


Das Betriebssystem, der Basic-Interpreter und der Zeichensatzgenerator sind in 
ROM'’s (Read Only Memory — Nur-Lese-Speicher) untergebracht. Diese sind adres- 
senmäßig in den Bereich von 0 bis 65535 einbezogen. Da man jedoch nur entweder 
RAM oder ROM adressieren kann, muß in den doppelt und teilweise sogar dreifach 
belegten Bereichen eine Auswahl getroffen werden, die im Register des Prozessor- 
Ports (Zweites Byte im RAM, siehe Kapitel 3/1.2.1.2) kodiert werden. Mit POKE 1,X 
(auf die Werte von X werden wir später noch eingehen) lassen sich die verschiedenen 
Speicherkonfigurationen erreichen. 


Außerdem sind die Anschlüsse GAME und EXROM zu berücksichtigen, die vom 
Expansion-Port beeinflußt werden. Weiterhin ist an der Speicherkonfiguration noch 
der Grafikprozessor VIC beteiligt, auf den wir auch später eingehen wollen. 


Zunächst wollen wir uns auf die durch den Prozessor-Port beeinflußbare Möglich- 
keiten beschränken. 


In den Bildern 3/1.1-1 bis 3/1.1-7 haben wir die sieben möglichen Zustände für Sie 
grafisch aufbereitet. Durch unterschiedliche Schraffuren ist jeweils kenntlich ge- 
macht, wo mittels des PEEK-Befehls gelesen werden kann, und wo der POKE- 
Befehl schreibend zur Anwendung kommt. 


Da beim Prozessor-Port auch die Steuerung des Kassettenrekordermotors unterge- 
bracht ist, sind diese Bits zu berücksichtigen. Der Wert des Registers 1 hat nach dem 
Einschalten den Wert 55, wovon der Wert 48 für die Steuerung des Kassettenmotors 
generell zuständig ist. Durch Poken der Werte 48 bis 55 in Adresse 1, lassen sich die 
aufgezeigten Zustände darstellen. 


Die daraus resultierenden Werte für die Bits 0 bis 2 dieser Adresse sind aus nachfol- 
gender Tabelle ersichtlich, wobei aus nmemotechnischen Gründen jedem Bit noch 
ein Name gegeben wurde (CHAREN: Bit 2; HIRAM: Bit 1; LORAM: Bit 0): 











eh POKE-Wert Bedeutung in Bid 
111 55 Einschaltbelegung 3N.1-1 
110 54 Basic-ROM ausblenden 31.1-2 
101 53 Basic- u. Kernal-ROM ausblenden 311.1-3 
100 52 RAM 31.1-4 
000 48 RAM 3/1.1-4 
011 51 Zeichengenerator einlesen 311.1-5 
010 50 Zeichengenerator lesen u. Basic--ROM 

ausschalten . 311.1-6 
001 49 Nur RAM außer Zeichengenerator 3/1.1-7 




















Auffällig ist, daß der Wert von CHAREN unbedeutend ist, wenn sowohl HIRAM 
als auch LORAM auf O gesetzt sind. 
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SAO00=40960 


= schreiben 


= 





$0800=2048 
S0400=1024 


CHAREN=0, HIRAM=0, LORAM=1 
$0000 


{nur RAM außer Zeichengenerator) 

















Bild 3/1.1-1 
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$E000=57344 


$D000=53248 


$C000=49152 


$A000-40960 


lesen 


I 


schreiben 
$0800=2048 


$0400=1024 CHAREN=1, HIRAM=1, LORAM=0 
50000 





{Basic-ROM ausblenden) 











Bild 3/1.1-2 
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$FFFF= 
65535 






$E000=57344 
$D000=53248 


$C000=49152 


$A000=40960 


SCREEN, 


1 = lesen 
= = schreiben 


CHAREN=1, HIRAM=0, LORAM=1 


$0800=2048 
$0400=1024 
850000 








(Basic- und KERNAL-ROM ausblenden) 





Bild 3/1.1-3 
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sE000=57344 


SD000=53248 


$C000=49152 





$A000=40960 





= lesen 


= schreiben 


50800=2048 


01024 CHAREN=1. HIRAM=0, LORAM=0 oder 
0000 CHAREN=0, HIRAM=0. LORAM=0 


{nur RAM} 








Bild 3/1.1-4 
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$E000=57344 





$D000=-53248 


$C000=49152 


$A000=40960 


I]-- 
Ss 


= schreiben 





S0800=2048 
30400=1024 CHAREN=0, HIRAM=1, LORAM=1 
50000 


(Zeichengenerator lesen) 


Bild 31.1-5 
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SE000=57344 


$D000=53248 


$C000=49152 


$A000=40960 


lesen 


schreiben 






50800=2048 


30400=1024 CHAREN=0, HIRAM=1, LORAM=0 
30000 





{Zeichengenerator lesen und Basic ausblenden) 


Bild 3/1.1-6 
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SFFFF= 
65535 







$E000=57344 


$C000=49152 


SA000=40960 





= lesen 


=S = schreiben 


CHAREN=0, HIRAM=0, LORAM=1 






$0400=1024 


80000 {Einschaltbelegung) 








Bild 3/1.1-7 
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3/1.2 
Die wichtigsten Adressen 





Im Folgenden haben wir für Sie die wichtigsten Adressen des C 64 in tabellarischer 
Form zusammengestellt. Es handelt sich dabei in der Hauptsache um die Zero-Page 
(Adressen O bis 255 im RAM) und die folgenden Adressen bis 1023. Der Vollständig- 
keitshalber wollen wir auch die Register der einzelnen Bausteine ebenfalls angeben. 


3/1.2.1 


Zero-Page 








Um besser nachschlagen zu können, bringen wir zuerst alle Adressen der Zero-Page 
in einer Gesamtübersicht. Meist weiß man ungefähr, wo man suchen muß, nur 
einige Details sind noch nachzuschlagen. Benutzen Sie hierzu Kapitel 3/1.2.1.1. 


Wer sich als erstes einmal mit der Wirkungsweise der Adressen vertraut machen 
möchte, findet in Kapitel 3/1.2.1.2 eine genaue Aufstellung aller Adressen, versehen 
mit einem ausführlichen Kommentar und gelegentlich weiterführende Hinweise, 
sowie Tips und Tricks. 
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Übersicht 
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Hexadez. Dezimal Belegung 





00 0 Datenrichtungsregister für Prozessorport 
01 1 Prozessorport 

02 - 06 2-6 frei 

07 7 Suchzeichen 

08 8 Merker für Hochkomma-Modus 

09 9 Speicher für Spalte beim TAB-Befehl 

0A 10 Load - 0; Verify - 1 

0B 11 Zeiger in Eingabepuffer, Anzahl der Dimensionen 
0C 12 Merker: für DIM 

0D 13 Merker: $00-numerisch, $FF-String 

0E 14 Merker: $80-Integer, $00-Fließkomma 

or 15 Merker: für Hochkomma-Modus bei LIST 
10 16 Merker: für FN 

11 12 Merker: INPUT-$00, GET-$40, READ-$98 
12 18 Vorzeichen bei ATN 

13 19 aktives l/O-Gerät 

14 - 15 20-21 _Integer-Adresse, z.B. Zeilennummer 

16 22 Zeiger auf Stringstack 


17 - 18 23-24 Zeiger auf zuletzt verwendeten String 
19 - 21 25-33 Stringstack s 

22 - 23 34-35 Zeiger auf String nach FRESTR 

24 - 25 36-37 Zeiger für diverse Zwecke 

26 - 2A 38-42 Register für Funktionsauswertung und Arithmetik 
2B - 2C 43-44 Zeiger auf Basic-Programmstart 

2D -2E 45-46 Zeiger auf Start der Variablen 

2F - 30 47-48 Zeiger auf Start der Arrays 

31 - 32 49-50 Zeiger auf Ende der Arrays 

933 - 34 51-52 Zeiger auf Beginn der Strings 

35 - 36 53-54 Hilfszeiger auf String 

37-38 55-56 Zeiger auf BASIC-RAM Ende 

39 - 3A 57-58 aktuelle BASIC-Zeilennummer 

3B - 3C 59-60 letzte Basic-Zeilennummer 

3D -3E 61-62 Zeiger auf nächsten BASIC-Befehl für CONT 
SF - 40 63-64 aktuelle Zeilennummer für DATA 

41 - 42 65-66 Zeiger auf nächstes DATA-Element 

43 - 44 67-68 Zeiger auf Eingabeelement 

45 - 46 69-70 aktueller Variablenname 

47 - 48 71-72 aktuelle Variablenadresse 

49 - 48 73-74 Zeiger auf Variablenwert 

4B - 4C 75-76 Zwischenspeicher für Programmzeiger 
4D 77 Maske für Vergleichoperationen 

4E - 4F 78-79 Zeiger für FN 


50 - 53 80-83 Stringdescriptor 
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= Dezimal Belegung 


54 84 Konstante $4C JMP für Funktionen 
55 - 56 85- 86 Sprungvektor für Funktionen 

57 - 5B 87- 91 Register für Arithmetik, Akku #3 
5C - 60 92- 96 Register für Arithmetik, Akku #4 
61 - 65 97-101 Fließkommaakku #1, FAC 


66 102 Vorzeichen von FAC 

67 103 Zähler für Polynomauswertung 

68 104 Rundungsbyte für FAC 

69 - 6 D 105-109 Fließkommaakku #2, ARG 

6E 110 Vorzeichen von ARG 

6F 111 Vergleichsbyte der Vorzeichen von FAC und ARG 
70 112 Rundungsbyte für FAC 


71 - 72 113-114 Zeiger für Polynomauswertung 

73 - 8A 115-138 CHRGET-Routine, holt Zeichen aus BASIC-Text 
79 121 CHRGOT-Routine 

7A - 7B 122-123 Programmzeiger 

8B - 8F 139-143 letzter RND-Wert 


90 144 Statuswert ST 

9 145 Merker für STOPJTaste 

92 146 Zeitkonstante für Band 

93 147 Merker für LOAD-$00 oder VERIFY-$01 
94 148 Merker bei IEC-Ausgabe 

95 149 Ausgabepuffer für IEC-Bus 

96 150 Merker für EOT vom Band empfangen 
97 151 Zwischenspeicher für Register 

98 152 Anzahl der offenen Dateien 

99 153 aktuelles Eingabegerät 

9A 154 aktuelles Ausgabegerät 

9B 155 Parität für Band 

Ele} 156 Merker für Byte empfangen 

9D 157 Merker für Direkt-Modus-$80, Programm-$00 
9E 158 Band Paß 1 Prüfsumme 

9F 159 Band Paß 2 Fehlerkorrektur 

AO - A2_ 160-162 Uhr (TI) 

A3 163 Bitzähler für serielle Ausgabe 

A4 164 Zähler für Band 

A5 165 Zähler für Band schreiben 

A6 166 Zeiger in Bandpuffer 


AT - AB 167-171 Arbeitsspeicher für Bandein/ausgabe 
AC-AD 172-173 Zeiger für Bandpuffer und Scrolling 
AE-AF 174-175 Zeiger auf Programmende bei LOAD/SAVE 
BO - Bi 176-177 Zeitkonstanten für Band-Timing 

B2 - B3 178-179 Zeiger auf Bandpuffer 





B4 180 Bitzähler für Band 

B5 181 nächstes Bit für RS 232 

B6 182 Puffer für auszugebendes Byte 

B7 183 Länge des Dateinames 

B8 184 aktuelle logische Dateinummer 

B9 185 aktuelle Sekundäradresse 

BA 186 aktuelle Gerätenummer 

BB-BC 187-188 Zeiger auf Dateinamen a 
BD 189 serielle Ein/Ausgabe 

BE 190 Paßzähler für Band 


BF 191 Puffer für serielle Ausgabe 
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Hexadez. Dezimal Belegung 

co 192 Merker für Bandmotor 

C1-C2 193-194 Startadresse für Ein/Ausgabe vom Bildschirm 
C3-C4 195-196 Endadresse für Ein/Ausgabe vom Bildschirm 
C5 197 Nummer der gedrückten Taste, 64: keine Taste 
C6 198 Anzahl der gültigen Zeichen im Tastaturpuffer 
C7 199 Merker für RVS-Modus 

08 200 Zeilenende für Eingabe 

c9 201 Cursorzeile für Eingabe 

CA 202 Cursorspalte für Eingabe 

CB 203 gedrückte Taste, 64: keine Taste 

cc 204 Merker: Cursor ein-0; Cursor aus-1 

CD 205 Zähler für Cursor blinken 

CE 206 Zeichen unter dem Cursor 

CF 207 Merker für Cursor, Ein-Phase - 1; Aus-Phase - 0 
DO 208 Merker für Eingabe von Tastatur oder Bildschirm 
D1 -D2 209-210 Zeiger auf Start der aktuellen Bildschirmzeile 
D3 211 Cursorspalte 

D4 212 Merker für Hochkommamodus 

D5 213 Länge der Bildschirmzeile 

D6& 214 Cursorzeile 

D7 215 für verschiedene Zwecke 

D8 216 Anzahl der Inserts 

D9 - F2_ 217-242 MSB der Bildschirmzeilenanfänge 

F3 - F4 243-244 Zeiger in Farb-RAM 

F5 - F6 245-246 Zeiger auf Tastatur-Dekodiertabelle 

FT - F8 247-248 Zeiger auf RS 232 Eingabepuffer 

F9 - FA 249-250 Zeiger auf RS 232 Ausgabepuffer 





FB-FE 251-254 unbenutzt 





3/1.2.1.2 


Zero-Page — Kommentar und Tips 





Die Zero-Page ist nicht nur einer der wichtigsten Speicherbereiche in Ihrem C 64, 
sondern auch der interessanteste. Jeder wichtige Ablauf benutzt irgendwann einmal 
die Zero-Page. Ohne Zero-Page könnten Betriebssysteme und Assembler nicht 
arbeiten. . 


Profis, die sich mit dieser Materie schon beschäftigt haben, werden wohl am häufig- 


sten auf die bereits abgedruckte Übersicht zurückgreifen. Trotzdem gibt es einige 
Zusammenhänge, die aus dieser Übersicht nicht klar hervorgehen. Zum einen aus 
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diesem Grund, zum anderen, um den Fortgeschrittenen und anderweitig Interessier- 
ten einen Einblick in die Arbeitsweise des Rechners zu geben, werden wir zunächst 
die Zero-Page und in Kapitel 3/1.2.2.2 die Adressen 256 bis 1023 näher beleuchten. 


Adreßdarstellung in zwei Byte 


In diesem Bereich kommt es häufig vor, daß zwei Byte zu einer Adreßangabe oder 
einem Wert mit anderer Funktion zusammengefaßt werden. Dadurch lassen sich 
Zahlen bis 65535 darstellen. Der Konvention zur Folge stellt das erste Byte dabei den 
niedrigeren Teil dar und das zweite Byte den höherwertigen. Allgemein wird hier 
auch von Low Byte und High Byte gesprochen. Die durch beide Bytes dargestellte 
Zahl läßt sich durch folgende Formel sehr leicht errechnen: 


Zahl = High Byte » 256 + Low Byte. 


Wollen Sie einen Wert zwischen 256 und 65535 in zwei Bytes unterbringen, so ist 
als Umkehrung zunächst die Zahl durch 256 zu dividieren. Dieser Wert wird dann 
im High Byte abgelegt. Sofern Sie mit Hand dividiert haben, können Sie den Rest 
automatisch in das Low Byte deponieren. Bei Verwendung eines Taschenrechners 
sind die Nachkommastellen nochmals mit 256 zu multiplizieren, um den Wert des 
Low Bytes zu ermitteln. 


Sinn der Zero-Page 


Auch das Betriebssystem und der Basic-Interpreter, die als Programm im ROM ge- 
speichert sind, brauchen Daten, die naturgemäß nicht im ROM, sondern im RAM 
untergebracht werden müssen. Deshalb ist das erste KByte im RAM des C 64 für 
die Variablen des Betriebssystems und des Basic-Interpreters vorgesehen. 


Die Zero-Page ist hierbei besonders wichtig, da die Adressen 0 bis 255 unter Zuhilfe- 
nahme eines einzigen Bytes angesprochen werden können. 





0 $0000 
Datenrichtungs-Register für Mikro-Prozessor 








Der 6510 des C 64 hat sechs Ein-/Ausgabe-Leitungen, die einzeln programmiert wer- 
den können. Die Bits 0 bis 5 im Datenrichtungs-Register dienen nun dazu, für jede 
einzelne Leitung ihre Funktion als Eingang (Bit=0) oder Ausgang (Bit=1) festzule- 
gen. 


Nach dem Einschalten steht in diesem Register 47 entsprechend der Bitkombination 
xx101111, d.h., daß die Leitungen 1, 2, 3, 4, 6 auf Ausgang er sind, und nur 
die Leitung 5 als Eingang verwendet wird. 


Die Programmierung des ersten Bytes in der Zero-Page bleibt voll und ganz dem 
Anwender überlassen, da das Betriebssystem und auch der Basic-Interpreter des 
C 64 nicht darauf zugreifen. Im Zusammenhang mit dem Datenrichtungs-Register 
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steht das Datenregister im zweiten Byte der Zero-Page. Hierzu sollte man auch die 
Übersicht in Kapitel 3/1.1 heranziehen. 





1 $0001 
Prozessorport (Datenregister des 6310) 








Bei den Speicherbelegungen haben wir gesehen, daß die adressierbaren 64 KByte des 
Mikroprozessors mehrfach ausgenutzt werden. Neben den 64 KB RAM besitzt der 
64er ja noch 24 KB ROM, die dem RAM überlagert sind. Dies im Bereich des 
Character-ROM sogar zweifach. Irgendwo muß nun beim Zugriff auf die doppel- 
belegten Adressen festgelegt werden, ob das RAM gelesen oder geschrieben werden 
soll, das Betriebssystem (Kernal) oder das Basic-Interpreter-ROM, das /0 oder das 
Character-ROM auszulesen ist. Diese Funktion übernimmt das Datenregister in 
Speicherzelle 1. 


Die Adresse ist insbesondere auch für Maschinenspracheprogrammierer wichtig, 
z.B. wenn er den Basic-Interpreter nicht braucht, und ihn ausschalten möchte. Be- 
sprechen wir jedoch die Funktion der Bits im einzelnen. 


Bit 0 Bit 0 ist für die Umschaltung des Speicherbereiches von $A000 bis $BEFF 
(40960 bis 49151) zuständig. Aufgrund der Speicherbelegungspläne wissen 
wir, daß in diesem Bereich das Basic-ROM untergebracht ist. Bit 0 wird auch 
als LORAM bezeichnet. Nach dem Einschalten ist dieses Bit auf 1 gesetzt, 
was bedeutet, daß ein POKE auf den Adreßbereich $A000 bis $BFFF auf 
das RAM wirkt, also der entsprechende Wert dort eingeschrieben wird, ein 
PEEK-Befehl jedoch auf das Basic-ROM wirkt, also dort der entsprechende 
Befehl ausgelesen wird. 


Wird Bit 0 auf 0 gesetzt, so wirken sowohl Schreib- als auch Leseoperationen 
im genannten Adreßbereich auf das dort untergebrachte RAM. 


Bit 1 Bit l ist für den Adreßbereich $E000 bis $FFFF (57344 bis 65535) zuständig. 
Laut unseren Speicherbelegungsplänen ist dort das Betriebssystem, auch 
Kernal genannt, untergebracht. Hier ist nach dem Einschalten eine 1 vorhan- 
den. Dieses Bit wird im allgemeinen auch als HIRAM bezeichnet. Genau 
wie bei Bit 0 wird bei einer eingetragenen I aus dem ROM gelesen und ins 
RAM geschrieben und bei einer eingetragenen 0 jeder Zugriff auf den ent- 
sprechenden RAM-Bereich durchgeführt. 


Bit 2 Die gleiche Funktion wie die Bits 0 und 1 erfüllt auch Bit 2. Bit 2 ist aller- 
dings für den Adreßbereich von $D000 bis $DFFF (53248 bis 57344) zustän- 
dig. Dieser Adreßbereich ist neben dem RAM doppelt mit ROM belegt, 
nämlich dem I/0-ROM (Ein-/Ausgabe) und dem Zeichengenerator 
(Character-ROM). In diesem Falle schaltet das Bit (Einschaltzustand 1) nicht 
zwischen dem normalen ROM und den beiden anderen Bereichen um, son- 
dern zwischen I/0 und dem Zeichensatz. Die Bezeichnung für Bit 2 lautet 
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Wolken fractale Gebilde sind und ihr Aussehen anderen mathematischen Gesetzmä- 
Bigkeiten unterliegt: sie sind selbstähnlich. 


Wie lang ist die Küstenlinie Großbritanniens? 


In den folgenden Kapiteln wollen wir Sie nach und nach in das Thema der fractalen 
Strukturen einführen. Die erste bekannte Arbeit zu diesem Thema stammt aus dem 
Jahre 1967, von Benoit B. Mandelbrot und trug den Namen: ‚‚Wie lang ist die Küste 
Großbritanniens?‘ Mandelbrot wollte dabei natürlich nicht die genaue Länge der 
Küste Großbritanniens ermitteln, sondern er stellte ein paar grundlegende Tat- 
sachen an diesem Beispiel fest, die wir nun kurz nachvollziehen wollen. 


Landkarten in verschiedenen Maßstäben 


Schauen Sie sich in verschiedenen Atlanten Karten von Großbritannien in unter- 
schiedlichen Maßstäben an und fahren Sie vielleicht mit einem Kartenroller die 
Küstenlinie ab. Sie werden dabei eine interessante Entdeckung machen. Oder folgen 
Sie einfach einem abstrakten Beispiel: Nehmen Sie an, Sie sehen die Britische Insel 
aus 1000 km Höhe. Sie erkennen nur die groben Umrisse dieser Insel, besondere 
Feinheiten sind nicht auszumachen. Gehen sie auf 500 km Höhe hinunter, so ver- 
feinert sich die Küstenlinie zusehends. Die Küstenlinie, die Sie sehen, wird länger. 
Was bei 1000 km noch eine gerade Linie ist, sieht nun nicht mehr so gerade aus. 
Wenn Sie weiter hinab gehen, z.B. auf 100 km, werden weitere Feinheiten in der Kü- 
stenlinie erkennbar und wenn sie jedesmal die Küstenlinie nachzeichnen, wird der 
Strich länger und länger. Neue, kleinere Buchten werden sichtbar. Dieses Beispiel 
kann man soweit treiben, daß die Küstenlinie Großbritanniens unendlich lang ist, 
obwohl bei einer Größenordnung von Atomen wohl nicht mehr von einer Küsten- 
linie gesprochen werden kann. 


In den nachfolgenden Kapiteln wollen wir dies an einem sehr einfachen Beispiel 
verdeutlichen. 
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CHAREN als Abkürzung für CHARacter ENable. Auf den Zeichengene- 
rator wird zugegriffen, wenn dieses Bit auf 0 gesetzt ist. 


Mit den Bits 0 bis 2 lassen sich alle möglichen Konfigurationen zwischen 
RAM und ROM darstellen. 


Die Bits 3 bis 5 beschäftigen sich mit dem Kassettenrekorder und haben fol- 
gende Bedeutung: 


Bit 3 weist den Einschaltzustand 0 auf und ist für das Senden von seriellen Daten 
zum Kassettenrekorder zuständig. 


Bit 4 weist den Normalzustand 1 aus und dient zur Prüfung der Tasten des Kasset- 
tenrekorders, und hier insbesondere der Tasten PLAY, REWIND und 
FFWD, da beim Einschalten dieser Tasten der Motor in Bewegung gesetzt 
werden muß, was durch Bit 5 erledigt wird. 


Bit 5 Ist für den Schaltzustand des Motors verantwortlich (Einschaltbelegung 1). 


Addiert man die oben beschriebenen Einschaltzustände der einzelnen Bits, so ergibt 
dies den Dezimalwert 55. Die Bits zur Steuerung des Kassettenrekorders sind bei 
einer Umbesetzung der Speicheradressierung unbedingt zu beachten, so daß also 
eine Umschaltung von Basic-ROM auf RAM durch POKE 1,54 erledigt werden 
kann. 


Schaltet man durch den ebengenannten POKE-Befehl das Basic aus, so ist man je- 
doch voll und ganz auf seine Künste als Maschinenspracheprogrammierer angewie- 
sen. Es sei denn, man überträgt die Daten des Basic-ROM?s in das darunterliegende 
RAM. Dies ist z.B. sinnvoll, wenn man nur Teile des Basic’s benutzen will — nur 
für Profis zu empfehlen — oder schlicht und einfach den Basic-Interpreter ändern 
will. 


Wahrscheinlich werden Sie das Auslesen des Wertes aus einer Speicherzelle und das 
Einschreiben in die gleiche Speicherzelle für ziemlich sinnlos halten, da sich ja doch 
nichts ändert. Aber wir hatten eben bereits erwähnt, daß bei der Einschaltbelegung 
im Byte 1 des RAM’s ein POKEF-Befehl auf das RAM adressiert wird und einem 
PEEK-Befehl das ROM zugrundegelest ist. Durch folgende kleine Programmschleife 
können Sie den Inhalt des Basic-ROM’s in das darunterliegende RAM kopieren: 





FOR 1=40960 TO 49151 
POKE |, PEEK (I) 
NEXT 








Nach Ausführung dieses kleinen Programmes können Sie mit POKE 1,54 aufs 
RAM umschalten, was dem Anwender nach außenhin natürlich nicht in Erschei- 
nung tritt. Eine Änderung des Basic-RAM’s wollen wir an dieser Stelle jedoch nicht 
weiter verfolgen. 
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Wollen Sie das Betriebssystem auch umschalten — wie wir es z.B. später beim Aus- 
laden unseres Assemblers verwenden werden — so können Sie durch die vorgenannte 
FOR...NEXT-Schleife den Adreßbereich von 57344 bis 65535 ins RAM über- 
tragen, und anschließend mit POKE 1,53 (POKE 1,52, wenn auch das Basic ausge- 
blendet werden soll) übertragen. 


Letztere Methode wird z.B. verwendet, um den Grafikspeicher aus dem Basic--RAM 
herauszuziehen und unters Kernal zu legen. Dadurch kann auch das komplette 
Basic-RAM bei Grafikanwendungen für das Programm benutzt werden. 


Wer seinen Zeichensatz ändern möchte, ist darauf angewiesen, daß er auch den Zei- 
chengenerator byteweise auslesen kann, wodurch sich aus den Bitmustern die einzel- 
nen Zeichen zusammensetzen. Mit POKE 1,51 kann man mit dem PEEK-Befehl auf 
das Zeichengenerator-ROM zugreifen, die Zeichen in einen freien RAM-Bereich 
holen und dort den eigenen Wünschen anpassen. 


Auf das Thema Motorsteuerung der Datasette werden wir bei Adresse 192 noch 
etwas genauer eingehen. 
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3/1.2.2 
Page 1 bis Page 3 





Ebenso wie bei der Zero-Page wollen wir auch bei den weiteren Adressen bis zur 
Speicherzelle 1023 zunächst eine Übersicht bringen und anschließend jede Adresse 
einzeln ausführlich besprechen. 


3/1.2.2.1 


Übersicht 








Hexadez. | Dezimal | Belegung 





OOFF-O10A | 255-266 | Puffer für Umwandlung Fließkomma nach ASCil 
0100-013E | 256-318 | Speicher für Korrektur bei Bandeingabe 
0100-01FF | 256-511 Prozessor Stack 

0200-0258 | 512-600 | BASIC-Eingabepuffer 

0259-0262 | 601-610 | Tabelle der logischen Dateinummern 
0263-0260 | 611-620 | Tabelle der Gerätenummern 

026D-0276 | 621-630 | Tabelle der Sekundäradresse 

0277-0280 | 631-640 | Tastaturpuffer 

0281-0282 | 641-642 | Start des BASIC-RAM 

0283-0284 | 643-644 | Ende des BASIC-RAM 


0285 645 Timeout-Merker für IEC-Bus 

0286 646 aktuelle Farbe 

0287 647 Farbe unter dem Cursor 

0288 648 High-Byte Video-RAM 

0289 649 Länge des Tastaturpuffers 

028A 650 Merker für Repeatfunktion aller Tasten 
028B 651 Zähler für Repeatgeschwindigkeit 
028C 652 Zähler für Repeatverzögerung 

028D 653 Merker für Shift, Commodore und CTRL (Bit ©, 1 und 2) 
028E 654 wie $028D 

028F-0290 | 655-656 | Vektor für Tastatur-Dekodierung 

0291 657 Merker für SHIFT/Commodore gesperrt 





0292 658 Merker für Scrollen 
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N BE ne re a ET Tr TE ee 
Hexadez. | Dezimal | Belegung 


0293 659 RS 232 Kontrollwort 

0294 660 RS 232 Befehlswort 

0295-0296 | 661-662 | Bit-Timing 

0297 663 RS 232 Status 

0298-029A | 664-666 | RS 232 Baud-Rate 

029B 667 Zeiger auf empfangenes Byte RS 232 
029C 668 Zeiger auf Input von RS 232 

029D 669 Zeiger auf zu übertragendes Byte Rs 232 
029E 670 Zeiger auf Ausgabe RS 232 

029F-02A0 | 671-672 | Speicher für IRQ während Bandbetrieb 
02A1 673 CIA 2 NMI-Merker 

02A2 674 CIA 1 Timer A 

02A3 675 CIA 1 Interrupt-Merker 

02A4 676 CIA 1 Merker für Timer A 

02A5 677 aktuelle Bildschirmzeile 

02A6 678 Merker für PAL- (1) oder NTSC-Version (0) 
02C0-02FE| 704- 766 | Platz für Sprite (Block 11) 

0300-0301 | 768- 769 | $E38B Vektor für BASIC-Warmstart 
0302-0303 | 770- 771 | $A483 Vektor für Eingabe einer Zeile 
0304-0305 | 772- 773 | $A57C Vektor für Umwandlung in Interpretercode 
0306-0307 | 774- 775 | $A71A Vektor für Umwandlung in Belegung 


Klartext (LIST) 

0308-0309 | 776- 777 | $A7E4 Vektor für BASIC-Befehlsadresse holen 
030A-030B| 778- 779 | $AEB6 Vektor für Ausdruck auswerten 
030C 780 Akku für SYS-Befehl 

030D 781 X-Register für SYS-Befehl 

030E 782 Y-Register für SYS-Befehl 

030F 783 Status-Register für SYS-Befehi 

03010 784 $4C JMP-Befehl für USR-Funktion 
0311-0312 | 785- 786 | USR-Vektor i 
0314-0315 | 788- 789 | IRQ-Vektor 

0316-0317 | 790- 791 | BRK-Vektor 

0318-0319 | 792- 793 | NMI-Vektor 

031A-031B | 794- 795 | OPEN-Vektor 

031C-031D| 796- 797 | CLOSE-Vektor 

O31E-0O31F | 798- 799 | CHKIN-Vektor 

0320-0321 | 800- 801 | CKOUT-Vektor 

0322-0323 | 803- 803 | CLRCH-Vektor 

0324-0325 | 804- 805 | INPUT-Vektor 

0326-0327 | 806- 807 | OUTPUT-Vektor 

0328-0329 | 808- 809 | STOP-Vektor 

032A-032B | 810- 811 | GET-Vektor 

032C-032D| 812- 813 | CLALL-Vektor 

O32E-032F | 814- 815 | Warmstart-Vektor 

0330-0331 | 816- 817 | LOAD-Vektor 

0322-0333 | 818- 819 | SAVE-Vektor 

033C-03FB| 828-1019 | Bandpuffer 

0340-037E | 832- 894 | Platz für Sprite (Block 13) 

0380-03BE | 896- 958 | Platz für Sprite (Block 14) 

03C0-03FE| 960-1022 | Platz für Sprite (Block 15) E 
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3/1.2.3 
VIC-Register 





Mit ’=’ bezeichnete Register sind für alle Sprites zuständig: je Sprite ein Bit, korre- 
spondierend in den Nummern (Sprite 0 — Bit 0, .. ., Sprite 7 — Bit 7). 









































Register Adresse Bedeutung 
0 53248 Basisadresse V 
0 53248 Sprite 0: X-Position 
1 53249 Sprite 0: Y-Position 
2 53250 Sprite 1: X-Position 
3 53251 Sprite 1: Y-Position 
4 53252 Sprite 2: X-Position 
5 53253 Sprite 2: Y-Position 
6 53254 Sprite 3: X-Position 
7 53255 Sprite 3: Y-Position 
8 53256 Sprite 4: X-Position 
9 53257 Sprite 4: Y-Position 
10 53258 Sprite 5: X-Position 
11 53259 Sprite 5: Y-Position 
12 53260 Sprite 6: X-Position 
13 53261 Sprite 6: Y-Position 
14 53262 Sprite 7: X-Position 
15 53263 Sprite 7: Y-Position 
16 53264 *Sprite 0-7: MSB der X-Position 
17 53265 Steuerregister 1 
Bits 0-2: Weiches Abrollen (Y-Richtung) 
Bit 3: 24/25 Zeilenwahl (24 Zeilen: 0) 
Bit 4: Bildschirm ausschalten (=0) 
Bit 5: Bit-Map-Modus einschalten (= 1) 
Bit 6: Erweiterter Hintergrundmodus (= 1) 
Bit 7: Rasterwertregister (MSB) 
18 53266 Rasterwertregister (Bits 0-7) 
19 53267 Lichtgriffel (X-Richtung) 
20 53268 Lichtgriffel (Y-Richtung) 
21 53269 *Sprites ein/aus (1 =ein) 
22 53270 Steuerregister 2 
Bits 0-2: Weiches Abrollen (X-Richtung) - 
Bit 3: 39/40 Spaltenwahl (40 Spalten: 1) 
Bit 4: Vielfarbenmodus (=1) 
Bits 5-7: nicht genutzt 
23 53271 Sprite-Vergrößerungsregister (X-Richtung) 
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Register Adresse Bedeutung 
24 53272 Adreß-Kontroliregister 
Bit 0: nicht benutzt 
Bits 1-3: Adresse des Zeichengenerators bzw. Bit-Map 
Bits 4-7: Adresse des Bildschirmspeichers 
25 53273 Unterbrechungs-Flaggenregister 
Bit 0: Rastervergleich 
Bit 1: Zusammenstoß Sprite — Hintergrund 
Bit 2: Zusammenstoß Sprite — Sprite 
Bit 3: Unterbrechung durch Lichtgriffel 
Bits 4-6: nicht benutzt 
Bit 7: eines der Bits 0-3 gesetzt 
26 53274 Unterbrechungs-Maskenregister 
Bit 0: Rastervergleich (1=ein) 
Bit 1: Zusammenstoß Sprite — Hintergrund 
Bit 2: Zusammenstoß Sprite — Sprite 
Bit 3: Unterbrechung durch Lichtgriffel 
Bits 4-7: nicht benutzt " 
27 53275 *Prioritätsregister Sprite — Hintergrund (1 = Sprite) 
28 53276 »Sprite-Multi-Color-Steuerregister (1 = Multicolormodus) 
29 53277 *Sprite-Vergrößerungsregister (Y-Richtung) 
30 53278 »Kollisionsregister Sprite — Sprite 
31 53279 *Kollisionsregister Sprite — Hintergrund 
32 53280 Rahmenfarbe 
33 53281 Hintergrundfarbe 1 
34 53282 Hintergrundfarbe 2 
35 53283 Hintergrundfarbe 2 
36 53284 Hintergrundfarbe 3 
37 53285 Sprite-Vielfarbenregister O 
38 53286 Sprite-Vielfarbenregister 1 
39 53287 Sprite 0: Farbregister 
40 53288 Sprite 1: Farbregister 
41 53289 Sprite 2: Farbregister 
42 53290 Sprite 3: Farbregister 
43 53291 Sprite 4: Farbregister 
44 53292 Sprite 5: Farbregister 
45 53293 Sprite 6: Farbregister 
46 53294 Sprite 7: Farbregister 
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SID-Register 
Register Adresse Bedeutung 
0 54272 Basisadresse SI 
0-24 | 54272-54296 SID-Chip Steuerregister (können nur beschrieben werden) 





54272-54278 
54272 
54273 
54274 
54275 


54276 


Stimme 1 

Frequenz (Low Byte) 
Frequenz (High Byte) 
Impulsbreite (Low Byte) 
Impulsbreite (High Byte) 


Klangkontroliregister 

Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 3 
Bit 2: Ringmodulation mit Stimme 3 
Bit 3: Testbit (normal unbenutzt) 

Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 


Steuerregister für Einsatz und Ausklingen 


Bits 0-3: Wert für Ausklingen (Decay) 
Bits 4-7: Wert für Toneinsatz (Attack) 


Steuerregister für Halten und Nachklingen 
Bits 0-3: Wert für Nachklingen (Release) 


Bits 4-7: Wert für Halten (Sustain) 





54279-54285 


54279 
54280 
54281 
54282 


54283 








Stimme 2 


Frequenz (Low Byte) 
Frequenz (High Byte) 
Impulsbreite (Low Byte) 
Impulsbreite (High Byte) 


Klangkontrollregister 

Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 1 
Bit 2: Ringmodulation mit Stimme 1 
Bit 3: Testbit (normal unbenutzt) 
Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 
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Register Adresse Bedeutung 


12 54284 Steuerregister für Einsatz und Ausklingen 
Bits 0-3: Wert für Ausklingen (Decay) 
Bits 4-7: Wert für Toneinsatz (Attack) 


54285 SI+13 Steuerregister für Halten und Nachklingen 
Bits 0-3: Wert für Nachklingen (Release) 
Bits 4-7: Wert für Halten (Sustain) 








54286-54292 Stimme 3 


54286 Frequenz (Low Byte) 
54287 Frequenz (High Byte) 
54288 Impulsbreite (Low Byte) 
54289 Impuisbreite (High Byte) 


54290 Klangkontrollregister 

Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 2 
Bit 2: Ringmodulation mit Stimme 2 
Bit 3: Testbit (normal unbenutzt) 

Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 


Steuerregister für Einsatz und Ausklingen 
Bits 0-3: Wert für Ausklingen (Decay) 
Bits 4-7: Wert für Toneinsatz (Attack) 


Steuerregister für Halten und Nachklingen 
Bits 0-3: Wert für Nachklingen (Release) 
Bits 4-7: Wert für Halten (Sustain) 





54293-54296 Klangfilterfunktionen 


54293 Cutoff-Frequenz des Filters (Low Byte) 
54294 Cutoff-Frequenz des Filters (High Byte) 
54295 Filter/Resonanz-Kontrollregister (1 =ein) 
Bit 0: Filter für Stimme 1 

Bit 1: Filter für Stimme 2 

Bit 2: Filter für Stimme 3 

Bit 3: Filter für externes Signal 

Bits 4-7: Resonanzwert 


Modus- und Lautstärke 

Bits 0-3: Lautstärkenkontrollregister 
Bit 4: Tiefpaßfilter 

Bit 5: Bandpaßfilter 

Bit 7: Stimme 3 ein/aus (1 =aus) 








Register, die nur gelesen werden können 





25 54297 Paddie X-Wert 

26 54298 Paddie Y-Wert 

27 54299 Momentaner Digitalwert von Stimme 3 
28 54300 Hüllkurvenregister (Stimme 3) 
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3/1.2.5 


CIA-Register 
(Complex Interface Adapter) 













56320-56335 CIA 1 














Bit 


Register Tesyazıo 


Bedeutung 






Datenregister Port A 






Tastatur: 


XXXXKRKXX Spaltenansteuerung der Matrix 






Anschlüsse an Control-Port 2 
Richtung (Joystick) 
Feuerknopf (Joystick) 






2 KXXX 
ER Htanent 






































..%%X.. | Paddle-Feuerknöpfe 
Analogschalter: 
Kine Paddiesatzauswahl Control Port 1 oder 2 
56321 Datenregister Port B 
Tastatur: 
XRXÄXXKRKKK Zeilenabfrage der Matrix 
Anschlüsse an Control-Port 1: 
222. KXXX Richtung (Joystick) 
ERNDES , CEORHERE Feuerknopf (Joystick) 
IKK.» Paddle-Feuerknöpfe 
56322 Datenrichtungsregister Port A 
56323 Datenrichtungsregister Port B 
56324-56327 Timer 
56324 Timer A (Low Byte) (für IRQ-Frequenz) 
56325 Timer A (High Byte) (für IRQ-Frequenz) 
56326 Timer A (Low Byte) 
56327 Timer B (High Byte) 
56238-56331 Realzeituhr 
56328 Zehntelsekunden - 
56329 Sekunden (BCD) 
56330 Minuten (BCD) 
56331 . XXXXXXX Stunden (BCD) 






Ren rear AM/PM (Anzeige vormittag/nachmittag) 
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56320-56335 CIA 1 





Bedeutung 








56332 
56333 


56334 
56335 


56576 


56577 


56380-56383 
56380 
56381 
56382 
56383 


56384-56387 
56384 
56385 
56386 
56387 


. KXXXXKX 
x 


56388 
56389 


56390 
56391 


























Serieller E/A-Puffer (synchron) 
Unterbrechungs-Kontrollregister 


Steuerregister A 
Steuerregister B 





56576-56831 


CIA 2 





Datenregister Port A 
Segmentwahl des VIC-II-Chip 
00 Segment 3 (49152 - 65535) 
01 Segment 2 (32768 - 49151) 
10 Segment 1 (16384 - 32767) 
11 Segment O (00000 - 16383) 
RS 232 Senderdaten-Ausgabe (TXD) 
ATN-Ausgangssignal 
Serieller Bus, Ausgabe Takt 
Serieller Bus, Ausgabe Daten 
Serieller Bus, Eingabe Takt 
Serieller Bus, Eingabe Daten 


Datenregister Port B 

RS 232 Daten empfangen (RXD) 
RS 232 Sendeaufforderung (RTS) 
RS 232 Datenterminal bereit (DTR) 
RS 232 Ringindikator (RI) 

RS 232 Träger entdeckt (DCD) 

RS 232 Bereit zum Senden (CTS) 
Datensatz bereit (DSR) 


Datenrichtungsregister Port A 
Datenrichtungsregister Port B 


Timer 

Timer A (Low Byte) 
Timer A (High Byte) 
Timer A (Low Byte) 
Timer B (High Byte) 


Realzeituhr 

Zehntelsekunden 

Sekunden 

Minuten 

Stunden 

AM/PM (Anzeige vormittag/nachmittag) 


Serieller E/A-Puffer (synchron) 
Unterbrechungs-Kontrollregister 


Steuerregister A 
Steuerregister B 
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3/2 
Der Basic-Interpreter des C 64 





In diesem Kapitel wird der Basic-Interpreter des C 64 genauer betrachtet. Wir wer- 
den zunächst seinen generellen Aufbau besprechen und die Adressen der wichtigsten 
Routinen im Basic-ROM zusammenstellen. Danach folgt dann ein komplettes, dis- 
assembliertes ROM-Listing, welches Ihnen ermöglicht, die Routinen für Ihre Pro- 
gramme effizient zu nutzen. 


3/2.1 
Übersicht über den Basic Interpreter 





Der Basic-Interpreter des C 64 beinhaltet alle Routinen, die zum Schreiben und Be- 
arbeiten von Basic-Programmen benötigt werden. Dies sind im wesentlichen Routi- 
nen zur Eingabe von Programmzeilen, zur Ausführung von Befehlen sowie für 
arithmetische Operationen. 


Die Routinen zur Eingabe von Programmzeilen liegen am Anfang des Interpreters. 
Sie bestehen aus einer Routine zum Löschen von Zeilen sowie einer Routine zum 
Einfügen von Programmzeilen. Soll eine Zeile nur verändert werden, so muß diese 
erst gelöscht und dann wieder eingefügt werden. Zu der Zeileneingabe gehören 
außerdem Routinen, die den eingegebenen Text in eine interne Darstellung wandeln, 
bei der jedes Basic-Schlüsselwort wie z.B. RUN, GOTO, +, SIN etc. in ein Token 
(ein 1-Byte-Wert mit gesetzten Bit 7) umgewandelt wird. Um diese Darstellung 
wieder ausgeben zu können, existiert natürlich auch eine Routine, die eine Basic- 
Zeile in Klartext ausgibt. Diese wird vom LIST-Befehl genutzt. Diese Routinen 
können genutzt werden, um z.B. ein kleines Textverarbeitungssystem zu schreiben, 
oder den Editor um einige Eingabehilfen zu erweitern. 
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Nach dem Basic-Start befindet sich der Basic-Interpreter in der Eingabewarte- 
schleife. Hier wird solange verweilt, bis von der Tastatur eine Zeile eingegeben und 
mit <RETURN> abgeschlossen wurde. Die eingegebene Zeile wird dann in die 
interne Darstellung gewandelt. Beginnt die Zeile mit einer Zeilennummer, so wird 
eine evtl. vorhandene Zeile mit der gleichen Zeilennummer gelöscht. Dann wird die 
neue Zeile in den vorhandenen Text eingefügt. Ist keine Zeilennummer vorhanden, 
so handelt es sich um Befehle, die sofort ausgeführt werden sollen. Dies ist der soge- 
nannte Direktmodus. Die Routinen der Befehle werden dann in der Interpreter- 
schleife nacheinander aufgerufen. 


Wichtig für den Assemblerprogrammierer sind außerdem die arithmetischen Opera- 
tionen, die der C 64 bietet. Wer in Assemblerprogrammen mit Fließkommazahlen 
arbeiten will, kann sich viel Arbeit ersparen, indem er die Routinen des Basic- 
Interpreters benutzt. Alle Fließkommafunktionen werden im C 64 zwischen zwei 
Speicherbereichen, in denen die Fließkommazahlen stehen müssen, durchgeführt. 
Diese Bereiche werden mit FAC und ARG bezeichnet. Im Basic-Interpreter finden 
sich Routinen zur Berechnung der folgenden Funktionen: +, —, x, /,1, SGN, INT, 
ABS, SQR, LOG, EXP, COS, SIN, TAN, und ATN. 


Wenn Sie den Basic-Interpreter verändern oder erweitern wollen, sollten Sie noch 
wissen, wie Programm und Daten in den Speicherbereich abgelegt werden. Basic 
nutzt den ihm zugewiesenen Bereich (Standard: $801-$9FFF) voll aus. Am Anfang 
des Bereichs wird das Programm abgelegt. Direkt im Anschluß an das Programm 
folgen die normalen Variablen, die während des Programmlaufs angelegt werden. 
Die Startadresse dieses Bereichs steht in $2D/2E. Daran schließen sich die Arrays 
an. Die Startadresse dieses Blocks finden Sie in $2F/$30, und die Endadresse (+1) 
in $31/$32. Bei Stringvariablen werden nur der Name, die Länge, sowie die Adresse 
der Strings in der Tabelle abgelegt. Ist der String im Programm konstant angegeben, 
wird diese Adresse in die Tabelle übernommen. Bei einem eingegebenen oder be- 
rechneten String, wird dieser am Ende des Speicherbereichs abgelegt und seine 
Adresse in die Tabelle übernommen. Die folgende Skizze soll den Speicheraufbau 
des C 64 verdeutlichen: 
































Startadresse des Bereichs Speicherinhalt ] 
($2B/$2C) > B — (43,44) 
rogrammtext 
Bene normale Variablen ae: 
Be indizierte Variablen 
(Arrays) 
(831/532) > n = (49,50) 
v 
A 
! 
wen Zeichenketten “el 
(Strings) 
($371838) > (55,56) 
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3/2.2 


Die wichtigsten Adressen 
des Basic-Interpreters 





In der folgenden Tabelle finden Sie eine nahezu vollständige Auflistung der Routi- 
nen des Basic-Interpreters, die Sie für eigene Anwendungen benutzen können. Die 
Liste ist nach Adressen geordnet. Teilweise sind die Ein- und Ausgabeparameter der 
Routinen mit angesprochen. Sie sollten sich daher die Routinen im ROM-Listing 
des Basic-Interpreters (Kapitel 3/2.3) genau ansehen. 


Adr. Name Funktion der Routine 
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Funktion der Routine 
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Funktion der Routine 
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4/2.1 
Grundlagen 





Bevor man einen Rechner programmieren kann, muß man sich zunächst mit seinen 
Eigenschaften vertraut machen. Insbesondere die Handhabung sollte während einer 
Programmierphase nicht noch zusätzliche Schwierigkeiten aufwerfen. Auch sollte 
man sich mit den Editiermöglichkeiten (Erfassen eines Programmes) vertraut 
machen. 


Das vorliegende Kapitel beschäftigt sich zunächst mit den drei Betriebsarten des 
C 64 und geht im nächsten Abschnitt auf eine dieser Betriebsarten näher ein. 


Eine grundlegende Eigenschaft von Programmen sind Variablen, in denen Zahlen 
oder Zeichenreihen für Berechnungen vorgehalten werden können. Kapitel 4/2.1.3 
erklärt Grundlegendes über Variablen. 


4/2.1.1 


Betriebsarten 





Ihr Rechner kennt drei sogenannte Betriebsarten. Die Betriebsart, in der Sie sich 
nach dem Einschalten befinden, wird Direktmodus genannt, da Eingaben an den 
Rechner direkt von ihm ausgeführt werden. 


Der nächste Modus wird Editiermodus genannt. In gewissem Sinne ist er auch ein 
Direktmodus, jedoch werden hier keine allgemeinen Arbeiten erledigt, sondern die 
Editierung eines Programmes vorgenommen; daher der Name. 


Als letztes ist der Programm- oder auch Rechenmodus zu hennen. Dieser Modus 
ist aktiv, wenn Sie ein Programm gestartet haben. 


Im folgenden wollen wir nur auf den Direktmodus explizit eingehen, da sich die 
beiden anderen Modi von selbst ergeben werden. Wenn Sie länger mit dem Rechner 
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gearbeitet haben, werden Sie sich sicherlich keine Gedanken mehr darüber machen, 
in welchem Modus Sie arbeiten. Dies ist auch gar nicht nötig. 


4/2.1.2 


Direktmodus 





Verbleiben wir noch einige Zeit in dem Modus, den wir nach Einschalten des Rech- 
ners vorliegen haben: im Direktmodus. Hier wollen wir erste kleine Rechenauf- 
gaben erledigen. 


Ihr Computer wird nicht umsonst als Rechner bezeichnet. Rechenaufgaben erfüllt 
er nicht nur in Form von Programmen, sondern auch im Direktmodus, ähnlich ei- 
nem Taschenrechner. Fragen Sie Ihren Rechner doch mal nach dem Ergebnis der tri- 
vialsten aller Rechnungen, indem Sie ein Fragezeichen in Verbindung mit der Frage 
in folgender Form eingeben: 


Wenn Sie nun die RETURN-Jaste drücken, erscheint unter Ihrer Frage direkt die 
Antwort, selbstverständlich eine „2“ Darunter befindet sich eine Leerzeile, gefolgt 
von der obligatorischen „READY“-Meldung. Darunter blinkt wieder der Cursor 
und erwartet eine neue Eingabe von Ihnen. 


Probieren Sie nun einzelne Rechnungen, indem sie jeder Rechnung ein Fragezeichen 
voranstellen. Als mathematische Operatoren bedienen sie sich des „+ “-Zeichens für 
die Addition, des ‚‚-“-Zeichens für die Subtraktion, des ‚,*‘“ für die Multiplikation 
und „/“ für die Division. Als Potenzierung dient der „Pfeil nach oben“ links neben 
der RESTORE-Iaste. Nicht zu verwechseln mit den Tasten für „Cursor nach oben“ 


Als Gegenstück für die Potenzierung wird das Wurzelziehen allerdings nicht durch 
eine Taste, sondern einen Befehl initiiert. Geben Sie z.B. ein 


Wenn Sie anschließend die RETURN-Iäste drücken, erscheint das Ergebnis in Form 
von 1.41421356 wieder unterhalb Ihrer Frage. In ähnlicher Weise sind auch andere 
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mathematische Funktionen zugelassen wie Sinus (SIN(Argument)), Cosinus 
(COS(Argument)) oder auch der Tangens (TAN(Argument)). Weitere mathemati- 
sche Funktionen entnehmen Sie bitte dem Handbuch („Argumente“ gibt den jeweils 
umzurechnenden Wert an). 


Merke: Mit einem „?“ können im Direktmodus beliebige mathemati- 
sche Formeln angegeben werden. Nach Drücken der RETURN- 
Taste ist das Ergebnis dieser Rechnung sofort auf dem Bild- 
schirm sichtbar. 


Wenn der Rechner nur als besserer Taschenrechner dient, wäre er etwas zu teuer. 
Nähern wir uns seinen Möglichkeiten etwas weiter, indem wir Variablen verwenden. 


4/2.1.3 


Variablen 








Aus der Algebra dürfte Ihnen bestimmt noch das „Rechnen“ mit Buchstaben geläu- 
fig sein. Ähnliches leistet auch Ihr Computer. Waren bei der Algebra die Buch- 
staben ein allgemeiner Platzhalter für irgendwelche Zahlen, so sind es allerdings in 
Ihrem Rechner konkrete Zahlen, die sich jedoch laufend verändern können. 


Fangen wir mit einem kleinen Beispiel an. Geben Sie nacheinander in Ihren Rechner 
ein: 


A=100 (RETURN-Taste) 
B=123 (RETURN-Taste) 
?A+B (RETURN-aste) 


Es erscheint sofort das Ergebnis: 223. In diesem Falle hat die sogenannte Variable 
A zunächst den Wert 100 zugewiesen bekommen, die Variable B den Wert 123. Im 
Direktmodus haben wir dann gleich diese beiden Zahlen addiert, wobei im Gegen- 
satz zur Algebra allerdings ein konkretes Ergebnis geliefert wurde. 








Dieses kleine Beispiel hinkt zwar etwas, wie jedes Beispiel, da die Eingabe 
„100+123“ sicherlich schneller vonstatten gegangen wäre. Der Sinn der Variablen 
wird aber gleich deutlich, wenn Sie eingeben 
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?A°B (RETURN-Taste) 


Es erscheint sofort das Ergebnis 12300, ohne daß die Variablen erneut besetzt wer- 
den müssen. Auch die anderen mathematischen Operationen liefern sofort ein ent- 
sprechendes Ergebnis. 


Nachdem wir nun die Variablen an einem kleinen Beispiel kennengelernt haben, 
wollen wir noch etwas Grundsätzliches zu dem Thema sagen. Variablen werden 
beim C 64 und 128 generell aus der Verbindung von ein oder zwei Buchstaben gebil- 
det, wobei der zweite Buchstabe auch durch eine Ziffer von 1 bis O ersetzt werden 
kann. Eine Ziffer am Anfang eines sogenannten Variablennamens ist unzulässig. 
Auch Sonderzeichen sind nicht gestattet. 


In unserem Beispiel haben wir die beiden Variablen A und B verwendet. Diese Va- 
riablen sind Platzhalter für Dezimalzahlen (Brüche als Kommazahlen) wie z.B. 0.25 
oder 124.3333. Aber auch Variablen wie 100 und 123 (ganze Zahlen) können mit die- 
sen Variablen dargestellt werden. Für ganze Zahlen (auch -1, -2, -3, . . .) gibt es noch 
einen gesonderten Variablentyp, als Integervariablen bezeichnet. Als Unterschei- 
dungsmerkmal dient ein angehängtes ‚‚Y0“‘-Zeichen. Die Variablen A und AY% kön- 
nen nebeneinander benutzt werden. AYo kann allerdings keine Werte mit Nachkom- 
mastellen annehmen. 


Ein weiterer Variablentyp sind die sogenannten String-Variablen oder Zeichen- 
reihen-Variablen. In ihnen werden Buchstaben, aber auch Ziffern (ohne zahlmäßige 
Bedeutung), die üblichen Sonderzeichen, Grafikzeichen, aber auch Sonderzeichen 
in Form von Grafiksymbolen oder Steueranweisungen gespeichert. Den Zeichen- 
reihen-Variablen sind gesonderte Befehle zugeordnet, die wir in Kapitel 4/2.4 
besprechen werden. 


Obwohl wir im weiteren Sprachgebrauch auch weiterhin die Bezeichnung Dezimal- 
komma verwenden wollen, sei an dieser Stelle darauf hingewiesen, daß Zahlen mit 
„Nachkommastellen“ durch einen Punkt getrennt werden. Dies entspricht der ame- 
rikanischen Schreibweise. Also: nicht 1,25 für 1%, sondern 1.25. 


Merke: Dezimalzahlen werden mit einem Punkt dargestellt. 
Nun noch etwas zu der sogenannten Lebensdauer von Variablen. 


Eine Variable behält so lange ihren Wert, bis dieser geändert wird. Geben Sie jetzt 
z.B. 


A=200 (RETURNJaste) 


ein, und anschließend 
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?A+B (RETURN-Taste) 
so ist das Ergebnis 323, sofern Sie zwischendurch den Rechner nicht ausgeschaltet, 
und damit die Variablen gelöscht haben. Wir haben also den Wert in der Variablen 
A geändert. Andern Sie nun auch den Wert in der Variablen B, indem Sie eingeben 


B=400 (RETURN-TASTE) 


und prüfen Sie das Ergebnis von 





?A+B (RETURN-TASTE) 


Die Werte der Variablen können Sie sich anschauen, wenn Sie lediglich den 
Variablennamen nach dem Fragezeichen eingeben. Geben Sie also ein 


?A (RETURN-Taste) 
?B (RETURNTaste) 


Neben den Neuzuweisungen eines Wertes an eine Variable gibt es noch einige andere 
Möglichkeiten, den Wert zu verändern, nämlich drei verschiedene Methoden, alle 
Variableninhalte zu löschen. Einerseits verlieren nach dem Aus- und Wiederein- 
schalten die Variablen ihren Wert (d.h. er ist 0 generell für alle Variablen nach dem 
Einschalten). Aber auch bei einem Programmstart mit RUN, wie wir später noch 
sehen werden, werden alle Werte von Variablen gelöscht. Die dritte Möglichkeit, alle 
Variablen zu löschen, beinhaltet der CLR-Befehl. Geben Sie also am Bildschirm ein 





CLR (RETURN-Taste) 





Wenn Sie nun eingeben 





?A (RETURN-Taste) 
?B (RETURN-Taste) 


so sind die Werte in den Variablen null. 


Merke:  Variablennamen werden aus zwei Buchstaben oder aus einem Buch- 
staben mit einer Ziffer gebildet. 


Der Wert einer Variablen nach dem Einschalten, nach einem Pro- 
grammstart oder nach dem CLR-Befehl ist null. 


Eine Variable behält so lange ihren Wert, bis er geändert oder ge- 
löscht wird. 
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Für Integervariablen wird an den Variablennamen ein ,,%0°- 
Zeichen angehangen. 


Für Zeichenreihen-(String-)Variablen wird an den Variablen- 
namen ein ‚‚$°‘-Zeichen angehängt. 


Nachdem wir nun einige Möglichkeiten des Direktmodus ausgeschöpft haben, 
kommen wir zur Programmerstellung. 
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412.2 
Eingabe — Verarbeitung — Ausgabe 





Im vorliegenden Kapitel wollen wir die Grundzüge eines jeden Programmes darstel- 
len. Jedes noch so große Programm beginnt mit dem Erfassen der zu verarbeitenden 
Daten, die in einem weiteren Schritt verarbeitet werden, um anschließend in neuer 
Form angezeigt zu werden. Bei größeren Programmen ist diese Vorgehensweise, wie 
sie in Bild 4/2.2-1 dargestellt ist, vielfach ineinander verschachtelt. Trotzdem weist 
jedes noch so kleine oder noch so große Computerprogramm diese Merkmale auf. 


Dateneingabe 


Verarbeitung 





Ausgabe 


Bild 4/2.2-1: Grundstruktur aller Programme 
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4/2.2.1 


Allgemeine Programmstruktur 





In Basic erhält jede Programmanweisung eine Zeilennummer. Aufgrund dieser 
Zeilennummer wird das Programm von der kleinsten Zeilennummer bis zur größten 
Zeilennummer abgearbeitet, sofern es nicht auf Programmstrukturbefehle trifft, 
wie wir sie im nächsten Kapitel besprechen werden. Üblicherweise werden die Zeilen- 
nummern mit einer Schrittweite von zehn Zeilen gewählt, um auch spätere Einfü- 
gungen in das Programm möglich zu machen. 


Merke: Jede Programmzeile beginnt mit einer Zeilennummer. Das 
Programm wird in der Reihenfolge der Zeilennummer abgear- 
beitet. 


In der Regel endet das Programm mit dem sogenannten END-Befehl, dieser kann 
jedoch weggelassen werden, sofern sich das Programmende auch bei der letzten Zei- 
lennummer befindet. Bei größeren Programmen ist dies selten der Fall. 


Merke: Mit dem END-Befehl wird ein Programm beendet. 


Eine weitere Möglichkeit des Programmabbruchs ist die Verwendung der RUN/ 
STOP-Taste. Im Augenblick des Niederdrückens der Taste wird das Programm sofort 
abgebrochen, wobei das Programm noch bekanntgibt, in welcher Zeilennummer es 
abgebrochen wurde, wie wir später noch sehen werden. 





Teil 4 Kapitel 2.2 Seite 3 





Basic 2.0 [ 








2.2 Eingabe — Verarbeitung — Ausgabe Teil 4: Software-Erstellung 


4/2.2.2 
Datenausgabe mit PRINT 





Eigentlich ist es nichts neues, die Datenausgabe mit PRINT. Das im Direktmodus 
von uns verwendete „?“ ist nichts anderes als eine Abkürzung für den PRINT- 
Befehl. Schreiben Sie also noch mal 





A=100 (RETURN-Taste) 


| 


und geben Sie das Quadrat von A aus mit 
?A+ A 


Benutzen Sie nun anstelle des Fragezeichens den PRINT-Befehl und geben Sie ein 


PRINT A * A (RETURN-Taste) 


Das Ergebnis ist das gleiche. Nebenbei bemerkt, können Sie auch bei der Programm- 
meditierung, zu der wir gleich kommen werden, statt eines PRINT ein ,,?“ eingeben. 
Der Computer macht dann selbständig aus dem „?“ ein PRINT. 


Merke: Mit dem PRINT-Befehl können Daten ausgegeben werden. 


Zuvor jedoch noch etwas zu den Variablenzuweisungen, die wir bis jetzt einfach so 
eingetippt haben. Wenn Sie eingeben „A=100“% so wird der Variablen A der Wert 
100 zugewiesen. Diesem Umstand haben wir bisher keine weitere Bedeutung zuge- 
messen, jedoch wollen wir nicht unerwähnt lassen, daß es sich in diesem Falle nicht 
um ein Gleichheitszeichen im mathematischen Sinne handelt, sondern um die soge- 
nannte Zuweisung. Das Gleichheitszeichen sollte immer in der Bedeutung „ergibt 
sich zu“ gelesen werden. Unsere Eingabe bedeutet also nicht „A gleich 100“ son- 
dern „A“ ergibt sich zu 100. Genaugenommen müßte man im Computer schreiben 


LET A=100 


Dieses LET wird aber von den meisten Programmierern der Einfachheit halber weg- 
gelassen. Die normale Schreibweise, z.B. bei der Erstellung von Flußdiagrammen, ist: 
A := 100. 
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Merke: Mit dem ‚‚=‘“-Zeichen können Variablenwerte zugewiesen 
werden. 


Daß den Variablen nicht nur konstante Zahlen zugewiesen werden können, sondern 
auch die Werte anderer Variablen, werden wir in unserem ersten kleinen Programm- 
beispiel gleich kennenlernen. Besonders dieser Umstand ist es, der den Computer 
zu einem leistungsfähigen Hilfsmittel macht. 


Wie vorher erwähnt, bestehen Programmzeilen aus der Anweisung und der voran- 
gestellten Zeilennummer. Wir tippen also ein: 





10 A=125 
20 B=A 


30 PRINTA*B 





Damit haben wir unser erstes kleines Basicprogramm fertiggestellt, bei dem in Zeile 
10 der Variablen A der Wert 125 zugewiesen wird, in Zeile 20 der Variablen B der 
aktuelle Wert von A (ebenfalls 125) und in Zeile 30 das Produkt der beiden Zahlen 
ausgegeben wird. 


Natürlich tut sich noch nichts auf dem Bildschirm, da wir uns im Editiermodus be- 
finden und nur das Programm zeilenweise dem Rechner übergeben haben. Nach 
Abschluß einer jeden Zeile die RETURN-Iaste zu drücken, diese Angaben wollen 
wir jedoch im folgenden weglassen. Vom Editiermodus in den Programm-/Rechen- 
modus kommen wir mit einem weiteren Basic-Befehl. 


Merke: Mit dem Befehl RUN wird das im Speicher befindliche Pro- 
gramm bei der ersten Zeilennummer gestartet. 


Den END-Befehl haben wir in unserem Beispiel weggelassen. Wir geben also nun 
RUN ein, und unter unserer Eingabe erscheint das Ergebnis: 15625. Gegenüber dem 
Direktmodus haben wir bis jetzt noch nicht viel gewonnen. Betrachten wir ein neues 
Beispiel. 


Bevor wir jedoch ein neues Programm eingeben können, müssen wir das bisherige 
Programm löschen. Es befindet sich im Speicher und würde nur die Entwicklung 
unseres neuen Programmes stören. Daß es sich im Speicher befindet, können Sie 
ganz einfach feststellen, indem Sie eingeben 


| 


und natürlich das Drücken der RETURN-IAste nicht vergessen. Unsere zuvor einge- 
tippten Zeilen erscheinen nochmals auf dem Bildschirm. 











Basic 2.0 Teil 4 Kapitel 2.2 Seite 5 








2.2 Eingabe — Verarbeitung — Ausgabe Teil 4: Software-Erstellung 


Merke: Mit dem LIST-Befehl kann man das im Speicher befindliche 
Programm auf dem Bildschirm darstellen. 


Aber wir wollten ja unser Programm löschen. Auch hierzu gibt es einen eigenen Be- 
fehl: NEW 


Merke: Mit dem NEW-Befehl wird das im Speicher befindliche Pro- 
gramm gelöscht. 


Dieser Befehl ist nicht zu verwechseln mit dem CLR-Befehl, der nur die Variablen 
löscht. Nachprüfen können Sie den Vorgang, indem Sie nach einem NEW nochmals 
LIST eingeben. 


Das soeben eingetippte Programm erscheint nicht mehr auf dem Bildschirm. 


Nehmen wir an, wir wollen alle Zahlen von 1 bis 50 mit dem Faktor 2,25 multiplizie- 
ren. Auf den Direktmodus soll verzichtet werden, d.h. die Berechnungen sollen im 
Programm-Modus durchgeführt werden. Zwei Möglichkeiten bieten sich an: 


10 A=1 
20 PRINT A » 2.25 


oder 


10 A=1 
20 B=2.25 
30 PRINTA*B 


Ihr Commodore 128 hat einen sogenannten bildschirmorientierten Editor. Nach- 
dem Sie das Programm zum erstenmal mit RUN (RETURN) gestartet haben, er- 
scheint das Ergebnis für 1 » 2.25. Wollen Sie nun das Ergebnis für die Zahl 2 be- 
rechnen lassen, so gehen Sie mit dem Cursor in die Programmzeile 10, so daß sich 
der Cursor auf der 1 befindet. Ist das Programm durch Manipulation mit anderen 
Jasten nicht mehr auf dem Bildschirm, so hilft hier wieder der LIST-Befehl. Nach- 
dem der Cursor sich nun genau über der „l“ befindet, drücken Sie die Ziffer „2“ 
Die Änderung ist im Moment noch nicht an das Programm im Rechner übergeben 
worden, sondern steht nur auf dem Bildschirm. Dies passiert erst nach Drücken der 
RETURN-Iaste oder auch der ENTER-Iaste beim C 128. 


Merke: Programmzeilen lassen sich sehr leicht am Bildschirm ändern. 
Dazu ist die zu ändernde Stelle mit dem Cursor anzufahren 
und zu ändern. Anschließend muß die RETURN-Taste ge- 
drückt werden. Auch die Taste INST/DEL kann als Hilfe zum 
Löschen oder Einfügen von Zeichen benutzt werden. 
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Auch das Eintippen des RUN können wir uns ersparen, indem wir den Cursor auf 
den Befehl (irgendwo auf der Zeile) bewegen und die RETURN-Jäste drücken. Das 
Ergebnis der neuen Berechnung ist 4.5. Sofern Sie an Ihrem Bildschirm eine 4.55 
sehen, so kommt dies durch die Kombination des ersten Ergebnisses mit dem neuen 
Ergebnis. Sie sollten das alte Ergebnis zunächst durch Überschreiben mit Leerzei- 
chen löschen. Auch können Sie das Programm an einer anderen Stelle auf dem Bild- 
schirm starten (Eingabe von Run in einer anderen Zeile). 


Trotz dieser einfachen Änderungsmösglichkeiten ist es natürlich sehr mühsam, das 
Ergebnis für eine Zahl von 1 bis 50 durchzurechnen. Die Änderung der Programm- 
zeile können wir uns mit einem weiteren Befehl ersparen, den wir im nächsten Un- 
terkapitel vorstellen wollen. 


Zunächst soll jedoch noch auf ein paar weitere Besonderheiten des PRINT-Befehls 
eingegangen werden. Als ordnungsliebender Anwender wollen Sie natürlich nicht 
nur das Ergebnis der Rechnung betrachten, sondern auch die daran mitwirkenden 
Faktoren. Haben Sie unser zweites Beispiel (A=2, B=2.25) gewählt, so können Sie 
Zeile 30 sehr einfach durch Überschreiben ändern in 


30 PRINT ABA »B 


Hier haben Sie einen weiteren Umstand kennengelernt, der Ihnen bei der Editierung 
Ihrer Programme sehr hilfreich sein kann. 


Merke: Programmzeilen können vollständig neu eingegeben werden, 
dabei wird die alte Programmzeile überschrieben (gelöscht). 


Wenn Sie nun das geänderte Programm starten, werden Sie feststellen, daß die drei 
Daten nebeneinander auf dem Bildschirm erscheinen. Das Komma zwischen den 
Variablen wirkt dabei als Tabulator. Die erste Zahl steht aber nicht am linken Bild- 
schirmrand, sondern ein Zeichen weiter hinten. Dies kommt durch das — in unse- 
rem Falle positive — Vorzeichen. Bei negativen Zahlen steht hier ein ‚,‚-“. 


Wenn Sie nun — unter Zuhilfenahme des Cursors — die Zwischenräume zwischen 
den ersten Ziffern einer jeden Zahl ausrechnen, so werden Sie feststellen, daß die 
ersten Ziffern jeweils zehn Zeichenpositionen auf dem Bildschirm voneinander ent- 
fernt sind. Der Tabulatorabstand beträgt also zehn Bildschirmzeichen. 


Merke: Beim PRINT-Befehl können diverse Ausgaben (alle Variablen- 
typen und Konstantenwerte) durch „ , “ voneinander getrennt 
werden. Die Ausgabe erfolgt jeweils im Abstand von zehn 
Bildschirmzeichen. Bei längeren Ausgaben ist dies ein Viel- 
faches von zehn Bildschirmzeichen. 
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Ersetzen wir nun die Kommata in Zeile 30 durch ein „ ; “ wie folgt 





30 PRINT A;B;A + B 





“ 


Dies können Sie sowohl durch Überschreiben der Kommata mit einem „; “ — an- 
schließend das RETURN drücken nicht vergessen — oder durch Neueingabe der 
Zeile 30. Wenn Sie das Programm starten, werden Sie feststellen, daß die Ziffern 
nur durch ein Leerzeichen — und die Stelle für das Vorzeichen — voneinander ge- 
trennt sind. 


Merke: Im PRINT-Befehl können Variablen und Konstanten durch 
„5“ getrennt ausgegeben werden. Die Ausgabe erfolgt ohne 
Tabulatorposition wie bei „, “ „, “ und „; “ können inner- 
halb eines PRINT-Befehles gemischt werden. 


Diese beiden Hilfsmittel sind sehr wichtig für die spätere anwenderfreundliche Aus- 
gabe bei Ihren Programmen. An dieser Stelle ist es vielleicht angeraten, die Lektüre 
des Buches zwecks Übung nach eigenen Vorstellungen zu unterbrechen. 


412.2.3 
Datenerfassung mit INPUT 





Wem das Ändern von Programmzeilen bei fortlaufenden Berechnungen zu kompli- 
ziert erscheint, der kann den aktuellen Wert auch per Programm vom Bildschirm 
erfassen lassen. Dazu dient uns der INPUT-Befehl. Wir ersetzen Zeile 10 durch 


10 INPUT A 


Wenn Sie nun das Programm starten, erscheint als erstes ein Fragezeichen, und da- 
hinter blinkt der Cursor. Der Rechner erwartet nun eine Eingabe durch Sie, nämlich 
den gewünschten Wert für die Variable A. Geben Sie jetzt eine 3 ein, und drücken 
die RETURN-Iaste, so erscheint — bei der letzten Form des Programmes aus dem 
vorigen Kapitel: 
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3 2.25 675 


Wenn Sie erneut das Programm mit RUN starten, können Sie den nächsten Wert 
eingeben usw. 


Merke: Mit dem INPUT-Befehl können Werte für Variablen vom Bild- 
schirm erfaßt werden. 


Für unseren einfachen Fall mag das „?“ als Hinweis für eine Dateneingabe ausrei- 
chen. Bei komplizierten Anwenderprogrammen ist es manchmal unmöglich, aber 
auf jeden Fall anwenderunfreundlich, festzustellen, welche Eingabe der Computer 
im Augenblick erwartet. In diesem Falle wird der INPUT-Befehl weiter modifiziert, 
indem wir eine Meldung für den Anwender einbauen. Dies könnte wie folgt aus- 
sehen: 


10 INPUT“AKTUELLER WERT“;A 


Wenn wir nun das Programm starten, erscheint als Meldung des Computers 


AKTUELLER WERT? 


Dahinter blinkt wieder der Cursor und erwartet unsere Eingabe. 


Merke: Innerhalb der Input-Anweisung känn ein Anwenderhinweis 
(Text) durch „ “ “ begrenzt werden. Zwischen dem letzten 
Anführungszeichen des Textes und der Variable ist unbedingt 
ein „; “ einzugeben. 


Auch unsere Variable B können wir mittels des INPUT-Befehls erfassen. Dies als 
Übung für Sie. Ändern Sie Zeile 20 entsprechend ab. 


Aber auch innerhalb eines INPUT-Befehls können mehrere Variablenwerte erfaßt 
werden. Die Variablen werden dabei durch „,‘“ getrennt. 


Merke: Nach INPUT können mehrere Variablen durch Kommata ge- 
trennt, eine sogenannte Variablenliste, erfaßt werden. 


Unsere Programmzeile könnte dann wie folgt ausschen 





[o INPUT AKTUELLE WERTE FÜR A/B“;A,B 
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Jetzt stört natürlich noch Zeile 20, da diese überflüssig ist. Dazu geben wir lediglich 
die Ziffer 20 am Zeilenanfang einer leeren Zeile ein und drücken die RETURN- 
Taste. Wir merken uns also: 


Merke: Durch Eingabe einer Zeilennummer (ausschließlich) und 
Drücken der RETURN-Taste wird eine Programmzeile ge- 
löscht. 


Dies können Sie sich mit dem LIST-Befehl sofort veranschaulichen. Daß nun die 
Zeile 20 in unserem Programm fehlt, ist für die Bearbeitung des Programmes nicht 
weiter tragisch. Wenn Sie nun das Programm starten, erscheint die Meldung 





\ AKTUELLE WERTE FUER A/B? 





Geben Sie die beiden Werte, z.B. 5 und 95, durch Komma getrennt ein, und drücken 
Sie dann die RETURN-Taste. Das Ergebnis erscheint in der üblichen Form. Geben 
Sie aber z.B. nur die 5 als Wert für A ein und drücken Sie dann die RETURN-Iaste, 
so erscheinen in der nächsten Zeile zwei aufeinanderfolgende Fragezeichen. Damit 
deutet der Computer Ihnen an, daß er noch weitere Eingaben erwartet, die sich in- 
nerhalb des gleichen INPUT-Befehls befinden. Wenn Sie nun die 95 eingeben, erhal- 
ten Sie das gleiche Ergebnis wie vorhin. 


Merke: Bei einem INPUT-Befehl mit Variablenliste müssen alle Werte 
für die Variablen durch Kommata getrennt eingegeben werden. 
Andernfalls erfragt der Rechner durch „??“ so lange Werte, bis 
jeder Variablen ein Wert zugewiesen ist. Sinuvollerweise sollte 
ein Hinweis im Text des INPUT-Befehls nicht fehlen. 


Wir haben bewußt für Sie einfache Beispiele herangezogen, da z.B. komplizierte 
mathematische Berechnungen im Thema nicht weiterführen. Trotzdem sollten Sie 
an dieser Stelle Ihre Phantasie etwas spielen lassen oder vielleicht auch ein aktuelles 
Problem aufgreifen, um das Dargestellte zu üben. 


Im nächsten Kapitel wollen wir dann einige Programmstruktur-Befehle durchspre- 
chen, die Ihnen u.a. den lästigen Neustart des Programmes abnehmen, wenn Sie z.B. 
die Vorgabe, alle Zahlen von 1 bis 50 mit 2.25 zu multiplizieren, erfüllen wollen. 
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412.3 
Programmstruktur-Befehle 





In Kapitel 4/2.2 haben wir die grobe Programmstruktur „Eingabe — Verarbeitung 
— Ausgabe“ kennengelernt und dies an einem Minimalprogramm verdeutlicht. Hier 
noch ein weiteres Beispiel für diese Vorgehensweise. 


10 INPUT“FAKTOREN FUER A«B“; A,B 


20 O=A+B 
30 PRINT C 





In diesem Programm stellt jede der Programmzeilen einen der oben genannten 
Schritte dar: 


10 Datenerfassung 


20 Verarbeitung 
30 Datenausgabe 





Wollte man nun z.B. die Produkte für alle Zahlen von 1 bis 100 jeweils sowohl für 
den Wert von A als auch für den Wert von B errechnen, müßte man zehntausendmal 
das Programm mit RUN und der RETURN-Iaste neu starten. Dies wollen wir uns 
als erstes in diesem Kapitel vereinfachen. 


4/2.3.1 
Springen mit GOTO 





Wir ergänzen vorstehendes Programm um folgende Zeile: " 


40 GOTO 10 
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Vergessen Sie nicht den Druck auf die RETURN-Jäste. Vielleicht sollten Sie sich 
nun auch das komplette Programm mit dem LIST-Befehl anschauen. 


Was besagt nun unsere neue Zeile 40. Das GOTO — man kann es übersetzen mit 
„gehe nach“ — beinhaltet einen sogenannten unbedingten Programmsprung. 
Kommt das Programm zu unserer neuen Zeile 40, so erhält es die Anweisung in 
Zeile 10 fortzufahren. Wenn man sich unser Programm nun genau betrachtet, ist es 
eine prinzipielle Endlosschleife, da es bei Zeile 40 immer wieder in Zeile 10 beginnt 
und von dort aus wieder zur Zeile 40 gelangt. Dies sind die berühmt-berüchtigten 
Endlosschleifen, die wir hier bewußt in Kauf nehmen. 


Merke: Mit GOTO und Angabe einer Zeilennummer wird das Programm 
veranlaßt, an der angegebenen Zeilennummer fortzufahren. Ist die 
angegebene Zeilennummer im Programm nicht vorhanden, so mel- 
det der Rechner einen »®UNDEF‘D STATEMENT ERROR« mit 
Angabe der Zeilennummer, in der der Sprungbefehl steht. 


Der GOTO-Befehl hat das Lager der Programmierer gespalten. Die einen befürwor- 
ten die Anwendung dieses Befehles, die anderen lehnen ihn als unsaubere Program- 
mierung ab. Obwohl im Sinne korrekter und übersichtlicher Programmierung der 
letzteren Gruppe zuzustimmen ist, ist dem Anfänger mit dem GOTO-Befehl ein ein- 
faches Hilfsmittel in die Hand gegeben, den Programmverlauf nach seinen Wün- 
schen zu beeinflussen. Die anderen möglichen Verfahren sind an dieser Stelle viel 
zu aufwendig. Sofern Sie sich schon eine Meinung zu diesem Thema gebildet haben 
und auf GOTO verzichten wollen, können Sie in unserem speziellen Falle Zeile 40 
ersetzen durch: 


40 RUN 


Damit wird das Programm veranlaßt, als letzten Befehl sich selbst wieder aufzu- 
rufen — auch dies ist möglich. Dies gilt jedoch nur in unserem speziellen Fall und 
dürfte die Ausnahme zur Umgehung des GOTO-Befehls sein. 


Wenn Sie nun das Programm aufrufen, wird jedesmal nach der Ausgabe des Ergeb- 
nisses erneut nach einer Eingabe gefragt. Wie gesagt, befinden wir uns in einer End- 
losschleife. Da man das Programm mit der RUN/STOPJAste beim Warten des 
Computers auf eine Eingabe nicht abbrechen kann, müssen wir uns mit einem 
kleinen Trick behelfen. Drücken Sie zunächst die RETURN-Taste und halten Sie 
diese fest. Drücken Sie anschließend die RUN/STOPIIaste. Für Neugierige: Auch 
die RETURN’-Iäste hat eine Dauerfunktion. Drücken Sie z.B. nur diese Taste, so er- 
scheint nach der Abfrage jeweils als Ergebnis eine „0“. Der Rechner hat als Eingabe 
einfach die „O0“ angenommen, wodurch das Ergebnis auch null ist. Durch das 
Drücken der RETURN-Iaste haben wir aber bewirkt, daß das Programm die Zeile 10 
verläßt. In den anderen Zeilen ist die RUN/STOP-Iaste aber wirksam. 
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Merke: Mit der RUN/STOP-Taste kaun ein Programmlauf abgebrochen 
werden. Dies funktioniert nicht, während der Rechner auf eine Ein- 
gabe wartet. 


4/2.3.2 
Bedingungen stellen mit IF... THEN 





Entfernen wir nun den INPUT-Befehl in Zeile 10 aus unserem Programm und 
schreiben wir statt dessen 


2} 
pe> 


= 

Qi 
mer} 
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5 Art 

Wir haben also den INPUT-Befehl wieder durch eine direkte Zuweisung an die 
Variablen A und B in den Zeilen 10 und 11 ausgetauscht und in Zeile 35 weisen wir 
der Variablen A den eigenen Wert vermehrt um 1 zu. 


Merke: Bei einer Zuweisung kann auf beiden Seiten des Gleichheitszeichens 
die gleiche Variable vorkommen. Während der Zuweisung, d.h. auf 
der rechten Seite der Zuweisung, hat die Variable noch ihren alten 
Wert. Nach Abschluß der Anweisung hai die Variable den neu zuge- 
wiesenen Wert. 


Wenn wir nun unser Programm starten, wird die linke Seite des Bildschirms fortlau- 
fend mit l-en gefüllt. Wir ändern die Zeilen 30 und 40 noch so ab, daß wir wieder 
alle Variablenwerte in Zeile 30 ausgegeben bekommen, in Zeile 40 aber zur Zeile 20 
springen, d.h. die Zuweisungen in den Zeilen 10 und 11 nach dem GOTO nicht mehr 
berücksichtigt werden. 


30 PRINT A,B,C 
40 GOTO 20 
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Wenn wir nun das Programm starten, werden drei Spalten auf dem Bildschirm 
sichtbar, wobei die äußeren Spalten jeweils die natürlichen Zahlen fortlaufend dar- 
stellen und die mittlere Spalte konstant I-en enthält. Brechen Sie nun das Programm 
mit der RUN/STOP-Iaste ab und machen Sie es mit dem LIST-Befehl wieder auf 
dem Bildschirm sichtbar. 


Unser Ausgangsproblem in diesem Unterkapitel war es ja, sowohl für A als auch 
für B die Werte 1 bis 100 annehmen zu lassen, und diese miteinander zu multiplizie- 
ren. Nach längerem Lauf des Programms ist der Wert der Variablen A weit über die 
100 hinausgeschossen, während der Wert der Variablen B immer noch bei 1 liegt. 
Dies wollen wir jetzt ändern. 


Umgangssprachlich ausgedrückt würde man sagen, das Programm soll folgendes 
für uns tun: Wenn A den Wert 100 angenommen hat, dann soll der Wert in B 
um 1 erhöht und der Wert in A auf 1 zurückgesetzt werden. Nebenbei kommen wir 
jetzt dem Sinn eines Computers wieder etwas näher, da seine Hauptaufgabe als 
Rechner darin liegt, viele gleichartige Operationen mit unterschiedlichen Werten 
auszuführen, die in der Regel viel komplizierter als unser Beispiel sind. 


“ 


Unser „wenn ..., dann ..‘‘ würde man in englisch ausdrücken mit „IF... 
THEN“ und genauso wird es im Computer auch gemacht. 


Merke: Mit der Befehlskombination IF... THEN ... lassen sich bedingte 
Anweisungen realisieren. Nach IF steht der sogenannte Bedingungs- 
teil, und nach THEN die Anweisungen, die ausgeführt werden 
sollen, wenn die Bedingung erfüllt ist. 


Wir fügen in unser Programm also noch zwei weitere Zeilen ein: 


36 IF A=101 THEN B=B+1 
37 IF A=101 THEN A=1 


Da diese komplizierte Formulierung im Rechner zuviel Speicherplatz braucht und 
auch noch andere Fallstricke aufweist (probieren Sie es durch Vertauschen der Zei- 
len 37 und 36, dann wird B nie erhöht) gibt es ein weiteres programmtechnisches 
Hilfsmittel. 





Merke: Innerhalb einer Zeile können mehrere Anweisungen programmiert 
werden. Die Anweisungen sind durch ein »:« zu trennen. Im 
THEN-Teil einer Bedingung werden alle Anweisungen nur durchge- 
führt, wenn die Bedingung erfüllt ist. 


Wir können also auch schreiben: 
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36 IF A=101 THEN B=B+1 : A=1 


| 





Die Zeile 37 kann wie üblich (Zeilennummer und RETURNJ-Iäste) gelöscht werden. 
Wenn Sie nun das Programm starten, werden Sie feststellen, daß in der ersten Spalte 
(Werte der Variablen A) nur die Zahlen 1 bis 100 durchlaufen werden und bei jedem 
Umsetzen des Wertes A von 100 auf I der Wert in B um 1 erhöht wird. Damit die 
Wartezeit vor dem Bildschirm nicht zu lang wird, werden wir nun die Zeile 36 etwas 
ändern. Gehen Sie mit dem Cursor auf die zweite 1 von „101“ d.h. auf die Einer- 
stelle. Drücken Sie dann die Taste DEL und anschließend die RETURN-Iäaste. Wenn 
Sie das Programm nun neu starten, nimmt die Variable A nur Werte von 1 bis 10 
an. Der Wert von B erhöht sich fortlaufend, bis in alle Ewigkeit, wenn Sie das Pro- 
gramm nicht mit der RUN/STOP-Iaste abbrechen. Hier lernen wir einen weiteren 
Befehl kennen. 


Merke: Trifft das Programm auf einen STOP-Befehl, so bricht es ab, wobei 
die Zeilennummer beim Abbruch angegeben wird. 


Wir ergänzen also unser Programm um die Zeile 37 wie folgt: 


37 IF B=11 THEN STOP 


(RETURNJIäste nicht vergessen). Beachten Sie bitte auch, daß bei den Bedingungen 
in Zeile 36 und 37 das Gleichheitszeichen nicht als Zuweisung, sondern im Sinne 
einer mathematischen Gleichheit behandelt wird. Wenn Sie nun das Programm 
starten, enthält die letzte Ausgabezeile die Werte 10,10,100 und es erscheint die 
Meldung 


BREAK IN 37 
READY. 


Dies ist natürlich keine sehr saubere Programmierung, was wir aber gleich ändern 
wollen. Statt der Anweisung STOP kann auch die Anweisung END gegeben werden, 
die wir schon kennen. Da wir aber noch eine weitere Möglichkeit der bedingten An- 
weisung aufzeigen wollen, fügen wir die Zeile 50 wie folgt ein 


50 END 


und ändern unsere Zeile 37 


37 IF B=11 THEN GOTO 50 





\ 
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Merke: Als Anweisung im THEN-Teil einer bedingten Anweisung kann 
auch ein GOTO »Zeilennummer« stehen. Das GOTO kann der Ein- 
fachheit halber auch weggelassen werden. Eine weitere Möglichkeit 
ist das Ersetzen des THEN durch das GOTO. 


Durch Änderung der Zeile 37 sollten Sie diese Angaben überprüfen. 


An dieser Stelle wird auch deutlich, warum der GOTO-Befehl als unbedingter 
Sprungbefehl bezeichnet wird: Mit IF... THEN... sind bedingte Programm- 
sprünge möglich. 


Übrigens der mathematische Hintergrund zu unserem kleinen Beispielprogramm: 
Werden die Werte für die Variable A und B als Seitenlängen eines Rechtecks ange- 
sehen, so ist in der Variablen C der Flächeninhalt wiedergegeben. Im folgenden 
Kapitel wollen wir unser Programm noch etwas vereinfachen und die Fläche eines 
Rechtecks bei konstanter Länge einer Seite berechnen. 


4/2.3.3 
Programmschleifen mit FOR... NEXT 





Im Folgenden wollen wir mehrere Programmversionen für ein Beispiel aufzeigen. 
Berechnet werden soll die Fläche eines Rechtecks, wobei die Länge der einen Seite 
konstant 10 beträgt und die Länge der anderen Seite zwischen 20 und 50 in ganz- 
zahligen Schritten aufwärts betragen soll. Löschen Sie dazu mit NEW das zuletzt 
im Rechner befindliche Programm und geben Sie ein: 


10 A=10 
20 B=20 
30 PRINT A,B 


40 C=A+B 
50 PRINT C 
60 IF B50 THEN B=B+1 : GOTO 30 





Zunächst lernen wir in Zeile 30 eine weitere Möglichkeit des PRINT-Befehles kennen. 
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Merke: Die zur Trennung zwischen Variablenwerten beim PRINT-Befehl 
verwendeten »,« und »;« können auch am Ende eines PRINT- 
Befehles angegeben werden. Dadurch wird der Zeilenvorschub nach 
dem PRINT-Befehl unterdrückt und bei der nächsten Ausgabe wird 
an der Stelle fortgefahren, die durch das letzte Zeichen des vorheri- 
gen PRINT-Befehles gegeben ist. 


Wenn Sie nun das Programm starten, erhalten Sie wieder die Ausgabe in drei 
Spalten, wobei die erste Spalte nur den Wert 10 enthält, die zweite Spalte fortlau- 
fende Werte von 20 bis 50 und die dritte Spalte das Ergebnis der Multiplikation. 


Die Zeilen 30 bis 60 werden auch als Programmschleife bezeichnet, da sich diese 
Zeilen des öfteren wiederholen. Dabei ist bei jedem Durchlauf durch die Zeilen 30 
bis 60 der Wert von B um eine Einheit größer als beim Durchlauf zuvor. 


Bevor wir nun zu einer weiteren Vereinfachung dieser Programmform kommen, 
wollen wir anhand des dargestellten Programmes noch einige Begriffe klären: 





Laufvariable: Die Variable B kann in unserem Beispiel als Laufvariable bezeichnet werden, da 
sie die Werte von 20 bis 50 durchläuft. 


Anfangswert: Der Anfangswert der Programmschleife ist 20, da der Wert von B vor Eintritt in die 
Programmschleife den Wert 20 aufweist. 


Schleifenendekriterium: Durch Zeile 60 ist innerhalb der bedingten Anweisung das Endekriterium 
auf 50 festgelegt. Der Befehl ‚GOTO 30“ wird nur erreicht, solange der Wert von 
B kleiner als 50 ist. 


Schrittweite: Als Schrittweite wird der Wert bezeichnet, um den die Laufvariable — hier: B — bei 
jedem Schleifendurchlauf erhöht wird. In unserem Fall ist es eine Einheit. 





Was liegt näher als diese Werte dem Computer in einer eigenen Zeile einzugeben 
und das Ende der Schleife durch einen gesonderten Befehl zu markieren. In ein- 
fachem Deutsch würde man sagen: „Mit der Variablen B tue von 20 bis 50 folgen- 
des... Ende der Anweisungen“. So ähnlich akzeptiert es auch Ihr Rechner, nur ver- 
‚steht er leider kein Deutsch. 


Merke: Programmschleifen werden im Rechner mit »FOR ‚Laufvaria- 
ble=,Anfangswert‘ TO ‚Schleifenendekriterium‘ STEP ‘Schritt- 
weite‘« definiert. 


Das Ende der Anweisungen einer Programmschleife wird durch den 
Befehl NEXT markiert. . 


Die Schrittweite wird bei jedem Schleifendurchlauf zum aktuellen 
Wert der Laufvariablen hinzugezählt. Soll sie abgezogen werden, so 
ist eine negative Schrittweite anzugeben. Die Schrittweite muß nicht 
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in ganzen Zahlen, sondern kann auch in Dezimalzahlen angegeben 
werden. 


Programmschleifen können auch ineinandergeschachtelt werden, 
sofern verschiedene Variablennamen für die Laufvariablen vorge- 
geben werden. 


Die Schrittweite kann auch weggelassen werden, sie beträgt dann 1. 


Programmschleifen mittels FOR... . NEXT sind die erste etwas kompliziertere Pro- 
grammstruktur, die wir kennenlernen. Zur besseren Erläuterung wollen wir unser 
letztes Beispielprogramm wie folgt abändern: 


20 FOR B=20 TO 50 
60 NEXT 


Die restlichen Zeilen bleiben unverändert. In unserem Beispiel haben wir die Schritt- 
weite ausgelassen, da sie sowieso eine Einheit beträgt. Wenn Sie nun das geänderte 
Programm starten, werden Sie bei der Ausgabe keine Auswirkungen feststellen 
können. Was ist nun passiert? 


Wenn der Rechner zum erstenmal auf die Zeile 20 trifft, so erhält die Variable B 
den Wert 20 zugewiesen. Außerdem merkt sich der Rechner — wie ist hier egal —, 
daß eine Programmschleife vorliegt. Die folgenden Anweisungen werden normal 
abgearbeitet, bis das Programm auf den Befehl NEXT trifft. 


An dieser Stelle wird nun geprüft, ob die Laufvariable, die der Computer sich ge- 
merkt hat, bereits den Wert des Endekriteriums — in unserem Fall 50 — überschrit- 
ten hat. Wenn nicht, wird die Schrittweite zur Laufvariablen addiert und zur näch- 
sten Anweisung nach dem FOR... -Befehl übergegangen. Trifft der Computer auf 
das NEXT und der Wert des Schleifenendekriteriums ist durch die Laufvariable 
überschritten, so fährt er mit der nächsten Anweisung nach dem NEXT fort. Durch 
die vorliegende Konstruktion wird die Programmschleife aber auf jeden Fall durch- 
laufen. Eventuelle Kollisionen, z.B. Anfangswert 10 und Endekriterium 5 werden 
erst bei Auftreffen auf NEXT festgestellt. Dies ist je nach Anwendungsfall vom An- 
wender durch geeignete Programmierung abzufangen. 


Merke: Eine Programmschleife wird mindestens einmal durchlaufen. 


Ändern Sie nun Zeile 20 so ab, daß die Schrittweite eine halbe Einheit beträgt: 


20 FOR B=20 TO 50 STEP 05 i 


Probieren Sie es auch mit anderen Schrittweiten. Als nächstes wollen wir auch die 
Variable A verschiedene Werte durchlaufen lassen, z.B. von 10 bis 30 mit Schritt- 
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weite 2. Dadurch können Sie überprüfen, daß Programmschleifen auch ineinander- 
geschachtelt werden können. Folgende Änderungen sind an unserem Beispielpro- 
gramm notwendig: 


10 FOR A=10 TO 30 STEP 2 
70 NEXT 


Achtung: Das NEXT in Zeile 60 bezieht sich immer noch auf die Schleife zur Lauf- 
variablen B, das NEXT in Zeile 70 bezieht sich auf die Laufvariable A. Wenn Sie 
diesen Tatbestand kenntlich machen wollen, können Sie auch eingeben 


60 NEXT B 
70 NEXT A 


Generell verwendet der Computer ein NEXT immer für die aktuelle Schleife, in der 
er sich befindet. Am besten veranschaulichen Sie dies, indem Sie das Programm mit 
RUN starten. Zunächst erhält bei Programmbeginn die Variable A den Wert 10 zu- 
gewiesen und in der nächsten Zeile die Variable B den Wert 20. Dann wird die 
Schleife bis zur Zeile 60 durchlaufen und auf den Wert B die Schrittweite von 0.5 
addiert und zur Zeile 20 übergegangen. Erst wenn die innere Schleife der Lauf- 
variablen B beendet ist, tritt das NEXT in Zeile 70 in Kraft und der Wert der Lauf- 
variablen A wird um zwei Einheiten erhöht. Dann wird wieder die sogenannte inne- 
re Schleife ab Zeile 20 bis zur Zeile 60 bearbeitet. 





Auch an dieser Stelle sei wieder angeraten, das Beispielprogramm nach eigenen 
Wünschen zu modifizieren. Haben Sie z.B. ein NEXT zuviel eingegeben, so meldet 
der Rechner einen „NEXT WITHOUT FOR ERROR“ 


4/2.3.4 
Hilfsdienste aufrufen mit GOSUB .. . RETURN 





In diesem Unterkapitel wollen wir unser letztes Beispielprogramm noch etwas ab- 
ändern. Die Verwendung innerhalb des Beispieles ist zwar etwas untypisch, für den 
neuen Basicbefehl (bzw. die Befehlsgruppe), die Verwendung wird daran aber gut 
deutlich. Gemeint ist die Unterprogrammtechnik. 
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Was sind Unterprogramme? Unterprogramme sind generell Programmsequenzen, 
d.h. Folgen von Anweisungen, die an mehreren Stellen im Programm benötigt, aber 
nur einmal programmiert werden. Unterprogramme haben eine definierte Ein- 
sprungstelle, dargestellt durch eine Zeilennummer (Zeilennummer der ersten Anwei- 
sung im Unterprogramm). Das Ende eines Unterprogrammes wird ähnlich gekenn- 
zeichnet wie bei den Programmschleifen mit dem NEXT, jedoch wird hier zur 
Unterscheidung ein RETURN verwendet. 


Aufgerufen wird ein Unterprogramm mit dem Befehl GOSUB „Zeilennummer“. 
Ähnlich dem unbedingten Sprung mit GOTO wird sofort zu dieser Zeilennummer 
übergegangen und ähnlich zu den FOR... . NEXT-Schleifen merkt sich der Rechner 
beim Aufruf eines Unterprogrammes, wo er das Unterprogramm aufgerufen hat. 
Beendet wird das Programm mit dem Basic-Befehl RETURN, was nicht zu ver- 
wechseln mit der RETURN-Iäste ist. 


Trifft der Rechner auf den Befehl RETURN, so springt er zu dem Befehl hinter dem 
aufrufenden GOSUB zurück. Im Gegensatz zum GOTO liegt also kein „Sprung 
ohne Wiederkehr“ vor, sondern der Rechner kehrt nach Beendigung des Unterpro- 
grammes an die sogenannte Aufrufstelle zurück. 


Bevor wir jedoch unser Beispiel abändern, wollen wir noch einige weitere Begriffe 
klären. Obwohl das Basic gegenüber sogenannten blockorientierten Sprachen keine 
unterprogrammeigenen Variablen kennt, so können doch Variablen an das Unter- 
programm übergeben oder daraus zurückgeführt werden. Diese Variablen werden 
dann je nach Verwendungszweck auch als Eingabeparameter oder Ausgabepara- 
meter bezeichnet. 


Ein Unterprogramm aus unserem letzten Beispiel haben wir nun schnell kreiert. 
Löschen Sie zunächst Zeile 70 durch Eingabe der Zeilennummer und anschließen- 
dem Druck auf die RETURN-Iaste. Geben Sie anschließend dieses NEXT mit der 
Zeilennummer 18 ein und definieren Sie ein Programmende in Zeile 19 wie folgt: 


10 NEXT 
19 END 


Wenn Sie sich nun das gesamte Programm mit LIST anschauen, wird eine leere 
Schleife in den Zeilen 10 und 18 durchlaufen und in Zeile 19 das Programm beendet. 
Starten Sie das Programm, so sehen Sie nichts auf dem Bildschirm. Geben Sie nun 
in Zeile 70 den RETURN-Befehl ein 


i 


70 RETURN 
und fügen Sie Zeile 15 wie folgt ein 


15 GOSUB 20 





| 
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Wenn Sie das Programm starten, erhalten Sie als Ausgabe exakt das gleiche wie bei 
dem ungeänderten Beispielprogramm. 


Was passiert? Das Programm läuft in der festgelegten Schleife von Zeile 10 bis 
Zeile 18. In Zeile 15 erfolgt der Unterprogrammaufruf, der die einzige Anweisung 
innerhalb der Schleife bildet. Beim Auftreffen auf diesen Unterprogrammaufruf 
setzt der Rechner das Programm in Zeile 20 fort und durchläuft unsere Beispiel- 
schleife mit der Laufvariablen B. Ist diese Schleife beendet, so trifft der Rechner auf 
den Befehl RETURN und geht zu dem Befehl über, der auf „GOSUB 20“ folgt. 
Dies ist das Endekriterium für die Programmschleife mit der Laufvariablen A und 
der Rechner geht wieder zur Zeile 10 mit erhöhter Laufvariable A zurück, um dann 
erneut das Unterprogramm ab Zeile 20 in Zeile 15 aufzurufen. 


Merke: Unterprogramme werden in Basic mit GOSUB »Zeilennummer« 
und abschließendem RETURN definiert. 


Unterprogramme können genau wie Programmschleifen ineinan- 
dergeschachtelt werden. 


Programmschleifen und Unterprogramme können ebenfalls ge- 
schachtelt werden, wobei Programmschleifen, die außerhalb eines 
Unterprogramms beginnen und innerhalb eines Unterprogramms 
enden, unzulässig sind. 


Versuchen Sie nun, ein Beispielprogramm zu rechnen, indem für einen Quader mit 
den Seiten A, B und C die Oberfläche, die Kantenlänge und das Volumen berechnet 
wird. Schreiben Sie für die Berechnung der Oberfläche, des Volumens und der Kan- 
tenlänge jeweils ein eigenes Unterprogramm und lassen Sie die Kante A mit Werten 
von 10 bis 50 mit Schrittweite 5, die Kante von B mit Werten von 60 bis 100 mit 
Schrittweite 10 und die Kante C von 30 bis 40 mit Schrittweite 1 laufen. Sicher wird 
dies nicht gleich auf Anhieb gelingen. Trotzdem sollten Sie nicht gleich zur Lösung 
übergehen, sondern das Buch erstmal zur Seite legen. 
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Hier die Lösung: 

















ÜBERFLAECHE ._ 







+ Z#RRL + SEE 






KANTEH aaa 
+ 

RETURH 
ze: 
302 REM -—-- YOLLIMEH eg 
Sala: 
SEE YeitEHl 
Sa2E RETUR 





Listing 4/2.3.4 
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Teil 4: Software-Erstellung 


4/3 
Basic 7.0 





Die eingebaute Programmiersprache des C 128 ist, ebenso wie beim C 64, Basic. Ein 
entscheidender Vorteil des C 128 ist das Mehr an Basic-Befehlen, insbesondere im 
Bereich der Grafik-Programmierung, der Sound-Programmierung und der 
Disketten-Befehle. Zur Unterscheidung vom Basic des C 64 wird beim Basic des 
C 128 als Versionsnummer 7.0 als Zusatz benutzt. 


Anders als in Kapitel 4/2 wollen wir hier nicht direkt einen Kurs für Basic 7.0 anbie- 
ten, sondern zunächst einen kurzen Kommentar zu jedem Befehl mit einigen 
kleinen Anwendungsbeispielen geben. Wer die Grundkenntnisse in Basic beherrscht 
(siehe Kapitel 4/2), kann die neuen Befehle sicherlich weitgehend aufgrund der 
Syntax (wie wird der Befehl verwendet) und Semantik (was macht der Befehl) ein- 
setzen. 


43.1 


Kommentar zu den Befehlen mit kleinen 
Anwendungsbeispielen 





Zur Anwendung von Programmbefehlen reicht meist die Kenntnis der Syntax und 
Semantik aus. Trotzdem wollen wir versuchen, Sie innerhalb dieses Kapitels einer- 
seits vor einigen Klippen zu warnen und andererseits auf ergänzende Möglichkeiten 
der Befehle hinweisen. 


Dazu beschäftigen wir uns zunächst mit den Programmierhilfen, dem Handwerks- 
zeug eines jeden Programmierers. Es folgt eine kommentierte Übersicht über die 
Grafik- und Sound-Befehle, sowie Befehle zum Handling einer Floppy. 
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An dieser Stelle wollen wir auch auf Kapitel 4/4 hinweisen, wo die Themen Grafik 
und Sound in Kursform an einprägsamen Beispielen beschrieben werden. Hier 
wollen wir nur auf die Möglichkeiten und Grenzen der Befehle eingehen. Für die 
Floppy-Befehle sei auch auf Kapitel 4/4.7 (Dateiverwaltung) hingewiesen, wo wir 
eine Dateiverwaltung grundlegend erarbeiten wollen. 


413.1.1 


Programmierhilfen 





Bevor man die Programmierarbeiten an irgendeinem Rechner beginnt, sollte man 
sich zunächst mit den zur Verfügung stehenden Hilfsmitteln der Programmierspra- 
chen und des Betriebssystems vertraut machen. Beim C 128 ist für den Anwender 
im Prinzip beides nicht zu trennen, da sich die Basic-Befehle kaum von den System- 
Kommandos unterscheiden. Die Tabelle in Kapitel 11/1.1 gibt jedoch über diesen 
Unterschied Auskunft, wobei hier auch noch zwischen Befehlen und Funktionen 
unterschieden wird. 


Die Befehle innerhalb dieses Kapitels werden wir in zwangloser Weise aneinander- 
reihen, so wie sie sich beim Einarbeiten in den Rechner darstellen würden. Beginnen 
wir mit einem der ersten Hilfsmittel, das insbesondere bei der Programmeditierung 
wichtig ist. 


4/3.1.1.1 


AUTO — fortlaufende Zeilennumerierung bei der Programmeditierung 





Besonders beim Abtippen von Programmen aus Zeitschriften oder Büchern — was 
meist zu Beginn einer Bekanntschaft mit einem neuen Rechner zu empfehlen ist — 
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ist es recht mühselig, jeweils die nächste Zeilennummer in den Rechner einzutippen, 
zumal man sich immer vergewissern muß, welche Zahl die nächste ist. 


Hier hilft der AUTO-Befehl, da er diese Arbeit für Sie erledigt. Nachdem Sie den 
AUTO-Befehl — z.B. mit der gebräuchlichsten Schrittweite 10 — aufgerufen haben, 
erscheint zunächst noch gar nichts auf dem Bildschirm, da erst dem Rechner gesagt 
werden muß, mit welcher Zeile er beginnen soll. D.h., daß Sie nicht immer beim An- 
fang eines Programmes anfangen müssen, sondern der AUTO-Befehl auch sehr hilf- 
reich ist, wenn sie in ein bestehendes Programm einige Zeilen einfügen wollen. Für 
eine einzige Zeile ist es natürlich weniger sinnvoll. 


Der AUTO-Befehl ist so lange wirksam, wie Sie eine Zeilennummer mit anschlie- 
Bendem Basic-Text eingeben. Geben Sie eine leere Zeilennummer ein, so wird die 
Funktion — vorübergehend — außer Kraft gesetzt, und Sie haben die Möglichkeit 
z.B. im Direktmodus irgendetwas auszurechnen. 


Bei Eingabe einer Zeilennummer mit mindestens einem Zeichen dahinter lebt die 
Funktion wieder auf. Generell abgeschaltet wird sie mit einfachen AUTO ohne An- 
gabe einer Schrittweite, was in manchen Fällen sicherlich auch sehr hilfreich ist. 


4/3.1.1.2 


FAST — etwas schneller bitte! 
SLOW — normale Geschwindigkeit 





Als nächstes sollte man sich entscheiden, mit welcher Geschwindigkeit der Rechner 
arbeiten soll. Sofern Sie einen 80-Zeichen-Bildschirm verwenden, sollten Sie auf 
jeden Fall den FAST-Modus einschalten, der Ihren Rechner mit 2 Mhz taktet. Der 
Rechner wird fast doppelt so schnell. 


Wenn Sie ein Fernsehgerät oder einen 40-Zeichen-Monitor besitzen, ist eine Verwen- 
dung des FAST-Modus nur sinnvoll, während sich der Computer in einem Rechen- 
prozeß befindet. Wie oft Sie nun in Ihrem Programm zwischen der schnelleren und 
der langsameren Geschwindigkeit umschalten, bleibt Ihnen überlassen, aber beson- 
ders bei längeren Programmen mit rechenintensiven Vorgängen ist die Verwendung 
des FAST-Befehls anzuraten. 
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Da der Rechner für jede Monitorart 80/40-Zeichen-Bildschirm einen eigenen 
Videoprozessor besitzt, aber nur der Videoprozessor für den 80-Zeichen-Bildschirm 
mit der Geschwindigkeit von 2 MHz zurecht kommt, liegt es auf der Hand, daß 
Ausgaben auf dem 40-Zeichen-Bildschirm nicht möglich sind. Den Geschwindig- 
keitsunterschied soll ein kleines Programm verdeutlichen: 





100 T=Tl 

110 FOR I=1 TO 500 
120 PRINT Li#1,l»1«1 
130 NEXT 

140 PRINT (TI-T)/60 





Wenn Sie dieses kleine Programm laufen lassen, wenn Sie Ihren Rechner gerade ein- 
geschaltet haben, so braucht er — wie er dann selbst anzeigt — 57,0166667 Sekun- 
den. Geben Sie anschließend im Direktmodus den Befehl 


FAST 


so wird zunächst — falls angeschlossen — der 40-Zeichen-Monitor erst hell. Wenn 
Sie nun das Programm erneut mit RUN starten, wird die Geschwindigkeitserhöhung 
direkt auf dem Bildschirm schon anhand der Ausgabegeschwindigkeit deutlich. Im 
FAST-Modus braucht der Rechner lediglich noch 30,55 Sekunden. 


Sie haben richtig gelesen: Obwohl der Rechner doppelt so schnell getaktet wird, ist 
der Geschwindigkeitszuwachs nicht mit dem Faktor 2 umschrieben, sondern — in 
unserem Beispielprogramm — aufgerundet 1,87. Dies hat etwas mit der relativ lang- 
samen Bildschirmausgabe zu tun. 


Ein anderes Beispielprogramm soll den Einfiuß der Bildschirmausgabe auf die 
Rechengeschwindigkeit verdeutlichen. 





100 T=TI 

110 FOR I=1 TO 10000 
120 A=I»I«I«IrI 

130 NEXT 


140 PRINT (TIT)/60 





Im SLOW-Modus beträgt die Rechenzeit 116,816667 Sekunden, wohingegen im 
FAST-Modus nur 55,9833333 Sekunden benötigt werden. Dies entspricht einem 
Faktor von gerundeten 2,09. Nanu? 


Besonders bei rechenzeitintensiven Programmen (Simulationen, statistische Aus- 
wertungen, aber auch Sortierverfahren), sollte man auf den FAST-Modus also nicht 
verzichten. 
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4/3.1.1.3 


PRINT USING — formatiert ausgeben 
PUDEF — Ausgabezeichen ändern 





Endlich auch bei Commodore: Eine PRINT USING-Anweisung mit der nun auch 
Tabellen ohne Schwierigkeiten erstellt werden können, ohne daß jedesmal ein 
eigenes Unterprogramm herangezogen werden muß. Besonders lobenswert ist auch 
die PUDEF-Anweisung, mit der es sogar sehr einfach möglich ist, Zahlenkolonnen 
in der deutschen kaufmännischen Zahldarstellung mit Dezimalkomma und Tausen- 
derpunkt darzustellen (siehe auch hierzu das Beispiel im Handbuch auf Seite 4-93). 


An dieser Stelle wollen wir nicht näher auf das Format der PRINT USING- 
Anweisung hinweisen, da dies im Handbuch ausführlich erläutert ist. Lassen Sie 
sich von den vielen Möglichkeiten zunächst nicht abschrecken, der PRINT USING- 
Befehl ist einer genauen Prüfung wert. Nicht nur bei der Ausgabe auf dem Bild- 
schirm oder Drucker kann eine Formatierung von Zahlenkolonnen erfolgen, son- 
dern auch bei Ausgabe in eine Datei auf einen Datenträger, wodurch auch geordnete 
Verhältnisse in den Datensätzen entstehen. 


Bei den möglichen Formatierungen ist nicht nur an den Kaufmann als Anwender 
gedacht, sondern auch an den Wissenschaftler, was sich in den Beispielen bei der 
Exponentialdarstellung ausdrückt. 


4/3.1.1.4 


GETKEY — ein Zeichen von der Tastatur einlesen 





Was bei anderen Rechnern der INKEY-Befehl darstellt, ist beim C 128 der 
GETKFY-Befehl. Mit ihm werden umständliche Programmierungen der Form 
„GET AS$:IF A$““THEN ... ..“ überflüssig, da der GETKEY-Befehl wartet, bis eine 
Taste gedrückt wurde. Besonders hervorzuheben ist die Möglichkeit, eine Liste von 
Zeichenkettenvariablen bei diesem Befehl einzugeben. Eine Anwendungsmöglich- 
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keit ist z.B. das „blinde“ Erfassen eines Paßwortes, wie folgendes kleine Programm 
zeigt: 








EITERMACHEH" 








Listing 4/3.1.1.4-1 


Welchen Aufwand nach der alten Methode! Natürlich kann man die Zeilen ab 120 
noch mit der ODER-Verknüpfung zusammenfassen, wenn ein kürzeres Paßwort 
vorliegt. 


4/3.1.1.5 


RENUMBER — Ordnung in den Zeilennummern 





Vom Programmierer immer wieder gebraucht, jetzt erstmals auch bei einem 
Commodore-Rechner ab Werk: Der RENUMBER-Befehl. Im Gegensatz zum 
RENUMBER-Befehl bei Simon’s Basic — wie sich die 64er Umsteiger sicherlich 
noch erinnern — werden hier auch alle Sprünge bei GOTO und GOSUB und ähn- 
lichem mit berücksichtigt. Diese Möglichkeit sollte allerdings nicht dazu verleiten, 
erst einmal nach dem Motto „Kraut und Rüben“ zu programmieren, aber trotzdem 
ist eine wesentliche Möglichkeit gegeben, durch Auseinanderschieben der Zeilen- 
nummer mittels des RENUMBER-Befehls später noch einige Zeilen ix ein bestehen- 
des Programm einzufügen. 

Auch fertige und ausgetestete Programme können mit dem RENUMBER-Befehl in 
ein anschauliches Bild gebracht werden. 
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Einen kleinen Schönheitsfehler hat der RENUMBER-Befehl allerdings doch noch: 
Wenn Sie Ordnung in ein Programm bringen wollen, sollten Sie tunlichst von vorne 
anfangen, da ab der angegebenen Zeilennummer alle Zeilen umnumeriert werden, 
weil keine letzte Zeilennummer angegeben werden kann. Dies ist ein kleiner Nach- 
teil, den man mit geschickter Vorgehensweise jedoch leicht ausgleichen kann. 


4/3.1.1.6 


DELETE — überflüssige Zeichen löschen 








Eine ähnliche Hilfe, wie der RENUMBER-Befehl, bietet der DELETE-Befehl beim 
„Aufräumen“ im Programm. Nun müssen nicht mehr alle Zeilennummern, die aus 
einem Programm entfernt werden sollen, von Hand eingegeben werden, dies erledigt 
alles der DELETE-Befehl. 


Man sollte sich jedoch vor Augen halten, daß der DELETE-Befehl genauso wie der 
RENUMBER-Befehl und einige andere in diesem Kapitel vorgestellten Befehle, 
eigentlich nicht zum Sprachumfang des Basic gehören, sondern Hilfsmittel bei der 
Programmeditierung darstellen und somit zu den Systemkommandos (Betriebs- 
system) gehören und nur im Direktmodus verwendet werden können. Selbst- 
ändernde Programme können mit diesen Befehlen deshalb nicht geschrieben wer- 
den. 


Kleine Tricks, wie z.B. das Löschen eines Programmteiles während des gesamten 
Programmablaufes von Zeilennummern die nicht mehr benötigt werden, um mehr 
Platz für Daten zu bekommen, sind also nicht möglich. Generell ist auch von diesen 
‘Formen der Programmierung abzuraten. 
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4/3.1.1.7 


TRON/TROFF — läuft das Programm auch wie es soll? 





Und mit den Befehlen TRON/TROFF kann man die sogenannte TRACE-Funktion 
ein (ON) und aus (OFF) schalten. Besonders beim Programmtest ist die TRACE- 
Funktion eine wesentliche Hilfe, und hier insbesondere wieder bei Endlosschleifen. 


Die TRACE-Funktion zeigt alle vom Programm abgearbeiteten Zeilennummern am 
Bildschirm (in eckigen Klammern) an. Leider werden die abgearbeiteten Zeilen- 
nummern nicht in einem bestimmten Bildschirmbereich oder nur auf die linke Bild- 
schirmseite begrenzt ausgegeben, sondern fortlaufend über den gesamten 
Bildschirm. Dies erschwert aus optischen Gründen natürlich die Fehlersuche er- 
heblich. 


Sollten Sie also einmal bei einem Testlauf eines neu eingetippten Programmes fest- 
stellen, daß dies keine weitere Reaktion zeigt, so können sie mit TRON die TRACE- 
Funktion einschalten und die Zeilennummern, die abgearbeitet wurden, erscheinen 
auf dem Bildschirm. Vorher sollte man sich jedoch mit dem Drucker einen Aus- 
druck des Listings machen und nun anhand des Listings verfolgen, was der Compu- 
ter macht und was er machen soll. Ohne TRACE-Funktion sind solche Fehler nur 
durch Einbau von Testzeilen und hier auch nur sehr mühsam herauszufinden. 


Da die Zeilennummern sehr schnell auf dem Bildschirm angezeigt werden, sollten 
Sie auf jeden Fall auf die Taste „NO SCROLL“ zurückgreifen, um den Ablauf ver- 
folgen zu können. 


4/3.1.1.8 


RESTORE — mitten rein in die DATA’s 





Bei Basic-Interpretern ist es mittels DATA-Zeilen und der READ-Anweisung mög- 
lich, Daten aus dem Programmtext einzulesen. Bisher war es bei den Commodore- 
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Rechnern immer der Fall, daß die Daten in der Reihenfolge der READ- 
Anweisungen vom Programmbeginn an gesucht wurden. 


In manchen Fällen ist es jedoch wünschenswert, das gleiche Programm mit verschie- 
denen Daten laufen zu lassen, oder aus anderen Gründen eine bestimmte DATA- 
Zeile für den nächsten READ-Befehl festzulegen. Diese Möglichkeit wurde jetzt im 
Basic 7.0 mit dem RESTORE-Befehl geschaffen. 


Der RESTORE-Befehl kann neben seiner normalen Anwendung im Programm auch 
als Testhilfe herangezogen werden. Sind in einem Programm viele DATA-Zeilen mit 
Werten für die unterschiedlichsten Variablen oder auch ganzen Feldern vorhanden, 
so kann es durch ein einziges Element zuviel oder zuwenig innerhalb einer DATA- 
Zeile zu einem TYPE MISMATCH ERROR kommen, wenn z.B. in eine Zahl- 
variable ein Text eingelesen werden soll. Bei einem gut strukturierten und dokumen- 
tierten Programm ist es dann sinnvoll, vor jeder READ-Anweisung einen 
RESTORE-Befehl auf die entsprechenden Daten zu machen, die mit dem entspre- 
chenden READ-Befehl eingelesen werden sollen. 


Eine weitere Möglichkeit bildet die Anwahl von DATA-Zeilen, die vielleicht auf- 
grund eines Anwendermenüs ausgesucht werden. Aber auch die Wiederverwendung 
bereits vorhandener Elemente in DATA-Zeilen ist möglich, wie das Beispiel im 
Handbuch zeigt. Sollen z.B. von einem bestimmten Datenbestand (z.B. Umsätze), 
mehrere grafische Darstellungen (Liniendiagramm, Balkendiagramm, Tortendia- 
gramm) nacheinander vorgeführt oder zu verschiedenen Auswertungen herangezo- 
gen werden, so ist es ohne die RESTORE-Anweisung unumgänglich, die Daten 
mehrfach einzugeben. 


413.1.1.9 


TRAP — Fehler des Betriebssystems programmäßig abhandeln 
RESUME — und wieder zurück ins Hauptprogramm 





Eine Funktion, die zwar nicht die Programmierarbeit erleichtert, aber dem Anwen- 
der die Möglichkeit gibt, aufgetretene Systemfehler eventuell zu beheben, ist das so- 
genannte Error-Irapping. Gemeint ist damit nicht eine Behebung von Bedienungs- 
fehlern des Anwenders (was durch Plausibilitätsprüfungen in den meisten Fällen 
behoben werden kann), sondern eine Programmsequenz, die einen vom Betriebs- 
system gemeldeten Fehler behandelt. 
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Dies ist ein wesentlicher Vorteil, da das Programm nun nicht mehr automatisch ab- 
gebrochen wird, wenn eine der Fehlermeldungen, die im Handbuch in Kapitel 8.1 
beschrieben sind, auftritt. 


Bevor die Fehlerbehandlung im Programm jedoch aufgerufen werden kann, muß 
zunächst eine Zeilennummer (der Beginn der Fehlerbehandlungs-Routine) hinter 
dem TRAP-Befehl festgelegt sein. 


Wir wollen das Error-ITrapping an einem kleinen Beispiel besprechen. Auch in den 
besten Anwenderprogrammen kommt es immer wieder mal vor, daß durch be- 
stimmte Datenkonstellation eine Division durch 0 auftritt, die mathematisch — so- 
wie auch im Rechner — nicht zugelassen ist. 


Löschen Sie zunächst ein im Hauptspeicher befindliches Programm mit dem NEW- 
Befehl und geben Sie anschließend ein 


110 PRINT 12/A 


Wenn Sie nun das Programm mit RUN starten, so erhalten Sie die normale Fehler- 
meldung des Betriebssystems: DIVISION BY ZERO ERROR IN 110. 


Bevor wir nun den Fehler abfangen, noch eine Besonderheit, die Ihnen später bei 
der Programmentwicklung sicherlich sehr hilfreich sein kann. Wenn Sie als nächstes 
eingeben 


100 TRAP 1000 


und das Programm mit RUN erneut starten, so erscheint die Fehlermeldung 
„UNDEF’D STATEMENT ERROR IN 110“ Diesen Tatbestand sollten Sie sich un- 
bedingt merken! Bei komplexeren Programmen kommen Sie leicht in die Lage, nun 
in Zeile 110 einen Sprungbefehl, ein Unterprogrammaufruf oder ähnliches zu 
suchen, da diese Fehlermeldung normalerweise auf einen Sprung zu einer nicht vor- 
handenen Zeilennummer hindeutet. Der beschriebene Fehler liegt allerdings nicht 
in Zeile 110, sondern in Zeile 100, da ja hier die Zeile 1000 definiert wurde. 


Dies ist eine Eigenart der Fehlerbehandlungs-Routine, da sie vom Interpreter erst 
dann aufgerufen wird, wenn ein Fehler auftritt. Veranschaulichen kann man sich 
diesen Sachverhalt, wenn man sich nach einem TRAP-Befehl anschließend an jeden 
Befehl die imaginäre Anweisung „IF Fehler THEN TRAP 1000“ vorstellt. 


Der TRAP-Befehl ist also nichts anderes als ein spezielles GOSUB, da ein Unterpro- 
gramm aufgerufen wird. Statt des RETURN-Befehls muß jedoch am Ende der Feh- 
lerbehandlung ein RESUMEF-Befehl stehen. Wir ergänzen also die Fehlerbehand- 
lungs-Routine wie folgt: 
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1000 PRINT’ES WURDE DURCH NULL DIVIDIERT. 
1010 PRINT’AUTOMATISCHE DIVISORWAHL: 2.5“ 
1020 A=2.5 


1030 PRINT 
1040 PRINT EL,ER,ER$(ER) 
1050 RESUME 





Sicherlich ist die Fehlerbehandlungs-Routine jeweils dem Fall anzupassen. Norma- 
lerweise werden in der Routine nur Fehler behandelt, die auch vom Programm auto- 
matisch erledigt werden können, gegebenenfalls durch Eingabe neuer Daten durch 
den Anwender. In der Regel wird hier eine Programmverzweigung für alle mög- 
lichen Fehler vorgesehen, wobei die Fehlercodes (siehe Handbuch) als Verteiler fun- 
gieren können. 


Wenn Sie nun das Programm laufen lassen, werden Sie feststellen, daß zusätzlich 
zu den unterprogrammbedingten Ausgaben noch die Daten ILLEGAL QUANTITY, 
65535,-1, und 14 erscheinen. Die in Zeile 1040 bedingte Ausgabe der Zeile, in der 
der Fehler aufgetreten ist (EL), der Fehlernummer (ER) und dem Fehlertext 
(ERR$(ER)) bringt hier nicht den Fehler ‚Dividison durch Null“ 


Wir haben absichtlich unser Programm nach Zeile 110 nicht beendet, so daß 
das Programm automatisch in die Fehlerbehandlungs-Routine hineinläuft. Auch 
an dieser Stelle sollten Sie aufpassen, da hier automatisch ein Fehler erzeugt 
wird, wenn das Unterprogramm auch ohne Auftreten eines Fehlers angesprungen 
wird. 


Wir ergänzen als noch 


120 END 


Wenn Sie jetzt das Programm erneut starten, erscheinen die Texte der Fehlermel- 
dung, sowie die Zeile 


110 20 DIVISION BY ZERO 


und das Endergebnis mit dem Wert 4.8. Die Zeile, in der der Fehler aufgetreten ist, 
wurde als erstes genannt und die anderen Angaben (20/DIVISION BY ZERO) 
können Sie anhand des Handbuches nachprüfen. 


Auf jeden Fall muß der Fehler innerhalb der Routine behoben werden, wenn am 
Ende der Routine ein RESUME steht und das Programm also an der Stelle fortge- 
setzt wird, an der der Fehler aufgetreten ist. Achtung: Nicht hinter der Stelle, wo 
der Fehler aufgetreten ist, da sich sonst eine Fehlerbehandlung erübrigen würde. 
Dies können Sie ausprobieren, indem Sie Zeile 1020 löschen und das Programm er- 
neut starten. Sie erhalten nun fortlaufend die Ausgabe der Fehlermeldungen, was 
gleichbedeutend mit dem Ausgangszustand (Abbruch des Programmes) ist. 
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Das Error-Trapping ist eine sehr zweischneidige Sache und sollte nur dann angewen- 
det werden, wenn man sich über die Art von auftretenden Fehlern und deren Behe- 
bung im klaren ist. Die Fehlerbehandlung ist insbesondere für Software-Häuser in- 
teressant, die bei entsprechender Programmierung dem Anwender eine Hilfestellung 
zur Behebung des Fehlers geben können. 


Im Programm können auch mehrere Fehlerbehandlungs-Routinen vorkommen, die 
sich auf einzelne Fehler spezialisieren. Infolge des Programmablaufes ist normaler- 
weise klar, welcher Fehler unter Umständen an welcher Stelle auftreten kann. Vor 
eine solche unsichere Programmeinweisung sollte man den TRAP-Befehl mit der 
entsprechenden Zeilennummer für den Fehler stellen. 


Computerneulingen sei von der Verwendung des Error-Irappings abgeraten. Wie 
bereits erwähnt, sind intensive Kenntnisse vonnöten, wann wo welcher Fehler in 
welcher Form auftreten kann. 


Eine andere kleine Hilfestellung bei Auftreten eines Fehlers wollen wir im nächsten 
Unterkapitel behandeln. 


4/3.1.1.10 


HELP — Hilfe, wo ist der Fehler? 





Ist trotz verwendeter TRAP-Funktion das Programm wegen eines Fehlers abgebro- 
chen worden, so kann man sich die fehlerhafte Zeile mit dem HELP-Befehl (auch 
erreichbar durch Drücken der HELP-Taste) ansehen. Dies erspart jedoch nur ein 
„LIST-Zeilennummer“, da ja die fehlerhafte Zeile bei einem Programmabbruch an- 
gegeben wird. 


Der HELP-Befehl bietet aber noch eine weitere — wenn auch kleine — Hilfe. Die 
fehlerhafte Anweisung wird unterstrichen (80-Zeichen-Bildschirm) oder in inverser 
Schrift dargestellt (40-Zeichen-Bildschirm). Dies ist natürlich nicht sehr hilfreich, 
wenn nur eine einzige Anweisung in einer Zeile steht. Außerdem werden alle Anwei- 
sungen nach der fehlerhaften Anweisung ebenfalls mitunterstrichen, so daß in einer 
Programmzeile mit eventuell zehn Anweisungen und aufgetretenen Fehlern in der 
ersten Anweisung die gesamte Programmzeile unterstrichen ist — was natürlich 
keine große Hilfe ist. Vorteilhaft ist die HELP-Funktion also nur, wenn der Fehler 
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irgendwo miten in einer Programmzeile auftritt. Veranschaulichen können Sie sich 
den Sachverhalt indem Sie eingeben 


100 PRINT 12/A : PRINT A 


Es erscheint der im letzten Kapitel schon erwähnte DIVISION BY ZERO ERROR 
IN 100. Drücken Sie nun die HELP-Jaste, so wird die gesamte Zeile unterstrichen. 
Wenn Sie beide Anweisungen umdrehen, also schreiben 


100 PRINT A : PRINT 12/A 


so erscheint nach einem Programmstart und Drücken der HELPJaste nach dem 
Programmabbruch die Zeile 100 auf dem Bildschirm, jedoch ist nur die zweite An- 
weisung unterstrichen. 


4/3.1.1.11 


Strukturbefehle 











Neben den immer vorhandenen Strukturvariablen IF... THEN, GOTO und 
GOSBUB... RETURN, sowie FOR... NEXT, bietet das Basic 7.0 des C 128 
noch ein paar weitere Möglichkeiten an. 


4/3.1.1.11.1 


IF... THEN... ELSE — entweder... oder 





Neben einigen anderen Befehlen wurde auch die Befehlskonstellation für bedingte 
Verzweigung verbessert. Umständliche Programmsprünge, wenn bei einer bedingten 
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Verzweigung sowohl der „wenn dann“-Teil als auch der „wenn nicht, dann“-Teil 
eine Programmfunktion erfüllen sollten. Passen die Anweisungen für die beiden 
Aktionsteile nicht mehr in eine Zeile, so hilft die im nächsten Unterkapitel beschrie- 
bene Blockkonstruktion. 


4/3.1.1.11.2 


BEGIN/BEND — Blöcke in Basic 





Blöcke und doch keine Blöcke. Wer Programmblöcke aus den sogenannten block- 
orientierten Sprachen (z.B. PL/1 oder Pascal) gewohnt ist, wird von den Blöcken 
beim C 128 etwas enttäuscht sein. Hier ist nicht die Rede von strukturierter Pro- 
grammierung oder lokalen und globalen Variablen, sondern nur einer speziellen 
Einsatzform von Blöcken, die es auch bei den höheren Programmiersprachen gibt. 
Globale und lokale Variablen sind bei Basic-Interpretern sowieso nur mit Tricks und 
Kniffen möglich. 


Die BEGIN- und BEND-Anweisungen sind jedoch ein entscheidender Vorteil, da sie 
andere Unzulänglichkeiten der Sprache Basic im Allgemeinen überdecken. Im letz- 
ten Kapitel haben wir die erweiterte IF... THEN...ELSE.. -Funktion bespro- 
chen. In manchen Fällen reicht jedoch der Platz innerhalb einer Zeile nicht aus, 
wenn sowohl die Bedingung als auch der Anweisungsteil, wenn die Bedingung er- 
füllt ist, als auch der Anweisungsteil, wenn die Bedingung nicht erfüllt ist, innerhalb 
in einer Zeile stehen müssen. Besonders eng wird es innerhalb einer Zeile, wenn 
komplexe Bedingungen zugrunde liegen, die mit mehreren UND- und/oder ODER- 
Verknüpfungen verknüpft sind. Hier schafft der Block mit BEGIN(n) und BEND 
(Block ENDe) Abhilfe, da bedingte Anweisungen nun über mehrere Zeilen gestreckt 
werden können. 





Teil 4 Kapitel 3.1 Seite 15 





Basic 7.0 








3.1 Kommentar zu den Befehlen mit kleinen Teil 4: Software-Erstellung 
Anwendungsbeispielen 


4/3.1.1.11.3 


DO — neuartige Schleifen 





Die DO-Anweisung ist ein ähnlicher Strukturbefehl, wie dies für Programmmschlei- 
fen mit FOR... NEXT allgemein verwendet wird, weist jedoch einige Besonder- 
heiten auf. So ist es z.B. in manchen Fällen nötig, eine Schleife unendlich oft laufen 
zu lassen — jedenfalls per Programmierung — bis ein bestimmtes Kriterium vom 
Anwender eingegeben wird. Bei FOR... NEXT-Schleifen mußte man sich mit der 
Konstruktion 


FOR I=0 TO 1E38 


behelfen, da durch interne Programmierung bedingt, das Schleifenendekriterium 
nie vom Rechner erkannt wird. Auch die Konstruktion mit GOTO „Anfang“ wurde 
in einem solchen Fall sehr häufig verwendet, wenn es auch nicht unbedingt den 
Regeln der strukturierten Programmierung entspricht. 


Dies kann man nun durch einfache Verwendung von DO erreichen. Dem NEXT bei 
den bisher gebräuchlichen Programmschleifen entspricht dabei das LOOP, wobei je- 
doch hier auch die Schleife mit einem gesonderten Befehl (EXIT) verlassen werden 
kann. Dies ist eine weitere Besonderheit, da das Verlassen von FOR... NEXT- 
Schleifen keine besonders elegante Programmierung darstellt. 


Durch die Bedingung innerhalb der Programmschleife mit DO (WHILE) ist eine 
weitere Besonderheit gegeben, die in manchen Fällen sehr sinnvoll ist, und umständ- 
liche IF-Abfragen innerhalb einer Programmschleife überflüssig macht. Als Beispiel 
seien hier nur mathematische Näherungsverfahren erwähnt. Eine iterative Berech- 
nung wird sooft durchgeführt, bis das Ergebnis der gewünschten Genauigkeit ent- 
spricht. Dabei sollten die Ergebnisse von zwei aufeinanderfolgenden Durchläufen 
der Iteration in zwei separaten Variablen — die meist sowieso gebraucht werden — 
abgelegt werden. Ein Abbruchkriterium für eine DO-Schleife könnte dann lauten: 


DO WHILE (WERTALT — WERTNEU < 0.000001) 
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4/3.1.4 


Verwalten von Daten und Programmen mit externen 
Speichermedien 





Stehen im 64er-Modus nur relativ wenige Befehle (OPEN, LOAD, SAVE, CLOSE 
und VERIFY) für die Arbeit mit externen Speichermedien zur Verfügung, so bietet 
der C 128-Modus eine ganze Palette, die hauptsächlich im Hinblick auf die Disket- 
tenstation abgestimmt sind. 


4/3.1.4.1 


HEADER — Die Formatierung 





Bevor Sie die Arbeit mit einer Diskettenstation aufnehmen können, müssen Sie die 
Disketten zur Aufnahme von Daten vorbereiten. Dieser Vorgang nennt sich Forma- 
tieren und wird von dem HEADER-Befehl unterstützt, so wie auch das Löschen des 
Inhaltes auf einer nicht mehr benötigten Diskette mit Hilfe des HEADER-Befehles 
erledigt werden kann. 


Da es sinnvoll ist, alle Disketten gleich nach dem Kauf zu formatieren, um späteren 
Komplikationen aus dem Weg zu gehen, sollte man die HEADER-Anweisung in ein 
kleines Programm einbauen. Dieses Programm kann aus einer Endlosschleife be- 
stehen, in der nach jedem HEADER-Befehl ein Wartebefehl für einen Tastendruck 
angegeben ist. 
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Bei dem uns zur Verfügung stehenden Rechner stellte sich jedoch heraus, daß bei 
der Kennung keine Variablen möglich waren, da sonst ein SYNTAX ERROR ent- 
stand. 


4/3.1.4.2 


CATALOG/DIRECTORY — Das Inhaltsverzeichnis 





Nachdem Sie eine Diskette formatiert haben, aber auch zu jedem anderen Zeit- 
punkt, können Sie sich das Inhaltsverzeichnis einer Diskette mit den Befehlen 
CATALOG und DIRECTORY anzeigen lassen. Bei einer formatierten Diskette er- 
scheint als Überschrift neben der Laufwerksnummer der vorher gewählte Name, 
dann die Kennung und ein “2A}, das jedoch für den Anwender bedeutungslos ist. 
In Abhängigkeit von der verwendeten Floppy-Station (1541 oder 1571) wird die An- 
zahl der freien Blocks (je 256 Byte) angezeigt. Die Anzeige des Inhaltsverzeichnisses 
zerstört im 128er-Modus nicht das im Hauptspeicher befindliche Programm (im 
64er-Modus muß das Inhaltsverzeichnis als Programmdatei geladen werden). 


Befinden sich Dateien auf der Diskette, so wird neben den Namen auch die Anzahl 
der verwendeten Blocks und die Art der Datei geladen. PRG bedeutet hierbei Pro- 
grammdatei, worunter auch binäre Dateien geführt werden, wie z.B. die Daten für 
Sprites. Weiterhin wird bei Datendateien zwischen sequentiell (SEQ) und relativen 
Dateien/Direktzugriffsdateien (REL) unterschieden. 
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Da diese beiden Befehle häufig verwendet werden, sollen an dieser Stelle noch die 
Abkürzungen erwähnt werden: CATALOG wird mit C SHIFFA aufgerufen und 
DIRECTORY mit DI SHIFT-R. Sparkünstler wählen also die Abkürzung für 
CATALOG. 


Bei großen Inhaltsverzeichnissen sollte man auch auf die sogenannte Präfixsuche 
(mit » x «) bzw. Suche mit Platzhaltern (»?«) zurückgreifen. 


413.1.4.3 


BACKUP — Die Datensicherung 





Leider funktioniert der BACKUP-Befehl nur bei zwei angeschlossenen Laufwerken 
(nicht unbedingt ein Doppellaufwerk). Da er ausreichend im Handbuch beschrieben 
wurde, soll an dieser Stelle nur etwas zum Thema Datensicherung allgemein gesagt 
werden. 


Eingebürgert hat sich eine sogenannte Großvater-Vater-Sohn-Datensicherung. Dies 
bedeutet, daß die tägliche Datensicherung nicht immer auf die gleiche Diskette ge- 
macht wird, sondern für jede Originaldiskette zwei BACKUP-Disketten benötigt 
werden. Da alle drei Disketten im Prinzip sowohl Original- als auch Kopiedisketten 
sind, wollen wir sie im folgenden kurz mit A, B und C bezeichnen. 


Bei der ersten Sicherung wird die Originaldiskette A auf die Diskette B kopiert. Bei 
den weiteren Arbeiten wird Diskette B benutzt, um beim nächsten Sicherungsvor- 
gang auf C kopiert zu werden. Somit stellt zunächst A die Kopiediskette des Origi- 
nals B dar und anschließend B die Kopiediskette des Originals C. Der nächste Ko- 
pievorgang erfolgt von der Diskette C auf A, die somit wieder Originaldiskette wird. 
Dieser Vorgang wiederholt sich fortlaufend, wobei jedoch die Abnutzung der Dis- 
ketten zu berücksichtigen ist. Eine zeitliche Aussage kann generell hier nicht getrof- 
fen werden, da dies von der unterschiedlichen Benutzungshäufigkeit der Disketten 
abhängt. 


Sollte an der Diskette C etwas geschehen, so beinhaltet die Diskette B den letzten 
Datenstand und die Diskette A zwar einen weniger aktuellen Datenstand, was je- 
doch besser als vollständig verlorene Daten ist. Es ist bei keinem Computer auszu- 
schließen, daß beim BACKUP eine Diskette kaputtgeht. Damit nun nicht alle Daten 
neu erfaßt werden müssen, dient die Kopiediskette der zweiten Generation als zu- 
sätzliche Sicherheit. 
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4/3.1.4.4 


SCRATCH — Das Löschen 





Damit nicht alle Daten bis in Ewigkeit auf den Disketten verbleiben, kann der 
SCRATCH-Befehl zum Löschen von Dateien angewendet werden. Dabei ist es un- 
erheblich, ob eine Programmdatei oder eine Datendatei (sequentiell oder relativ) ge- 
löscht werden soll. 


Bei der Verwendung des SCRATCH-Befehls ist größte Vorsicht geboten, da ge- 
löschte Dateien nur mit sehr großem Aufwand und nur von eingefleischten Profis 
wiederhergestellt werden können (1571-Besitzer haben es besser: auf der System- 
diskette befindet sich ein entsprechendes Hilfsprogramm). 


Beim Löschen einer Datei wird im Inhaltsverzeichnis der Diskette ein Merker ge- 
setzt, der die Datei als gelöscht kennzeichnet. Außerdem werden die benötigten 
Blocks wieder als frei für weitere Dateien gekennzeichnet. Auch mit einem Hilfspro- 
gramm ist eine Reparatur meist nur möglich, wenn keine Datei seit dem Löschen 
neu angelegt oder vergrößert wurde. 


Anders als bei den Rechnern der 8000er-Serie wird der SCRATCH-Befehl beim 
C 123 mit SC SHIFT-R abgekürzt. 


413.1.4.5 


RENAME — Die Namensänderung 





Vielleicht ist es Ihnen schon beim Speichern einer Programmdatei passiert, daß die 
Fehlermeldung „FILE EXISTS ERROR“ erschienen ist. Wenn Sie nun die alte Da- 
tei nicht löschen wollen und außerdem die neue Datei den speziell vorgegebenen 
Namen erhalten soll, so kann der RENAME-Befehl Ihnen wertvolle Dienste leisten. 


Die Datei mit dem veränderten Namen weist außer dieser Änderung keine weiteren 
Differenzen auf. Lediglich der Dateiname im Inhaltsverzeichnis der Diskette wird 
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geändert. Es geschieht also kein Umkopieren der Datei mit einem anderen Namen, 
was die Angabe eines einzigen Floppylaufwerks beinhaltet. Dies im Gegensatz zum 
COPY-Befehl, mit dem man Dateien — auch mit veränderten Namen und zwischen 
verschiedenen Laufwerken — umkopieren kann. 


4/3.1.4.6 


COPY — Das Kopieren 





Der COPY-Befehl ermöglicht das Umkopieren einzelner Dateien zwischen verschie- 
denen Laufwerken, aber auch innerhalb der gleichen Diskette. Dabei kann der 
Name beibehalten (wenn zwei verschiedene Laufwerke benutzt werden) oder auch 
geändert werden. 


Die Verwendung des COPY-Befehls ist immer dann angezeigt, wenn einzelne 
Dateien gesichert oder aus anderen Gründen auf eine andere Diskette überspielt 
werden müssen. Beim Überspielen auf eine andere Diskette muß unbedingt ein 
zweites Laufwerk vorhanden sein, da eine Zwischenspeicherung der Daten (Pro- 
grammdateien, sequentielle Dateien, relative Dateien) innerhalb des Hauptspeichers 
des C 128 nicht erfolgt. 


Sehr wichtig ist der COPY-Befehl, wenn Sie bei Anwendung des BACKUP-Befehls 
auf einen READ ERROR oder WRITE ERROR gelaufen sind, und somit das kom- 
plette Duplizieren einer Diskette nicht möglich ist. Wenn Sie Glück haben, befindet 
sich der Schreib-/Lesefehler an einer Stelle, an der die Diskette nicht mit Ihren 
Daten beschrieben ist. Da der BACKUP-Befehl jedoch alles kopiert, bricht er bei 
einem Schreib-/Lesefehler ab. 


In diesem Fall können Sie mit dem COPY-Befehl die Dateien einzeln kopieren, was 
aus Gründen der Datensicherheit sehr zu begrüßen ist. 
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4/3.1.4.7 


COLLECT — Die Garbage Collection — Aufräumungsarbeiten 





Der COLLECT-Befehl ist nur interessant, wenn sich aus irgendwelchen Gründen 
eine nicht geschlossene Datei auf der Diskette befindet. Solche Dateien werden mit 
einem Sternchen vor der Dateiart (PRG, SEQ, REL) angezeigt. Normalerweise sind 
solche Dateien nicht mehr zu retten, und man sollte insbesondere bei sequentiellen 
Dateien darauf achtgeben, daß sie nach Programmende auch geschlossen werden. 


Nicht immer können solche mit » » « gekennzeichnete Dateien mit dem SCRATCH- 
Befehl gelöscht werden. Hier kann man nun den COLLECT-Befehl anwenden. Dies 
sollte allerdings nur im äußersten Notfall passieren, wenn die Datei gar nicht mehr 
anders gerettet werden kann, da sie dann unwiederbringlich verloren ist. 


4/3.1.4.8 


DCLEAR — Die Floppy-Kanäle schließen 





Der DCLEAR-Befehl ist kein Hilfsmittel, die im letzen Kapitel erwähnten un- 
geöffneten Dateien zu schließen. Deshalb sollten alle Dateien vor Verwendung des 
DCLEAR-Befehls geschlossen sein. 


Es stehen dem Anwender nur eine begrenzte Zahl von Kanälen zur Datenübergabe/ 
Übernahme von/zur Floppy zur Verfügung. Durch unsaubere Programmierung 
(DCLOSE vergessen) oder durch andere Einwirkungen (Programmabbruch, manch- 
mal auch bei Diskettenwechsel) kann es vorkommen, daß die Floppykanäle mit dem 
DCLOSE-Befehl nicht mehr geschlossen werden können. In diesem — seltenen — 
Fall leistet der DCLEAR-Befehl wertvolle Hilfe. 
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413.1.4.9 


DVERIFY — VERIFY für Disketten 





Der selten gebrauchte Befehl DVERIFY bildet das Gegenstück zum VERIFY- 
Befehl. Beim Kassettenrekorder ist der VERIFY-Befehl unbedingt nach dem Spei- 
chern eines Programmes anzuwenden, um das korrekte Speichern der Programm- 
daten zu überprüfen. Um nun auch eine Überprüfung bei einer Diskettenstation 
möglich zu machen, wurde der Befehl DVERIFY kreiert. Sie können also nach dem 
Speichern eines Programmes mit DSAVE überprüfen, ob der Vorgang korrekt ver- 
laufen ist. 

Dieser ist jedoch nicht so wichtig, jedenfalls nicht für die Prüfung gespeicherter 
Programme sofort nach dem Speichern. Dies wird vom Betriebssystem automatisch 
erledigt, d.h. nach dem Schreiben wird automatisch ein Prüflauf durchgeführt. 
Der DVERIFY-Befehl kann aber an anderen Stellen sinnvoll eingesetzt werden, 
wenn man z.B. nicht weiß, ob man eine neue Programmversion bereits auf Diskette 
gespeichert hat oder nicht. Hier wird der DVERIFY-Befehl also nicht zum Prüfen 
gespeicherter Programme eingesetzt, sondern zur Unterschiedsfindung. Der 
DVERIFY-Befehl bezieht sich nur auf Programm- und nicht auf Datendateien. 


4/3.1.4.10 


BLOAD/BSAVE — Speicherteile ein- und auslagern 





Besonders Maschinenspracheprogrammierer werden die Befehle BLOAD und 
BSAVE sehr begrüßen, da sie das Speichern Ihrer Maschinenprogramme wesentlich 
vereinfachen. Aber auch Spritedaten können auf diese einfache Weise gespeichert 
und später an die richtige Stelle geladen werden, wie im Kapitel Grafik mehrfach 
aufgezeigt ist. Eine weitere Möglichkeit bildet das Speichern von Grafiken, die ja 
ebenfalls im RAM dargestellt sind. 

Im 64er-Modus ist lediglich das Laden von binären Dateien an eine, in der Datei 
vorgesehenen, Stelle möglich, indem man beim LOAD-Befehl hinter der Geräte- 
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nummer noch ein »,1« schreibt. Das Gegenstück vom BSAVE-Befehl ist dort nicht 
vorhanden. 


Aber auch komplexere Anwendungen, wie z.B. das Auslagern ganzer Bänke auf Dis- 
kette, und späteres wieder Einladen, was besonders bei großen Programmsystemen 
erforderlich sein kann, wird durch die Befehle BLOAD und BSAVE unterstützt. 


4/3.1.4.11 


DLOAD/DSAVE — Programme laden und speichern 





Ähnlich den Befehlen BLOAD und BSAVE fungieren die Befehle DLOAD und 
DSAVE, die sich jedoch auf normale Programmdateien beziehen. Sie ersetzen die 
Befehle LOAD und SAVE vom 64er bzw. 64er-Modus, und ersparen lediglich die 
Angabe von »,8« hinter dem Dateinamen. 


Da diese Befehle normalerweise recht häufig verwendet werden, sind ihnen Funk- 
tionstasten zugeteilt, »DLOAD”« erhalten Sie durch Drücken der Funktionstaste 
F2 und »DSAVE” « durch F5. Nach Drücken der Funktionstasten brauchen Sie also 
lediglich die Dateinamen einzugeben und die RETURN-Iaste zu drücken. 


Abgekürzt werden die Befehle mit D SHIFT-L und D SHIFTES, was ebenfalls die 
Handhabung vereinfacht. 


Eine weitere Besonderheit bietet die Tastenkombination RUN/STOP - SHIFT. 
Drücken Sie diese Tastenkombination, so erscheint auf dem Bildschirm die Abkür- 
zung für DLOAD, ein Anführungszeichen gefolgt von einem Stern, mit dem das 
erste Programm von der Diskette geladen und sofort gestartet wird. Dies vereinfacht 
besonders Computerlaien die Handhabung ihres Rechners, wenn sie nicht mit ihm 
programmieren, sondern ihn nur anwenden wollen. 
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4/3.1.4.12 


BOOT — Das Starten einer Binärdatei 





Ähnliches was mit DLOAD”* für normale Programmdateien gilt, kann mit dem 
BOOT-Befehl für Binärdateien realisiert werden. Es ist offensichtlich, daß es sich 
hierbei um Maschinenprogramme handeln muß, die vorher mit BSAVE-Befehl ge- 
speichert worden sind. 


Das Laden einer Binärdatei lediglich durch Angabe von BOOT bedarf schon etwas 
eingehenderer Kenntnisse, da der Sektor 0 in Spur 1 der Diskette nicht mit dem 
BSAVE-Befehl beschrieben werden kann. Hierzu muß — neben anderen Befehlen 
— der BLOCK-WRITE-Befehl herangezogen werden. 


An dieser Stelle soll das Handbuch der Commodore-Floppy 1571 einmal angeführt 
werden, da es neben einer genaueren Beschreibung der Floppymöglichkeiten sowohl 
in bezug auf Basic 2.0 als auch Basic 7.0 auch auf weitere Feinheiten eingeht. Mit 
den entsprechenden Hilfsprogrammen wird u.a. das Kopieren einer Diskette mit 
einem Einzellaufwerk, aber auch das Rückgängigmachen des SCRATCH-Befehls 
beschrieben. Dieses Handbuch ist sicherlich auch für 1541-Besitzer interessant, da 
vieles auch für diese Floppy gilt. 


4/3.1.4.13 


DS und DS$ — Die Fehlermeldung 





Hervorzuheben ist auch die Eigenschaft des C 128, die Fehlermeldungen von der 
Floppy sehr einfach abzufragen. Hier fungieren die beiden Systemvariablen DS und 
DS$, wovon DS$ im Direktmodus und als Fehlerausgabe bei Programmabbruch 
verwendet werden sollte, da der Wert von DS darin enthalten ist. 


Die Systemvariable DS beinhaltet die Fehlernummer und gibt dem Programmierer 
die Möglichkeit, gewollte und reguläre Fehler per Programm abzufangen. So be- 
inhaltet z.B. die Fehlernummer 50 einen RECORD NOT PRESENT ERROR, der 











Teil 4 Kapitel 3.1.4 Seite 10 Basic 70 








3.1 Kommentar zu den Befehlen mit kleinen Teil 4: Software-Erstellung 
Anwendungsbeispielen 


u.a. dann auftritt, wenn ein nicht vorhandener Datensatz aus einer Direktzugriffs- 
datei gelesen werden soll. Hier kann nach dem Lesen eines Datensatzes eine Abfrage 
im Programm erfolgen, die ungefähr so aussehen könnte: 


IF DS=50 THEN PRINT “DATENSATZ NICHT VORHANDEN” : GOTO “WEITER” 





Generell ist zu beachten, daß es zwei grundsätzliche Typen von Fehlermeldungen 
gibt, und zwar solche, die das Betriebssystem des C 128 meldet und solche, die von 
der Floppy an den Rechner übergeben werden. 


Generell ist anzuraten, nach jedem Floppy-Befehl eine Abfrage auf DS anzufügen, 
und das Programm nur bei dem Wert 0 (kein Fehler) weiterlaufen zu lassen. Ist keine 
ergänzende Fehlerbehandlung gegeben, wie oben bei Fehlernummer 50 dargestellt, 
so sollte das Program mit 


PRINT DS$ : END 


abgebrochen werden. 


Damit verhindern Sie Unstimmigkeiten, die sich sonst sehr leicht einschleichen. Ins- 
besondere ist das Vorgehen bei Direktzugriffsdateien (relativen Dateien) interessant, 
da diese naturgemäß ständig durch neue Datensätze vergrößert werden. Die Fehler- 
meldungen FILE TOO LARGE und DISK FULL werden auf diese Weise erkannt. 
Andernfalls müßte man bei jeder Floppy-Operation ein Auge auf die Leuchtanzeige 
werfen. . 


Auf jeden Fall sollten Sie sich bei einer roten Anzeige am Floppylaufwerk die Feh- 
lermeldung auf den Bildschirm holen, um entsprechend reagieren zu können. 


4/3.1.4.14 


DOPEN — Das Öffnen von Dateien 





Nachdem wir bisher die allgemeinen Befehle zum Diskettenhandling besprochen 
haben, wollen wir uns im Rest von Kapitel 4/3.1.4 der Dateibehandlung im besonde- 
ren widmen. 
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Bevor man mit einer Datei auf der Diskette arbeiten kann, muß zunächst ein Kanal 
eröffnet werden, über den die Daten transferiert werden können. Dies geschieht mit 
dem DOPEN-Befehl, der außerdem noch festlegt, welche Datei angesprochen wer- 
den soll (Dateiname). 


Sequentielle Dateien müssen entweder zum Lesen bzw. Schreiben der Daten geöff- 
net werden. Beim Schreiben ist an den Dateiname ein »,W« anzufügen, das Lesen 
benötigt keinen weiteren Parameter. 


Anders als bei den Sound- und Grafikbefehlen braucht beim DOPEN-Befehl kein 
Komma gesetzt zu werden, wenn ein Parameter weggelassen wird. Die Zuordnung 
der einzelnen Parameter zu ihrer Bedeutung wird durch die Buchstaben L (Länge 
bei relativen Dateien), D (Laufwerk), U (Geräteadresse) und W (Schreiben bei 
sequentiellen Dateien) festgelegt. 


Eine Datei mit dem gleichen Dateinamen kann nicht nochmals zum Schreiben für 
eine sequentielle Datei geöffnet werden, sonst erscheint die Fehlermeldung ‘FILE 
EXISTS ERROR‘. Sollte eine solche Datei trotzdem noch mal beschrieben werden 
müssen, so ist sie vorher mit dem SCRATCH-Befehl zu löschen. 


Bei relativen Dateien ist es nicht nötig, diese entweder zum Schreiben oder zum 
Lesen zu öffnen, bei wiederholtem Öffnen der Datei braucht auch nicht mehr die 
Länge mit angegeben zu werden. Diese ist nur beim Anlegen der Datei wichtig. 


An dieser Stelle noch etwas zu den Begriffen sequentielle Datei und relative Datei. 
Sequentielle Dateien werden so bezeichnet, weil die Daten nacheinander (sequen- 
tiell) in diese Datei eingetragen werden. Solche Dateien lassen sich nur als Ganzes 
beschreiben oder lesen. Einzelne Daten können nicht aus der Datei entnommen 
bzw. hineingeschrieben werden. Das Entnehmen einzelner Daten kann jedoch durch 
Überlesen aller vorhergehenden Daten in der sequentiellen Datei einfach realisiert 
werden. Ein gezieltes Hineinschreiben in die Datei wird jedoch durch den Aufwand 
nicht gerechtfertigt. Vorteile bieten sequentielle Dateien vor allem bei Daten, die 
auch sequentiell verarbeitet werden, wie z.B. statistische Auswertungen. 


Relative Dateien bieten gegenüber sequentiellen Dateien einen entscheidenden Vor- 
teil, indem auf einzelne Datensätze zugegriffen werden kann. Wenn eine relative 
(Direktzugriffs-)Datei geöffnet wurde, so kann sowohl gelesen als auch geschrieben 
werden. Es ist also nicht nötig, vor jedem schreibenden Zugriff ein »W« bei einem 
DOPEN-Befehl anzuhängen und die Datei nach dem Schreiben zu schließen. 


Besonders in der kommerziellen Datenverwaltung finden heute Direktzugriffs- 
dateien allgemeine Anwendung. Sie gestatten es z.B., die Daten eines einzelnen Kun- 
den gezielt aus der Datei herauszuholen, diese zu ändern und gezielt wieder zu spei- 
chern. Wir werden diese Vorgehensweise später noch etwas näher beleuchten (siehe 
auch Kapitel 4/4.7.). 


Wie nach jedem Floppy-Befehl sollte auch nach DOPEN — und hier besonders — 
eine Abfrage der Fehlervariablen DS nicht fehlen. 
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4/3.1.4.15 


DCLOSE — Das Schließen von Dateien 





Das Gegenstück zum DOPEN-Befehl bildet der DCLOSE-Befehl. Er bezieht sich 
jeweils auf die geöffnete Datei, sofern diese hinter einem ‘#’ angegeben bzw. auf 
alle geöffneten Dateien. Vor einem Programmende sollte möglichst immer der 
Befehl DCLOSE gegeben werden, um besonders bei sequentiellen Dateien zu ver- 
meiden, daß die Dateien nachher mit dem COLLECT-Befehl geschlossen werden 
müssen, was den Datenverlust zur Folge hat. 


Werden mehrere Dateien — insbesondere relative Dateien — in einem Programm 
benötigt, so werden Sie sehr schnell auf die Fehlermeldung NO CHANNEL stoßen. 
Dies bedeutet, daß für das Öffnen einer weiteren Datei kein Kanal mehr freigegeben 
werden kann. Die Anzahl der Kanäle ist begrenzt, wobei jede relative Datei drei 
Kanäle benötigt und jede sequentielle Datei einen. 


In diesem Fall sollte man in Kenntnis des Programmlaufes eine zur Zeit nicht benö- 
tigte Datei schließen, um sie später — wenn eine andere nicht mehr benötigte Datei 
geschlossen wurde — wieder mit dem DOPEN-Befehl zu öffnen. 


Im folgenden zeigten wir Ihnen ein kleines Programm, mit dem die ersten 100 Zah- 
len in die Datei TESTDATEI 1 geschrieben werden. 








id DOPEN #2, "TESTIATEIL".H 

118 IF DS 22 KU THEH FRIMTOSE : END 
125 FÜR I=1 TO 186 

122 PRINT#Z:I 

1489 FREIMT I 

1232 MEAT 

360 DCLOSE #2 

ira IF DE <> 8 THEH PREIHTOS$ : END 





Listing 4/3.1.4.15-1 


Wenn Sie das Programm laufen lassen, werden Sie feststellen, daß das Öffnen der 
Datei eine Zeitlang benötigt. Außerdem wird ca. eine Sekunde für das Schließen der 
Datei benötigt, und wenn Sie aufmerksam beobachten, wird während des Spei- 
cherns ebenfalls noch eine kleine Pause (am Bildschirm) eingelegt, in der die Floppy 
den nächsten Block anspricht, da nicht alle Zahlen innerhalb eines Blockes Platz 
finden. 
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An unserem Programmbeispiel wird auch gleich die Benutzung des PRINT-Befehls 
deutlich, wenn dieser nicht auf den Bildschirm, sondern auf Diskette geschrieben 
werden soll. 


Wenn Sie nun das Programm ein zweitesmal starten, laufen Sie auf den Fehler 


63, FILE EXISTS,00,00 


was beim DOPEN-Befehl ein Überschreiben bereits vorhandener Dateien verhin- 
dert. 


Ändern Sie nun in Zeile 100 den Dateinamen auf TESTDATEI2 und starten Sie das 
Programm erneut. Sie haben nun zwei Testdateien, die jeweils die Zahlen 1 bis 100 
beinhalten. 


Diese Daten können wir nun mit einem ähnlichen Programm einlesen, wobei wir 
den PRINT-+-Befehl durch einen INPUT#-Befehl ersetzen und natürlich den Para- 
meter »,W« weglassen. 


An dieser Stelle noch etwas zum INPUT-Befehl: Mit dem INPUT-Befehl können die 
Daten zwar eingelesen werden, jedoch werden keine Semikolons, Doppelpunkte und 
Kommata mit eingelesen. Diese werden vom Rechner als Trennzeichen zwischen den 
Daten interpretiert. Wenn Sie in Ihrer Datei die ebengenannten Zeichen verwendet 
haben, so müssen Sie den GET+#-Befehl verwenden, und damit jedes Zeichen ein- 
zeln einlesen, was natürlich eine langwierige Sache ist. 














Hier nun das leicht geänderte Listing: 





u 
189 DOPEH #2, "TESTDATEIL" 

11a IF DS <> 2 THEN PRIHTUSE : EHD 
124 FOR I=1 TU 100 

138 THPUT#EZ: I 

143 PFEIHT I 

152 NEST 

168 2) 












THEH PEIMTISE : EMD 








Listing 4/3.1.4.15-2 


Generell ist es auch möglich, beim Schreiben Zeichenreihen und Zahlvariablen 
(Integer und Floating Point) zu mischen, jedoch muß beim Auslesen der Datei die 
Reihenfolge der Variablentypen die gleiche sein, wie beim Einschreiben. 


In unserem Fall wissen wir natürlich, wie viele Einträge (Daten) in der sequentiellen 
Datei vorhanden sind. Es gibt zwei Methoden, das Dateiende festzustellen. Bei der 
ersten Methode schreibt man als erstes Datum in die Datei die Anzahl der Daten- 
sätze (einzelne Daten oder Datengruppen mit gleichem Schema) und liest dann im 
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Programmablauf zunächst aus der Datei dieses erste Datum ein, um in eine 
FOR... NEXT-Schleife — die als Schleifenendekriterium diese Zahl enthält — 
den Rest der Datei einzulesen. 


Die andere Möglichkeit macht sich die Statusvariable ST zunutze. Dazu unser näch- 
stes Beispiel, indem wir Zeile 120 gelöscht und Zeile 150 in ‘GOTO 130° geändert 
haben. Außerdem geben wir bei der Ausgabe am Bildschirm noch den Wert der 
Statusvariablen ST an. 





aa DOFEH "TESTORTEIL" 

119 IF DS CH 0 THEM PRINTDSF : EHI 
132 INPUTEET 

142 PEIHT 1.57 


150 GOTO 138 
1250 DELOSE #2 
170 IF DS X 8 THEN FEINTESE : EHI 





Listing 4/3.1.4.15-3 


Wenn Sie dieses Programm starten, so erscheint neben der eingelesenen Ziffer bis 
zur Zahl 99 als Wert der Statusvariablen eine 0. Bei der ersten 100 (die noch zu 
unserer Datei gehört) weist der Status einen Wert von 64 auf und alle folgenden 
Ausgaben geben den zuletzt eingelesenen Wert (100) und den Statuswert 66 wieder. 
Das Programm kann nur mit der STOP-Taste angehalten werden. 


Ist nach dem Einlesen eines Datums das Dateiende erreicht, so meldet dies also die 
Statusvariable mit dem Wert 64, was wir uns natürlich in einem Programm zunutze 
machen können. 





r 
1665 DOPEH #2. "TESTOATEIL" 
119 IF TS ©> 5 THEM FEINTOSF : EMO 
120 I0 
120 IHMPUTHZ. I 
146 PRINT I.ST 
445 IF 2Ten4 GOTO Lei 
158 LOOF 
15 DILOSE #2 
178 IF US © 8 THEN FRIHTDSE ; EHI 





2er 











Listing 4/3.1.4.15-4 


Da man es als unsaubere Programmierung bezeichnen kann, wenn man aus einer 
FOR... NEXT-Schleife herausspringt, verwenden wir in unserem Fall die Kon- 
struktion DO... LOOP. Diese setzen wir wieder in die Zeilen 120 und 150 ein, und 
ergänzen Zeile 145 mit dem Aussprung, wenn die Datei zu Ende ist. 





Teil 4 Kapitel 3.1.4 Seite 15 





Basic 7.0 








3.1 Kommentar zu den Befehlen mit kleinen Teil 4: Software-Erstellung 
Anwendungsbeispielen 


4/3.1.4.16 


APPEND — Daten an Datei anhängen 





Der APPEND-Befehl ist eine Ergänzung zum DOPEN-Befehl in einem speziellen 
Fall. Um die Handhabung der sequentiellen Dateien etwas zu vereinfachen, kann 
der APPEND-Befehl herangezogen werden. So ist es immerhin möglich, ohne 
große Umstände Daten an eine sequentielle Datei anzuhängen. Im anderen Fall (z.B. 
im 64er-Modus) muß zunächst die gesamte sequentielle Datei in den Speicher des 
Rechners eingelesen werden, um dann die eingelesenen Daten vor den neuen Daten 
wieder erneut zu speichern. 


Der APPEND-Befehl wird an Stelle des DOPEN-Befehls benutzt, und seine Wir- 
kungsweise zeigen wir am besten mit einem kleinen Beispielprogramm. 


aa AFPEHD #2. "TESTOATEIL" 

IF Da su 0 THEH FRINTDSF : EMI 
2a FOR Iejej TO Ze 
ad FEINT#Z,T 


PRINT I 
3 NEXT 
TCLOSE #2 
IF D5 <> @ THEN PRINTIS# : EMD 








Listing 4/3.1.4.16-1 


Wir haben lediglich die Zeile 100 verändert, wo wir den Begriff DOPEN durch 
APPEND ersetzt haben. Außerdem wurde das »,W« gestrichen, da es beim 
APPEND-Befehl klar ist, daß dieser schreibend zugreift. Außerdem wurde in 
Zeile 120 der Beginn und das Ende unserer Schleife verändert. 


. Wenn Sie sich nun mit dem dritten oder vierten Beispielprogramm die Datei TEST- 
DATEI anschauen, so hat es den Anschein, als hätten Sie gleich die Zahlen von 
1 bis 200 in diese Datei eingetragen. 


Sofern Sie die Anzahl der Daten/Datensätze innerhalb der sequentiellen Datei aber 
im ersten Datum markiert haben, nützt Ihnen der APPEND-Befehl nichts, da Sie 
dieses Datum nicht ändern können, ohne die gesamte Datei neu zu beschreiben. 
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4/3.1.4.17 


CONCAT — Das Verknüpfen von Dateien 





Der APPEND-Befehl ist für das Anhängen von Daten an eine bestehende Datei zu- 
ständig, wenn diese per Rechner an die Datei angefügt werden und vom Anwender- 
programm herkommen. Hingegen ist der CONCAT-Befehl zuständig, wenn sich 
zwei Dateien, die zusammengeschlossen werden sollen, beide auf Diskette befinden. 
Dieser Befehl kann auch im Direktmodus gegeben werden, und wir wollen ihn dabei 
gleich für unser Beispiel verwenden. 


CONCAT “TESTDATEI2” TO “TESTDATEIN” 


Auch hier können Sie mit unseren Beispielprogrammen zum Einlesen der Daten 
wieder die Tätigkeit nachvollziehen. Zunächst werden die Zahlen von 1 bis 200 aus- 
gegeben (TESTDATEIl mit APPEND aus dem letzten Kapitel) und anschließend 
wiederum die Zahlen von 1 bis 100. 


Auch bei Verwendung des CONCAT-Befehls ist es nicht möglich, die Anzahl der 
Daten/Datensätze zu Beginn der Datei zu notieren, da dieser Merker von der zwei- 
ten Datei mitten in die zusammengefaßte Datei übernommen wird. 


Beachten Sie beim CONCAT-Befehl, daß Sie zunächst die Datei angeben, die ange- 
hängt werden soll, und nicht umgekehrt. 


Da CONCAT wie auch APPEND im Programm verwendet werden kann, ergeben 
sich reichhaltige Möglichkeiten der Behandlung von sequentiellen Dateien, so daß 
in manchen Fällen auf relative Dateien verzichtet werden kann. Der wichtigste Be- 
fehl in bezug auf Direktzugriffsdateien ist RECORD+, den wir abschließend in 
Kapitel 4/3.1.4 besprechen wollen. 
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4/3.1.4.18 


RECORD — Der Direktzugriff 





Der RECORD-Befehl ist derjenige Befehl, der den Direktzugriff erst ermöglicht. 
Wie bekannt, müssen Sie beim DOPEN-Befehl die Datensatzlänge bei einer Direkt- 
zugriffsdatei — mindestens beim ersten Öffnen — angeben. In diesem Fall haben 
wir es also mit einer sogenannten festen Datensatzlänge (alle Datensätze sind gleich 
lang) zu tun. Im Gegensatz dazu stehen Datensätze mit variabler Länge die gegen- 
über denjenigen mit fester Länge, einige Vorteile bieten (Speicherplatzersparnis). 
Diese lassen sich jedoch mit den zur Verfügung stehenden BASIC-Befehlen nicht 
realisieren. 


Auch eine Direktzugriffsdatei ist nichts anderes als eine sequentielle Datei, jedoch 
merkt sich der Computer die Datensatzlänge. Wenn Sie nun den 100. Datensatz 
lesen wollen, müssen 99 Datensätze übersprungen werden. Wenn man dies verein- 
facht auf die Anzahl der Zeichen eines Datensatzes reduziert und z.B. eine Daten- 
satzlänge von 250 Byte vorgibt, so beginnt der 100. Datensatz beim 24751. Zeichen. 


Bei Angabe der Bytenummer im RECORD-Befehl läßt sich sogar der Datensatz- 
zeiger innerhalb eines Datensatzes positionieren, was wir später auch noch zeigen 
werden. 


Zunächst schreiben wir uns ein kleines Programm, mit dem drei Datensätze in eine 
relative Datei eingeschrieben werden. 














1 DIFEH "TESTDATEH" 1.28 

4 IF IE 8 THEN FEIHTDSE : END 
iz: 

129 DATA HUBER. SEFF.MALDSTE. 35.387 
1453 DATA MUELLER. JOSEF.ALLEESTE. 25 
1323 DATA SCHMITZ. HANS, RINGSTR, 15.9 
1ER: 

ira FOR I=1 TOD 3 

1 AD HA 

t 


FERL 
FERD : 
FEHU OTE 
RERAD TEF 











CORD #1 2 











Listing 4/3.1.4.18-1 (1) 
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1 END 
BEE SERATCH"FROGDISKE"FRIHTDSFDEAVE"FROGDEISKES":PRIMTDSEIEHD 











Listing 4/3.1.4.18-1 (2) 


Zunächst haben wir in Zeile 100 eine ausreichend lange Datei definiert und stellen 
in den Zeilen 130 bis 150 einige Datensätze zur Verfügung, die in der 
FOR... NEXT-Schleife ab Zeile 170 eingelesen und der Datei übergeben werden. 
Dazu wird mittels des RECORD=#-Befehls, einer der ersten drei Datensätze ange- 
wählt. Zur Sicherheit wird ab Zeile 250 noch eine Fehlerbehandlung durchgeführt, 
bei der ‘kein Fehler/0’ und RECORD NOT PRESENT/50’ erlaubt sind. 


Dabei ist es wichtig, daß die Ausgabe der einzelnen Daten (NA$, VN$, SR$, OT$ 
und TE$) in einer einzigen Zeile untergebracht werden sollten, wobei als Trennung 
jeweils ein »;« heranzuziehen ist. Achtung: Hinter dem letzten Eintrag kein Semi- 
kolon mehr. 














Wer Interesse hat, kann auch die Verwendung eines »,« als Trennzeichen austesten 
bzw. die Verwendung eines »-+«, was jedoch der Ausgabe einer einzigen Zeichen- 
reihe gleichkommt. j 


Daß es sich auch bei Direktzugriffsdateien um sequentielle Dateien handelt, veran- 
schaulicht folgendes Programm, bei dem die Daten fortlaufend — ohne Verwen- 
dung des RECORD=#-Befehls — von der Datei eingelesen und am Bildschirm aus- 
gegeben werden. 






















19a DOPEH #2, "TESTORTEN" LEO 
I IE USE ©2 0 THEH PREIHTOSE : EHD 





FÜR I=j T02 
5 TMELTHE,AE 

a PEINTAE 

HEHT 






INLÜSERE 








Listing 4/3.1.4.18-2 


Hierbei werden allerdings alle Datensatzelemente ohne irgendwelche Trennzeichen 
hintereinander ausgegeben. 
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Mit dem nächsten Programm können Sie die Daten wie bei einer Direktzugriffsdatei 
einlesen: 

130 DOFEH #2. "TESTORTEH", LEE 

118 "DE SC 8 THEH FEIMTOS#F : END 

1 7 

i 

ji 

1: 

ie 

17 

1 

130 DcLos EHE 











Listing 4/3.1.4.18-3 


Und noch ein kurzes Programm, mit dem Sie die Datei zeichenweise auslesen kön- 
nen: 











Listing 4/3.1.4.18-4 


Dies sind jedoch nicht die allgemeingültigen Verwendungsformen von Direktzu- 
griffsdateien, vielmehr wollten wir Ihnen dieses Thema hier etwas näherbringen. 
Eine optimale Lösung für die Anwendung von Direktzugriffsdateien kann nur 
anwenderorientiert gegeben werden. Trotzdem wird man in den meisten Fällen bei 
Direktzugriffsdateien den Weg entsprechend abgelegter Datensatzelemente nehmen 
oder die Positionierung innerhalb des Datensatzes auf die entsprechende Byte- 
nummer. Letzteres wollen wir Ihnen an einem kleinen Programm verdeutlichen. 
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&, "TESTDATEHE",LSO 
‘> @ THEM FEIHMTDEE : END 





DATA Lil. 21, 4l.El 
REAL HRAYH.SER.OT.TE 















DATA HURER FF. HALDSTE. 
DATA MUELLER, I F.FILLEESTE. 


Eon 
DATA SCHMITZ,H 


‚TRADT 





FREE HE EIG ERGO EEE EFGE GEFGEEERREEG 





FÜR I=1 T0 02 


I RERT HA# 
RECORD #2. I. HA 
IHTHZ. MA 





REAL VE 
FELORD HE Do WH 
FEIHTHENHE 


FERD SEE 
: RECORD 
229 PEINT#Z 






1.=R 


READ OTF 
RECORD #2, I,0T 
FEIHTHZUTE 
FEAU TEE 
FELÖED #2. 1. TE 
PRIHTRZ. TEE 


HEKT 


459 DELOSE #2 
450 IF DS X 0 THEH FEINT DSH 
4 


475 END 


Listing 4/3.1.4.18-5 








Grundlage für dieses Programm war das zuerst in diesem Kapitel vorgestellte Pro- 
gramm. Achten Sie darauf, daß Sie auch in Zeile 100 den Dateinamen geändert 
haben, um Komplikationen zu vermeiden. Als nächstes haben wir in Zeile 130 fünf 
Zahlen definiert, die jeweils den Beginn eines Datensatzelementes im Datensatz an- 
geben. Für den Namen sind also zehn Zeichen vorgesehen, ebenfalls für den Vor- 
namen. Straße und Ort können mit jeweils zwanzig Zeichen ausgeführt werden, und 
für die Telefonnummer steht der Rest (ebenfalls 20 Zeichen) des Datensatzes zur 
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Verfügung. Diese Daten werden als nächstes eingelesen, worauf die schon bekann- 
ten Testdaten folgen. 


Innerhalb der FOR... NEXT-Schleife ab Zeile 210 werden dann die einzelnen 
Datensatzelemente eingelesen und entsprechend der Datensatzzeiger positioniert, 
worauf das Eintragen in den Datensatz erfolgt. 


Wenn Sie nun das Programm zum Einlesen einzelner Zeichen von Diskette laufen 
lassen (Achtung Dateinamen ändern), so werden Sie feststellen, daß nach jedem 
Eintrag eine Leerzeile am Bildschirm ausgegeben wird, welcher der Code 13 
(Carriage Return) zugewiesen ist. 


Einlesen können Sie die Daten mit dem gleichen Programmstück, wenn Sie jeweils 
in den Zeilen 250, 290, 330, 370 und 410 das PRINT durch ein INPUT ersetzen und 
als Ausgabe auf dem Bildschirm die Zeile 425 einfügen, die wie folgt aussehen 
könnte: 


425 PRINT NA$,VN$,SR$,OTS,TES 


In unserem Beispiel haben wir jeweils die gesamten Datensätze wieder eingelesen, 
was meist auch benötigt wird. Wollen Sie nun im zweiten Datensatz (MUELLER) 
die Telefonnummer ändern, so können Sie einfach schreiben 


DOPEN=#2,"TESTDATEN2” 
RECORD-=#2,2,61 


PRINT=#2,"12345/6789” 
DCLOSE-#2 








Natürlich kann man dies auch noch in ein Programm verpacken, was wir hier 
jedoch nicht mehr durchführen wollen. 


Damit kennen Sie die wichtigsten Grundlagen der Datenbehandlung, und der Pro- 
grammierung einer eigenen Dateiverwaltung dürfte nichts mehr im Wege stehen. 
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4/4.1.7 


Fractale — selbstähnliche Grafiken: 
Ordnung und Chaos direkt nebeneinander 





Im vorliegenden Kapitel wollen wir Grafiken besprechen, die nicht mittels eindeuti- 
ger Grafikbefehle gezeichnet, sondern aufgrund einer mathematischen Vorschrift 
errechnet werden. Gerade bei Fractalen — so heißt der Typ der mathematischen 
Gebilde und insbesondere deren grafische Auswirkung — ergeben sich interessante 
mathematische Möglichkeiten. Wir wollen in diesem Kapitel jedoch weitestgehend 
auf Begriffe wie Attraktoren oder „nicht-ganzzahlig-dimensional‘‘ und die mathe- 
matischen Hintergründe verzichten und uns schwerpunktmäßig mit der grafischen 
Auswirkung auseinandersetzen. 


Literaturempfehlungen 


Wer sich näher mit dieser Thematik befassen möchte, der sei auf ein Buch und zwei 
Zeitungsartikel hingewiesen: 


#1: Pleitgen/Richter: The Beauty Of Fractals, Springer Verlag 
#2: Uli Deker/Harry Thomas: Unberechenbares Spiel der Natur — 
Die Chaos-Theorie, Bild der Wissenschaft, Heft Januar 1983, Seite 62 ff. 
#3: Prof. Henning Genz: Fractale, Bild der Wissenschaft, Heft August 1986, 
Seite 140 (Mathematisches Kabinett) 


Besonders das unter #1 genannte Buch sei dem interessierten Leser empfohlen, ob- 
wohl es — trotz deutschsprachiger Autoren — vollständig in englisch geschrieben 
ist. 


Ordnung und Chaos 


Über 2000 Jahre lang war man der Meinung, daß in der Natur „Ordnung“ herrscht. 
Alle vorkommenden Strukturen wollte man mit wenigen geometrischen Grundfor- 
men (z.B. Kreisen oder Kugeln) zusammensetzen können, wenn man diese Grund- 
formen nur beliebig oft und beliebig klein an- und ineinanderschachteln würde. Bei 
Wolken z.B. hätte man sich hier etwas schwer getan, denn heute weiß man, daß 
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4/4.1.7.1 


Koch-Dreiecke 





Bild 4/4.1.7.1-1 stellt ein Bildschirmhardcopy von einer einfachen gezeichneten 
Linie dar. Da es sich um ein sehr vereinfachtes Beispiel handelt, ist die Verbindung 
zur Küstenlinie Großbritanniens aus 1000 km Höhe natürlich nicht sehr sinnvoll, 
aber das Prinzip ist das gleiche. 


Rechenvorschrift 


Wir wollen nun eine Vorschrift vorgeben, wie diese Linie zu ändern ist. Dazu teilen 
wir die Linie in drei gleiche Teile und belassen das linke und rechte Drittel der Linie 
so, wie es ist. Die Länge des mittleren Teilabschnittes wird verdoppelt und als Spitze 
eines Dreieckes ausgebildet, wie es Bild 4/4.1.7.1-2 zeigt. 


Auf die vier Teilabschnitte aus Bild 4/4.1.7.1-2 kann man nun das gleiche Verfahren 
anwenden und erhält die grafische Darstellung aus Bild 4/4.1.7.1-3. 


Jeder der vier Teilabschnitte aus dem letzten Bild ist nicht nur optisch, sondern 
auch nach Konstruktionsvorschrift identisch mit dem ganzen Linienzug aus Bild 
4/4.1.7.1-2, nur etwas kleiner. Wenn man von der Größe und dem Winkel absieht, 
ist ein Teil aus Bild 4/4.1.7.1-3 nicht von der Linie in Bild 4/4.1.7.1-2 zu unterschei- 
den. Da sie nicht exakt wegen der Größe und des Winkels übereinstimmen, nennt 
man sie ähnlich oder selbstähnlich. 


Das genannte Konstruktionsprinzip kann man noch häufiger anwenden und es er- 
geben sich die Linienmuster aus den Bildern 4/4.1.7.1-4 bis 4/4.1.7.1-7, wobei natür- 
lich die Selbstähnlichkeit erhalten bleibt. 


Damit wird auch das Beispiel der Küstenlinie Großbritanniens besser deutlich, da 
bei jedem Durchlauf die Linienlänge um 1/3 gegenüber dem vorherigen Durchlauf 
verlängert wird. 


Auch beim siebten Durchlauf läßt sich die Grundstruktur aus dem zweiten Durch- 
lauf noch gut erkennen, betrachtet man jedoch nur die gezeichnete Linie, so scheint 
sie etwas chaotisch zu verlaufen, da die Auflösung des Bildschirmes überschritten 
ist. Hier sieht man auch schon sehr deutlich, daß Ordnung und Chaos sehr nahe 
beieinander liegen. 
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Bild 4/4.1.7.1-1 Bild 4/4.1.7.1-2 




















Bild 4/4.1.7.1-3 Bild 4/4.1.7.1-4 
























Bild 44.1.7.1-5 Bild 4/4.1.7.1-6 
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Trotz einfacher Konstruktionsvorschrift sind eine Menge Daten (je Linienstück eine 
X- und Y-Koordinate) zu verarbeiten. Natürlich wollen wir Ihnen das Listing, mit 
dem wir diese Koch-Dreiecke gezeichnet haben, nicht vorenthalten (damit das 
Zeichnen nicht solange dauert, haben wir auf die Basic-Erweiterung aus Kapitel 
4/6.4.4 zurückgegriffen): 





ma=8000 
dim x%(ma) 
dim y%(ma) 


Rx%(0)=0 

y%(0)=150 
x%(1)=319 
y%(1)=150 


an=0 
fe=1 


print ’REEBR Leertaste -> Weiter 
print" RETURN -> Abbruch 
print" H -> Hardeopy 


dlsdirl 
if dl=7 then end 


get a$ 

if a$=chr$(13) then end 

if a$="h" then hrdepy 0 : goto 1230 
if a$<>" " then 1230 . 


grafelr 
erafon 0,1 


plot x%(an),y%(an) 
for izan+l to fe 

: line x%(i),y%(i) 
next 


n=fe+tl 
ak=fe 


for isan to fe-1 
ı get a$ 
: if a$=chr$(13) then end 


: if xkti)exklirt) and y%li)=y%(i+1) then 1650 
: akzak+1 

: x%lak)=x%(i) 

: y%lak)=y%ti) 


! akzak+1 
2 XAlak)=xkli)tlxälir1)-X%li))/3 
: y%lak)=y%(i)-(y%(i)-y%0i+1))/3 





Listing 4/4.1.7.1-8 (Teil 1) 
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1530 : akzak+ı 
1540 : x%lak)=x%(ak-1)+(xKli+L)-Ri))/8-1yRCi)-yXli+1))/3 
1550 : y%lak)=yX(ak-1)-(yRli)-yRli+1))/8-(xKli+1)-81))/3 


1570 : aksak+ı 
1580 : xKlak)=xK(i)+2x(x%li+1)-x%01))/3 
1590 : y%lak)=y%(i)-2*(y%li)-y%li+1))/3 


1610 : ak=ak+1 
1620 : x%lak}=x%(i+1) 
18630 : y%lak)=y%li+l) 





1850 next 


18670 for i=n to ak 
1680 : x%i-n)=x%(i) 
1690 : y%li-n)=y%(i) 
1700 next 


1720 an=O 
1730 fesak-n 


1750 &oto 1160 





Listing 4/4.1.7.1-8 (Teil 2) 


Vorspann der Programme 


Zunächst definieren wir uns eine Variable, die uns bei der Felddefinition hilft. Es 
werden zwei Felder XY( ) und YYs( ) definiert, die später die Anfangs- und End- 
punkte der Linien speichern. Vorteilhaft ist es, daß der Endpunkt des einen Linien- 
abschnittes zugleich der Anfangspunkt des nächsten Linienabschnittes ist. Mit den 
ersten Zuweisungen wird unsere Grundlinie (siehe Bild 4/4.1.7.1-1) in den Feld- 
elementen O und 1 festgelegt. Um später Speicherplatz einsparen zu können (die 
Liniendaten aus den vorherigen Durchgängen werden nicht mehr benötigt) definie- 
ren wir uns noch zwei Hilfsvariablen (AN, FE), die uns den jeweils gültigen Index- 
Bereich in den Feldern X%( ) und YY( ) markieren. 


Menü 


Vor den Berechnungen wird noch ein Menü angezeigt, um dem Anwender mitzutei- 
len, wie er über die Tastatur den Programmablauf beeinflussen kann. Dann wird 
der Grafikspeicher gelöscht und auf Grafikdarstellung mit der Hintergrundfarbe 
weiß und der Zeichenfarbe schwarz umgeschaltet. 
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Ausgabe eines Durchlaufes 


Es folgt die Ausgabe des Linienzuges in der Programmschleife von Zeile 1330 bis 
Zeile 1350. 


Berechnung eines Durchlaufes 


Während der Benutzer sich das Ergebnis des Durchlaufes ansieht, werden schon die 
Daten für den nächsten Durchlauf errechnet. Dazu wird eine weitere Hilfsvariable 
(N für neu) als Zeiger auf den nächsten nicht benutzten Wert in X%( ) und Y%o( ) 
gesetzt und eine zusätzliche Hilfsvariable (AK für aktuell) auf das letzte benutzte 
Element, da diese Variable sofort in der Schleife erhöht wird. 


Ersten Abschnitt berechnen (1450—1470) 


In der folgenden Programmschleife erfolgt die Berechnung der Linienabschnitte, 
nachdem über die Tastatur nach einem Abbruch gefragt wurde. Der Anfangspunkt 
ist dabei gleich dem Anfangspunkt der Ausgangslinie. Das Ende des ersten Ab- 
schnittes liegt ein Drittel der Linienlänge entfernt, wozu zunächst die Linienlänge 
als Differenz aus Anfang- und Endpunkt errechnet, dann gedrittelt und schließlich 
zum Anfangswert summiert wird. Dies wird natürlich für beide Koordinaten 
gleichermaßen durchgeführt. 


Zweiten Abschnitt berechnen (1490—1510) 


Der Endpunkt des zweiten Abschnittes stellt das rechnerisch größte Problem dar. 
Am besten veranschaulicht man sich die Vorgehensweise an Bild 4/4.1.7.1-2. Die 
Spitze liegt in X-Richtung auf genau der Hälfte der gesamten Strecke. Da wir es 
nicht immer mit einer waagerechten Linie zu tun haben, ziehen wir dazu den 
Anfangspunkt des zweiten Abschnittes heran und ein Sechstel der Gesamtlänge. 
Außerdem wird der Y-Anteil des folgenden Streckenzuges der Ausgangslinie mit 
einem Drittel seines Wertes herangezogen und subtrahiert. 


Ähnlich wird die neue Y-Koordinate ausgerechnet, auch hier wird der letzte Sum- 
mand addiert, da Y=0 am oberen Bildschirmrand zu finden ist. 


Dritten und vierten Abschnitt berechnen (1530—1590) 


Das Ende des dritten Abschnittes ist wieder recht einfach zu errechnen, da es sich 
um zwei Drittel der Ausgangslänge handelt und der Endpunkt des ganzen Linientei- 
les ist gleichzeitig wieder der Anfangspunkt des Nachfolgers der Ausgangslinie. 
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Daten umkopieren 


In der nächsten Programmschleife (ab Zeile 1670) werden die neu errechneten Daten 
in den Feldern X%«( ) und Y%( ) an den Anfang geschoben, da die Werte des vor- 
herigen Durchganges nicht mehr benötigt werden. Abschließend sind noch unsere 
Hilfsvariablen „AN“ und „FE‘‘ (für Fertig) zu aktualisieren und wir können zum 
nächsten Lauf übergehen. 


Kleine Änderung — große Wirkung 


Wenn man das Programm nur geringfügig ändert und bei der Berechnung der X- 
Position des Endpunktes des zweiten Abschnittes das ‘+’-Zeichen durch ein 
‘—"-Zeichen ersetzt (Zeile 1540), erhält man die in Bild 4/4.1.7.1-9 bis 4/4.1.7.1-13 
dargestellten Linienmuster. 


Die ersten beiden Durchläufe wurden nicht abgebildet, da sie mit den Bildern des 
Ursprungsbeispieles identisch sind. Besonders am siebten Durchlauf kann man er- 
ahnen, warum bei computererstellten Zeichentrickfilmen Hintergründe nicht immer 
explizit gezeichnet werden, sondern fractale Gebilde sind! Trotz der geringen Auf- 
lösung unseres Computers erreichen wir mit diesem fractale Muster, die den Um- 
rissen eines Nadelwaldes nicht unähnlich sind. 


Noch eine kleine Änderung 


Ein weiteres Beispiel dafür, daß man mit Fractalen Landschaftshintergründe dar- 
stellen kann, wollen wir ebenfalls mit unseren einfachsten Mitteln — im Gegensatz 
zu den speziellen Computern für Grafikanimation — darstellen (siehe Bild 
4/4.1.7.1-14). 


Entgegen unserer Ausgangslinie haben wir hier zwei Linien verwendet, deren Lage 
unschwer zu erkennen ist. Dieses Muster erreichen wir durch eine ganz kleine Pro- 
grammänderung: 
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rem --- koch-dreiecke 


ma=3000 
dim x%{ma) 
dim y%(ma} 


x%(0)= 40 


y%(0)=199 
x%(1}=170 
yA%ı)= 10 
x%(2)=319 
y%(2)=130 


an=O 
fe=2 


Listing 4/4.1.7.1-15 


Teil 4: Software-Erstellung 





Neben einer zusätzlichen Anfangskoordinate muß noch unsere Hilfsvariable „FE‘ 
umgesetzt werden und wir erhalten die Grafik wieder durch geänderten Parameter 


bei der Berechnung der dritten X-Koordinate. 


Auch mit der Ausgangsform eines Dreieckes (Bild 4/4.1.7.1-16) lassen sich gute Er- 
gebnisse erzielen, wie Bild 4/4.1.7.1-17 und Bild 4/4.1.7.1-18 zeigen. Auch hier haben 


wir den Anfang des Programmlistings abgebildet. 





1000 rem ----------- =... 0002 


1010 rem --- koch-dreiecke 


1020 rem -------- +22... 


1030 : 

1040 ma=8000 
1050 dim x%(ma) 
1080 dim y%(ma) 
1070 : 

1086 x%(0)=110 
1090 y%(0}=150 
1100 x%(1)=180 
1110 yAt1)= 50 
1111 x%(2)=210 
1112 y%(2)=150 
1113 x%(3)=x%(0) 
1114 y%(3)=y%(0) 
1120 : 

1130 an=O 

1140 fe=3 

1150 : 





Listing 4/4.1.7.1-19 
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Veränderte Kochdreiecke 


Wenn man ein nicht gleichseitiges Dreieck wählt und das Vorzeichen an der bekann- 
ten Stelle wieder austauscht, ergeben sich die Ergebnisse aus den Bildern 
4/4.1.7.1-20 und 4/4.1.7.1-21, wobei das Ausgangsdreieck unschwer zu erkennen ist. 


Wenn Sie nun selbst versuchen, etwas mit den Parametern zu probieren, werden Sie 
teilweise feststellen, daß sehr kleine Änderungen große Auswirkungen haben, was 
an einem späteren Beispiel im Rahmen dieses Kapitels noch viel deutlicher wird. 
Dies ist auch eine besondere Eigenschaft der Fractale: manchmal reichen kleine Än- 
derungen aus, um ein ganz anders geartetes Ergebnis zu erhalten. 


Schmetterlingseffekt 


Edward N. Lorenz — ein Meteorologe — nannte dies 1963 den Schmetterlings- 
effekt: der Flügelschlag eines Schmetterlings sei in der Lage, das Wettergeschehen 
langfristig zu verändern. 


4/4.1.7.2 


Sierpinski-Dreieck 





In etwa ähnlich den Koch-Dreiecken ist das Sierpinski-Dreieck. Ausgangsform ist 
ein gleichseitiges Dreieck, wie es in Bild 4/4.1.7.2-1 dargestellt ist. 


Änderungsvorschrift 


Durch die Mittelpunkte der Seitenlinien wird ein neues Dreieck beschrieben, das in 
das Ausgangsdreieck eingelagert werden kann, wie Durchgang 1 (Bild 4/4.1.7.2-2) 
zeigt. Dabei wird das Ausgangsdreieck in vier gleichseitige Dreiecke zerlegt. Die 
Dreiecke an den Spitzen des Ausgangsdreiecks werden nach dem gleichen Verfahren 
behandelt, wie die anderen Durchgänge in Bild 4/4.1.7.2-3 bis Bild 4/4.1.7.2-7 
zeigen. Auch das Sierpinski-Dreieck ist selbstähnlich. 
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Natürlich wollen wir Ihnen das Programmlisting nicht vorenthalten, das die ver- 
schiedenen Durchgänge am Sierpinski-Dreieck errechnet: 


dim x%(ma) 
dim y%(ma) 
dim xa%(ma/3) 
dim ya%(ma/3) 


2=0 


xK(0O)= 40 
yR(O)= 3 
dx =120 

dy =dx%*0.81 


grafelr 
grafon 0,1 
drawmode OÖ 


for t=x%(0) to x%(O)+2xdx 
: plot t,y%(0) 

line x%(O)+dx, y%(O)+2*dy 
next:drawmode 1 


for i=0 to z 

ı xa%li)=x%li) 
: yakli)=y%li) 
next 


for i=0 to z 

: for t=xa%(i)+dx/2 to xaX(i)+3%Kdx/2 
plot xa%(i)+dx,ya%(i) 
line t,yaX(i)+dy 

: next 


: x%(I3*i)=xaX%li) 

2 3%3%i1)=ya%li) 

2 XKIKi+l)=xaXli)+dx 

: y%l3*i+l)=ya%li) 

2 x%(3%Ri+2)=xa%(i)+dx/2 
2 yR(3Ki+2)=yaKli)+tdy 
next 


z=3#z+2 
dx=dx/2 
dy=dy/2 


get a$ 

if Aa®=chr${13) then end 
if a$=" " then1260 
Eoto1490 





Listing 4/4.1.7.2-8 
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Vorspann 


Anders als bei den Koch-Dreiecken wählen wir hier vier Felder, jeweils für die neu 
zu errechnenden Werte (X%( ), YYo( )) und die Werte des vorherigen Durchganges 
(XAYo( ), YAYo ); A für alt). Außerdem benötigen wir einen Zähler und die Posi- 
tion der linken oberen Ecke des Dreieckes, die anderen Ecken errechnen wir aus der 
Differenz in X- und Y-Richtung (DX und DY). Die Differenz benötigen wir später 
noch für unsere Berechnungen, so daß wir sie gleich zu Anfang verwenden können. 
Der Faktor bei der Differenz in Y-Richtung korrigiert diesmal die unterschiedlichen 
Pixelabstände der beiden Richtungen auf dem Bildschirm, so daß wir nicht rechne- 
risch, sondern optisch gleichseitige Dreiecke erhalten. Nach Festlegen der Rahmen- 
bedingungen und Einschalten der Grafik zeichnen wir das Ausgangsdreieck, wobei 
die Schleife in den Zeilen 1210 bis 1240 zum Zeichnen eines ausgefüllten Dreieckes 
dient. 


Berechnungen 


Zu Beginn aller Berechnungen werden die Daten des zuletzt durchgerechneten 
Durchlaufes in die Felder XAY( ) und YAYs( ) übertragen (Zeilen 1180 bis 1210). 
In der Programmschleife ab 1230 bis Zeile 1350 wird jedes Dreieck gezeichnet. An- 
schließend werden die linken oberen Eckpunkte der drei neuen Dreiecke errechnet 
und in X%( ) und YYo( ) abgelegt. Nach einem Durchlauf wird der Zeiger auf das 
letzte aktuelle Element gesetzt und die Differenzwerte halbiert. 


4/4.1.7.3 


Fractale Bäume 





Wenn man sich mit Fractalen beschäftigt, möchte man natürlich auch selbst etwas 
herumprobieren. Ist Ihnen bewußt, daß Pflanzen auch selbstähnlich sind? Blumen- 
liebhaber nutzen diesen Umstand, indem sie bei einigen Pflanzen Seitentriebe ab- 
schneiden, einpflanzen und so eine neue Pflanze erhalten, die der alten ähnlich ist. 
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Ein Beispiel 


Wenn man — stark verallgemeinert — aus einem Baumstamm vier Äste heraus- 
wachsen läßt und aus diesen Ästen jeweils wieder vier Zweige, so ergibt sich der in 
Bild 4/4.1.7.3-1 dargestellte „Baum‘“ Auch dies ist wieder ein Beispiel dafür, daß 
sich die Natur sehr gut durch Fractale darstellen läßt, wenn man als Heimcomputer- 
besitzer auch immer an der Kapazität des Rechners scheitert und nur einen schema- 
tischen Überblick erhält. 


Natürlich geht bei der Erstellung von fractalen Grafiken die meiste Zeit für das Aus- 
probieren der richtigen Parameter drauf und die wenigste Zeit für das Programmie- 
ren. 


Im folgenden Listing zu den fractalen Bäumen möchten wir Ihnen eine andere 
Möglichkeit vorstellen, wie Sie speicherplatzschonend auch kompliziertere Grund- 
formen bearbeiten können. 


Der geneigte Leser möge — auf Kosten der Zahl der Durchgänge — versuchen, 
auch ein paar seitliche Äste an den Baum aus dem letztgenannten Bild anzufügen. 
Hier zunächst das Listing: 


dim x%(ma) 
dim y%(ma) 
dim b%(ma) 
dim d(ma) 


x%(0)= 0 
y%(0)=90 
b%(0)=45 
40) =0 


input "Tiefe (1-5)";t 
if t<1 or t>5 then 1150 


for i=0 to t-1 
: sussu+4Ti 
next 


grafelr 
grafon 0,1 


for i=0 to summe-1 
: get a$ 
: if a$ß=chr$(13}) then end 








Listing 4/4.1.7.3-3 (Teil 1) 


13 
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1300 
1310 
1320 
1330 
1340 
1350 


2000 
2010 
2020 


2040 
2050 
2060 
2070 
2080 
2090 
2100 


2120 
2130 
2140 
2150 
2180 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2480 
2470 


2490 
2500 


2520 
2530 
2540 
2550 





1290 : 


2030 : 


2110 : 


2510 : 
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gosub 2000 
next 
get as 
if a$="" then 1320 
end 


1360 : 





plot x,y 
xn=x+b*sin(d) 
yn=y+b*cos (d) 
line xn,yn 


xn=xn+3. 5%b%sin(d+8/2) 
yn=yn+3. 5*b*cos (d+X/2) 
line xn,yn 


An=xn+0. 3xbiksin (d+3*8/4) 
ya=yn+0. 3%*b*oos (d+3*%/4) 
line xn,yn 


zarl 
if a>su then 2330 


x%(a)=xn 
y%(a)=yn 
b%(a)=0.3%xb 
d(a)=d-8/4 


xn=xn+0. 3kb*sin(d+11#8/12) 
yn=yn+0.3Xb*cos (d+11%X&%/12) 
line xn,yn 


asa+l 
if a>su then 2450 


x%la)=xn 
y%la)=yn 
b%(a)=0.3xb 
d(a)zd-1%#8/12 


xna=xn+0. 3*%b*sin{(d+13X/12) 
yn=yn+0,. 3kb*cos (d+13%%/12) 
line xn, yn 


2480 : 


aza+l 
if a>su then 2570 


x%la)zın 
y%(a)=yn 
b%(a)=0.3*b 
d{a)=d+%/12 





Listing 4/4.1.7.3-3 (Teil 2) 
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2580 : 

2570 xn=xn+0. 3*b*sin(d+5%%/4) 
2580 yn=yn+0. 3*b*cos (d+5K#/4) 
2590 line xn,yn 

2600 : 

2610 aza+l 

2620 if a>su then 2690 

26830 : 

2640 x%la)=xn 

2650 y%(a)=yn 

2860 b%la)=0.3I*b 

2670 d(a)=d+8/4 

2680 : 

2690 line xa,ya 

2700 : 

2710 return 

2720 : 














Listing 4/4.1.7.3-3 (Teil 3) 


Ähnlich wie beim Sierpinski-Dreieck wollen wir unsere Baum-Grundstruktur auf- 
grund eines einzigen Punktes, der Breite und des Drehwinkels berechnen. Die Win- 
kel müssen beim C64 im Bogenmaß angegeben werden. 


Zu Beginn geben wir wieder ein maximales Feldelement vor. XYo() und Y%( ) 
geben die Position des Basispunktes an, B%( ) die Breite und D( ) den Drehwinkel. 
Dann wird der erste Punkt festgelegt'und anschließend die Anzahl der Durchgänge 
(Tiefe) erfragt. In der Schleife ab Zeile 1180 rechnen wir aus, welches Element der 
vorgenannten Felder wir als letztes benutzen, um dann so oft die Prozedur zum 
Zeichnen aufzurufen. 


Prozedur: Baumiteil zeichnen 


. Der besseren Übersicht wegen weisen wir den Variablen X, Y, Bund D die aktuellen 
Werte des Teilstückes zu, zu dem die vier neuen Baumteile errechnet werden sollen. 
Wie Sie aus Bild 4/4.1.7.3-1 sehen, sind am oberen Teil der Struktur vier abge- 
schrägte Stücke, die beiden äußeren im 45°-Winkel und die beiden inneren im 15°- 
Winkel. Auf jeden dieser Teile wollen wir eine neue, identische Struktur aufsetzen. 
Die Ausgangsdaten dazu entnehmen wir jeweils dem aktuellen Feldelement. 


Zu Beginn merken wir uns die Ausgangskoordinaten, da die letzte Linie wieder 
dorthin gezogen wird. Anschließend wird der Endpunkt der ersten Linie berechnet 
und eine Linie zu diesem Punkt ausgegeben. Wie man an den Koordinaten ersehen 
kann, zeichnen wir ihn quer, d.h. die Wurzel befindet sich an der linken Bildschirm- 
seite. 


23 
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Dadurch, daß wir die Winkelfunktionen Sinus und Cosinus zu Hilfe nehmen, kön- 
nen wir uns die Speicherung der einzelnen Eckpunkte der Grundstruktur ersparen 
und uns auch innerhalb der Auswahl der Drehwinkel freier bewegen. Achten Sie be- 
sonders auf die verwendeten Parameter, z.B. den Wert „6,5“ als Multiplikator für 
die Breite. Diese Werte können Sie für eigenes Probieren später ändern. Der ge- 
nannte Wert sagt nichts anderes aus, als daß die Höhe der Struktur dem 6,5-fachen 
der Breite entspricht. Auch die Schrägen basieren in ihrer Breite auf der Ausgangs- 
basis, nämlich einem Drittel. 


Die Hilfsvariable A dient zum Weiterzählen der aktuell zu besetzenden Feld- 
elemente und außerdem als Abbruchkriterium. Bei unseren vier schrägen Abschnit- 
ten ist der Endpunkt der Linie jeweils die Basis für ein neues Element. Der Dreh- 
winkel der neuen Figur ergibt sich natürlich auch aufgrund des Drehwinkels der 
vorhandenen Figur und dem Winkel des neuen Abschnittes (2#Pi ist ein Vollkreis 
= 360°). Die — etwas umständliche — Vorgehensweise mit Berechnung der neuen 
Koordinaten in Variablen und nicht sofort beim Ziehen der Linien, brauchen wir, 
um die Daten für die Äste zu ermitteln. 


Und wieder wollen wir ein kleines Beispiel dafür liefern, daß kleine Änderungen 
eine ganz andere optische Auswirkung haben. Behalten Sie nur beim rechten der 
vier Äste den Faktor 0.3 bei und ändern sie die anderen Breiten nacheinander auf 
0.5, 0.55 und 0.4. Dies gilt natürlich nur für die Faktoren bei Übergabe für neue 
Astdaten und nicht beim Zeichnen. Das Ergebnis ist in den Bildern 4/4.1.7.3-4 und 
4/4.1.7.3-5 dargestellt und hat natürlich schon etwas mehr Ähnlichkeit mit einem 
Baum als unser Ausgangsbeispiel. 








Das Programmm befindet sich auf der Grundwerksdiskette 
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4/4.2 
Sound beim C 64 





Neben den Sprites und dem VIC bildet der SID (Sound-Interface-Device) eine 
weitere hervorragende Eigenschaft des Commodore 64. Bei den bisherigen 
Commodore-Geräten der Serien 2000/3000/4000/8000 konnte — wenn überhaupt 
— ein einfacher „Piepser‘‘ über ein Schieberegister gesteuert werden. Computer- 
Enthusiasten haben mit wenigen Registern auch hier wunderbare Geräuscheffekte 
erzielt bzw. sogar Musik erklingen lassen. 


Der Commodore 64 bringt mit seinen SID drei Stimmen (Ton-Generatoren) mit 
einer Menge Register, so daß man in dieser Hinsicht den Computer auch als Synthe- 
sizer bezeichnen kann. 


Im folgenden wollen wir auf die Eigenschaften des SID eingehen, seine Möglichkei- 
ten und die Art der Programmierung erläutern. Eine Aufstellung seiner Register 
finden Sie in Kapitel 3/1.2.4. 


Dazu wird zunächst ein Programm (SOUNDTEST) vorgestellt, mit dem Sie die 
Register beliebig einstellen können und dazu der entsprechende Ton erklingt. Dieses 
Programm können Sie sehr gut dazu nutzen, eigene Möglichkeiten zu entdecken 
bzw. gewünschte Klangmöglichkeiten auszutesten. 
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4/4.2.1 


Soundtest 





Das Programm SOUNDTEST soll Ihnen dabei helfen, die Klangmöglichkeiten 
Ihres Commodore 64 kennenzulernen. Sie können alle Register des SID einzeln be- 
einflussen, wobei Sie auch jeweils den Ton ein- oder ausschalten können. Zum bes- 
seren Verständnis der Begriffe wie ATTACK, DECAY, SUSTAIN und RELEASE 
sei auf die Grafik in Bild 4/4.2.1-1 verwiesen. 





Lautstärke SUSTAIN RELEASE 









ATTACK | DECAY 


gecetzı 









Keu-Bıt 
eKıt @ Mellenromas 






nieht gesetzt 


Mara 


wird durch 
Keuy-Bit beeinflußt 


| 
| 
| 
| 
| 
| 
| 


Sustein-zeit | 


Sustain-Levei] 





£ Attack-zaut = Decay-zeit > Reisase-Zeit 
> tiZeit) 








Bild 4/4.2.1-1 Darstellung der Begriffe ATTACK, DECAY, SUSTAIN und RELEASE 








1000 REM ------------------- + - 44 00... 
1005 REM --- SOUND-TEST S= 
1010 REM ------------------- --- - - -- - 444 
1015 : 
1020 REM ------------------ - 44. 4 
1025 REM --- VORSPANN UND BESETZEN DER VARIABLEN == 
1030 REM --------------- 44. 4... 444 
1035 : 

1040 BL$ = " 








L. 


Listing 4/4.2.1-1 (Teil 1) 
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CL$ 
R$ e 
D$ Bere Tetzlele 


DIM S$(8) 
DIM FL(3),FH(3),PL(3),PH(3),WE(3},AD(3),SR(3) 
DIM ST$(44), Ps(44),W(24),NS(10), NA(10) 


POKE 53280, 14 
POKE 53281, 7 


REM er BESCHREIBUNG DER WELLENFORMEN 


WL$(8)="RAU 


REGISTERVARIABLEN BESETZEN 


FL(2)=81+7 
FL(3)=SI+14 
FH(1)=SI+1 
FR(2)=SI+8 
FH(3)=81+15 
PL(1)=SI+2 
PL(2)=81+9 
PL(3)=SI+16 
PH(1)=81+3 
PH(2)=SI+10 
PR(3)=S1+17 
WE(1)=SI+4 
WE(2)=8I+11 
WE(3)=SI+18 
AD(1)=8145 
AD(2)=SI+12 
AD(3)=81+19 
SR(1)=SI+6 
SR(2)=51+13 
SR(3)=SI+20 
IL=5I+21 
IH=SI+22 
RF=51+23 
LA=31+24 


CURSORPOSITIONIERUNG 


PS(1)="W"+LEFTECRS,28)+" AENBNAN" 
P$(2)="W"+LEFTS(D$, 2)+LEFTS{RS, 1734" WM" 
P$(3)="BM"+LEFTS(DS, 2)+LEFTS(RS, 27)+" WM" 
P$(4)="" +LEFT$(D$, 2)+LEFTS(R$, 37)+" U 
PS(5)="B"+LEFTS(DS, 3)+LEFTS(RS, 10)+" 
P$(6)=" El" +LEFTS(DS, 3) +LEFTS{RS, 20)+" 
P$(7)="B"+LEFTS(DS, 3)+LEFT$CRS, 30) +" 





Listing 4/4.2.1-1 (Teil 2) 
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1368 
1370 
1375 
1380 
1385 
1390 
1395 
1400 
1405 
1410 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 
1460 
1465 
1470 
1475 
1480 
1485 
1490 
1495 
1500 
15085 
1510 
1515 
1520 
1525 
1530 
1535 
1540 
1545 
1550 
1555 
1560 
1565 
2000 
2010 
2020 


2030 : 


2040 
2050 
2060 
2070 
2080 
2090 


2110 
2120 


2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 





2100 : 


2130 


P$(8)=' 


P$(9)= 








'BM+LEFTS(D$, 4)+LEFT$(R$, 10)+" 


Bm +LEFT$(D$, 4) +LEFT$SRS, 20)+" 
BE" +LEFT$S(DS, 4) +LEFTS{R$, 30) +" 


=" Bel" +LEFT$(D$, 5) +LEFTSCRS, 15) +" 


'HU"+LEFT$(D$, 5) +LEFTS(R$, 2574" 
"BEI" +LEFT$(D$,5)+LEFT$(RS, 35) +" 
"BE" +LEFT$(D$, 6)+LEFTECRS, 15) +" 
"BEI" +LEFT$(D$, 6)+LEFTSRS, 25) +" 
"BEI" +LEFT$(D$,8)+LEFTS(RS, 35) +" 
"Bl" +LEFTSCDE, 7)+LEFTECHSE, 15) +" 
"BA +LEFTS(D$,7)+LEFTS(RS, 25) +" 
"Bi" +LEFT$(D$, 7)+LEFTECRS, 35) +" 
"BU"+LEFTS(D$,8)+LEFTS(R$, 15) +" 
BE" +LEFTS(D$, 8)+LEFTSCRE, 25)+" 
BL" +LEFTS(DS, 8) +LEFTE(RS, 35) +" 
Bl" +LEFTS(D$, 11)+LEFTE(RS, 35) +" 
WE" +LEFTS(D$, 12)+LEFTS(R$,0) 
$(30)+LEFT$(BL$, 30)+LEFT$(CL$, 30} 
Ba" +LEFT$(D$, 13) +LEFTS(R$, 35) +" 
BE +LEFTS(DS, 14)+LEFTS(RS, O0) 
$(32)+LEFT$(BL$, 30)+LEFT$(CL$, 30) 
BU" +LEFT$(D$, 15)+LEFT$S(RS,35)+" 
BR +LEFT$(DS, 16) +LEFTS{R$,0) 
$(34)+LEFT$(BL$, 30)+LEFT$(CL$, 30) 
Bü" +LEFT$(D$, 9)+LEFTS(R$, 15) +" 
Bl" +LEFTS(DS, 9) +LEFTS(RS, 25)+" 
"+LEFT$(D$, 9)+LEFTS(RS, 35) +" 
"+LEFT$(D8$, 10)+LEFTS{R$, 15) +" 
"+LEFT$(D$, 10)+LEFT$(RE, 25) +" 
"+LEFT$(D$, 10)+LEFTS(RS, 35) +" 
BO" +LEFTS(D$, 21)+LEFT$(R$, 35) +" 
WM +LEFTS(D$, 22)+LEFTS(RS, 20)+" 
BE" +LEFT$S(D$, 17 )+LEFTS(RS, 15) +" 
EB" +LEFT$(DS, 17)+LEFTECRS, 30) +" 
BU" +LEFT$(D$, 18) +LEFTSCRS, 14) +" 
Bl" +LEFT$(D$, 18)+LEFTS(RS, 35) +" 
(2) 
[>] 
1 
[1 


























"+LEFT$(D$, 19)+LEFTS(RS, 35) +" 
"+LEFT$(D$, 20)+LEFTS{R$, 4) +" 
"+LEFT$(D$, 20)+LEFTS{R$, 15) +" ° 
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P$(43) =" +LEFTS(D$, 22) +LEFT$(BL$, 13)+LEFTS(CL$, 13) 


GOSUB 3100 
GET As 





THEN 
“ THEN 
“ THEN 
“ THEN 
“ THEN 
TBEN 
" THEN 
" THEN 
" THEN 
“ THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


3100 
3640 
4040 
4340 
4740 
4340 
5140 
5340 
5840 
5540 


“ THEN GOSUB 7440 


HAUPTPROGRAMM 


INFORMATIONSTABLEAU ANZEIGEN 


OR A$="2" OR A$="3" THEN GOSUB 7240 








SPRUNGVERTEILER a== 





Listing 4/4.2.1-1 (Teil 3) 
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GOTO 2070 
REM 
3010 REM 
3020 REM 
3030 REM 
3040 REM 
3050 : 
3060 REM 
3070 REM 
3080 REM 
3090 : 
3100 PRINT'IG INFORMATION" 

3110 PRINT 

3120 PRINT "SIE HABEN FOLGENDE MOEGLICHKEITEN:E" 
3130 PRINT "I=DAMIT KOENNEN SIE ZWISCHEN DIESEM 
3140 PRINT " HILFSTABLEAU UND DER REGISTERANZEIGE" 
3150 PRINT " BIN UND HER SCHALTEN 

3160 PRINT "T=TONHOEHE" 

3170 PRINT PULSVERBAELTNIS" 

3180 PRINT "A=ATTACK-ZEIT" 















3190 PRINT "D=DECAY-ZEIT" 

3200 PRINT "S=SUSTAIN-LEVEL" 

3210 PRINT RELEASE-ZEIT" 

3220 PRINT "W=WELLENFORM" 

3230 PRINT " .STIMME,DIE SIE EINSTELLEN" 

3240 PRINT " . STIMME, DIE SIE EINSTELLEN" 

3250 PRINT " ‚STIMME, DIE SIE EINSTELLEN" 

3260 PRINT " ILTER, DABEI HABEN SIE FOLGENDE WAHL :EE" 


3270 PRINT " F=FILTERECKFREQUENZ" 

3280 PRINT " R=RESONANZ" 

3290 PRINT " A=FILTERART" 

3300 PRINT " Q=QUELLE, DIE UEBER DEN FILTER LAEUFT" 

3310 : 

3320 GET A$ 

3330 IF A$="" OR A$<>"1" THEN GOTO 3320 

3340 : 

3350 PRINT "I"; : 

3360 PRINT " 1 S I D TESTPROGRAMM me" 

3370 PRINT TAB(10); "STIMME1"; TAB(20); "STIMME2"; TAB(30) ; "STIMME3" 
3380 PRINT "TONHOEHE :" 

3390 PRINT "PARAMETER: " 

3400 PRINT "LOW BYTE :£(0)=";TAB(20);"(7)=";TAB(30); "(14)=" 
3410 PRINT "HIGH BYTE:GK1)=";TAB(20);"(8)=";TAB(30);"(14)=" 
3420 PRINT "YPULS LOW :g(2)=";TAB(20);"(9)=";TAB(30);"(15)= 
3430 PRINT "PULS HIGH:W(3)=";TAB(20);"(10)="; TAB(30);"(16) 
3440 PRINT "WATT. /DEC. :g(5)=";TAB(20);"(12)=";TAB(30);"(18)=" 

3450 PRINT "4SUS. /REL. :(6)=";TAB(20);"(13)=";TAB(30);"(19)=" 

3460 PRINT TAB(5); "SWELLENFORM STIMME ; TAB(30) ; "U 4) 8" 

3470 PRINT TAB(5) ; "WWELLENFORM STIMME ;TAB(30); "I 11) €" 

3480 PRINT TAB(5); "@WELLENFORM STIMME 3: "; TAB(30); "IK 18) €" 

3490 PRINT "WFILTERFREQUENZ= BZ"; TAB(24); "PAR. :" 

3500 PRINT "LOW BYTE:{J(21)=";TAB(19); "HIGH BYTE:"; TAB(30); "E(22)=" 
3510 PRINT TAB(2); "WRESONANZ" ; TAB( 18) ; "QUELLE" ; TAB(30) ; "W(23)=1£" 
3520 PRINT TAB(2); "WFILTERART" ;TAB(16) ; "LAUTSTAERKE" ; TAB(30) ; "(24)=" 
3530 : 

3540 FOR I=1 TO 44 

3550 : PRINT P$(I);ST$tI} 

3560 NEXT 

3570 : 




















RETURN 
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TONHOEHE EINSTELLEN 





3620 
3630 : 

3640 PRINT "Bf" +LEFT$(D$, 23)+LEFT$(BL$, 39)+"0" 

3650 INPUT "TONHOEHE IN H2(0-3846)";A 

3660 IF A<O OR A>3846 THEN GOTO 3640 

3670 : 

3680 NS(1)=4+5 

3690 ST$(4+5)=STR$(A) 

3700 P=INT{A/0. 0587) 

3710 : 

3720 NS(2)=7+8 

3730 ST$(7+5)=STR${P} 

3740 H=INT{P/255) 

3750 : 

3760 NS(3)=13+8 

3770 ST$(13+S)=STR$(H) 

3780 L=INT(P-H*255} 

3790 : 

3800 NS(4)=10+8 

3810 ST$(10+S)=STR$(L) 

3820 28=4 

3830 : 

3840 NA(1)=5%7-7 

3850 W(5%*7-7)=L 

3860 NA(2)=8%7-6 

3870 W(8*7-6)=H 

3880 ZA=2 

3890 : 

3900 GOSUB 7740 

3910 : 

3920 RETURN 

3930 : 

4000 REM --------- mm nn mm 
4010 PULS EINSTELLEN 
4020 
4030 : 
4040 +LEFT${D$, 23) +LEFT$(BL$, 39) +" 
4050 INPUT "PULSPARAMETER(0-4095) ";A 

4060 IF A<O OR A>4095 THEN GOTO 4040 

4070 : 

4080 H=INT(A/256) 

4090 L=INT(A-H*256) 

4100 : 

4110 NS(1)=16+8 

4120 ST$(16+8)=STR${L) 

4130 : 

4140 NS(2)=19+5 

4150 ST$(19+S)=STR$(H} 

4160 28=2 

4170 : 

4180 NA(1)=S%*7-5 

4190 W(S%*7-5)=L 

4200 : 

4210 NA(2)=25%*7-4 

4220 W(S%*7-4)=B 

4230 ZA=2 

4240 : 

4250 GOSUB 7740 

4260 : 













































RETURN 
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B 


4300 
4310 
4320 








WELLENFORM EINSTELLEN 





4330 : 


4340 
4350 
4360 
4370 


PRINT "BS4"+LEFT$(D$, 23) +LEFT$(BL$, 39)+"D" 
A=INT(A) 

INPUT "WELLENFORM(0-255)";A 

IF A>255 THEN GOTO 4340 


4380 : 


4390 
4400 
4410 
4420 
4430 


B=A 
NS(1)=27+2*8 


4440 : 


4450 


4460 : 
4470 : 


4480 


4490 : 


4500 
4510 
4520 


4530 : 


4540 
4550 
4560 


4570 : 


4580 
4590 
4800 
4610 
4700 
4710 
4720 


4730 : 


4740 
4750 
4760 


ar7o : 


4780 
4790 
4800 
4810 
4820 


ST$(27+2%*S}=STR$(A) 
GOSUB 7570 

Ss$="" 

FOR I-8 TO 1 STEP-1 


IF A(I)=1 THEN S$=S$+NL$(I) 
IF A(I)=0 THEN S$=S$+" 0 " 

NEXT 

NS(2)=28+2x8 


ST$(28+2%5)=5$ 
28=2 


NA(1)=7*8-3 
WLTKS-3)=A 
ZA=1 
GOSUB7740 


RETURN 


ATTACK-ZEIT EINSTELLEN 





PRINT "RSS" +LEFT$(D$, 23) +LEFT$(BL$, 39) +0" 
INPUT "ATTACK(0-15)";A 
IF A>15 OR A<O THEN GOTO 4740 » 


NS(1)=22+8 

ST$(2245) = STREC(W(7*S-2) AND 15) OR Ax16) 
215=1 

NA(1)=8%7-2 

WIS*7-2)=VAL(ST$(22+8)) 


4830 : 


4840 


GOSUB 7740 


4850 : 


4860 


4870 : 


4900 
4910 
4920 





DECAY-ZEIT EINSTELLEN 





4930 : 


4940 
4950 
4980 


PRINT"BSS"+LEFT$(D$, 23) +LEFTS(BL$, 39) +" 
INPUT "DECAY(0-15)";A 
IF A>15 OR A<O THEN GOTO 4740 


4970 : 


4980 
4990 
5000 
5010 
5020 


5030 : 


NS(1)=22+8 

ST$(22+5) = STRE((W(7*S-2) AND 15*16) OR A) 
25=1 

NA(1)=5%*7-2 

W(S*7-2)=VAL(ST$(22+5)) 





Listing 4/4.2.1-1 (Teil 6) 


I 

















Teil 4 Kapitel 4.2 Seite 8 





Spezielle Programmierthemen 





4.2 Sound beim C 64 


5040 
5050 
5080 
5070 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5500 
5510 
5520 


GOSUB 7749 


SUSTEIN-LEVEL EINSTELLEN 


PRINT? "BSR" +LEFT$(D$, 23) +LEFT$(BLS, 39)+"00" 
INPUT "SUSTAIN(O-15)";A 
IF A>15 OR A<O THEN GOTO 4740 


NS(1)=2548 

ST$(25+58) = STRE((W(7XS-1) AND 15) OR AX18) 
25=1 

NA(1)=S%*7-1 

W(S*7-1)=VAL(ST$(25+8)) 


GOSUB 7740 


RELEASE-ZEIT EINSTELLEN 


PRINT "BR" +LEFTS(D$, 23) +LEFT$(BLS, 39)+"0" 
INPUT "RELEASE(0-15)";A 
IF A>15 OR A<O THEN GOTO 4740 


NS(1)=25+8 

ST$(25+8) = STRE((H(7S-1) AND 15%16) OR A) 
25=1 

NA(1)=8%*7-1 

W(S*7-1)=VAL(STS(25+5)) 


GOSUB 7740 


LAUTSTAERKE EINSTELLEN 


5530 : 


5540 
5550 
5560 
5570 
5580 
5590 
5800 
58610 
5620 
5630 
5840 
5650 
5860 
5670 
5880 
5690 
5700 


+LEFT$(D$, 23)+LEFT$(BL$, 39) +02" 
INPUT "LAUTSTAERKE(0-15)";A 


NS(1)=42 

ST$(42) = STRE((W(24) AND 15*16) OR A) 
NS(2)=44 

STE(44)=STRECA) 

23=2 


NA(1)=(24) 
W(24)=VAL(ST$(42)) 


GOSUB 7740 


RETURN 


Listing 4/4.2.1-1 (Teil 7) 


Teil 4: Software-Erstellung 





Spezielle Programmierthemen 





Teil 4 Kapitel 4.2 Seite 9 











4.2 Sound beim C 64 


FILTER EINSTELLEN 


PRINT "WS" +LEFT$(D$, 23)+LEFT$(BL$, 39)+"" 
PRINT "F,R,A,Q?" 
GET A$ 


IF Ag="" THEN GOTO 

IF Ag="F" THEN GOSUB 
IF A$="R" THEN GOSUB 
IF A$="A" THEN GOSUB 
IF A$="Q" THEN GOSUB 


RETURN 
REM -—— FILTERECKFREQUENZ 


PRINT "BSS"+LEFTS(D$, 23)+LEFT$(BLS, 39)+ "0" 
INPUT "FILTERECKFREQUENZ (30-11902)";A 
IF A<=30 OR A>11902 THEN GOTO 5980 


NS(1)=35 
ST$(35)=STR${A) 
A=INT( (A-30)/5.8) 


NS(2)=36 
ST$(36)=STRE(A) 
L=A AND 7 


NS(3)=37 
STE(37)=STRE(L) 
H=(A AND 2040)/8 


NS(4)=38 
ST$(3B)SSTRECH) 
23=4 


NA(1)=21 
W(21)=L 
NA(2)=22 
W(22)=H 
ZA=2 


GOSUB 7740 


RESONANZ EINSTELLEN 


PRINT "BE" +LEFT$(D$, 23) +LEFTS(BLE$, 39)+ "0" 
INPUT "RESONANZ(0-15)";A 
IF A<O OR A>15 THEN GOTO 6300 


NS{1)=39 

ST$(39) = STR$((W(23) AND 15) OR Ax16) 
NS(2)=40 

ST$(40)=STR$(A) 

28=2 

NA(1)=23 

W(23)=VAL(ST$(39)) 

ZA=1 


GOSUB 7740 


Listing 4/4.2.1-1 (Teil 8) 
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p——— 


6450 RETURN 
6460 : 


8480 : 


6500 INPUT "FILTERART(0-15)";A 

6510 IF A<O OR A>15 THEN GOTO 5840 

6520 : 

8530 NS(1)=42 

6540 ST$(42) = STRS((W(24) AND 15) OR 18*A) 








6550 B=A*16 

6560 : 

6570 GOSUB 7570 

6580 : 

6590 IF A(8)=1 THEN 

6600 IF A(8)=0 THEN 

6610 IF A(7)=1 THEN 

6620 IF A(7)=0 THEN 

6630 IF A(6)=1 THEN 

6640 IF A(68)=0 THEN 

8650 IF A(5)=1 THEN ü 
6660 IF A(5)=0 THEN S$=5$+" O0 " 
8670 : 


6680 NS(2)=43 
6890 ST$(43)=S$ 
8700 28=2 

6710 NA(1)=24 
6720 W(24)=VAL(ST$(42)) 
6730 ZA=1 

8740 : 

8750 GOSUB7740 
8760 : 

6770 RETURN 
6780 : 


6790 REM --- QUELLE FESTLEGEN 


6800 


6810 PRINT "Bis" +LEFT$S(D$, 23) +LEFT$(BL$,39)+" 0" 


6820 INPUT "QUELLE(0-15)";A 
6830 IF A<O OR A>15 THEN GOTO 5840 
6840 NS(1)=39 

6850 ST$(39) = STREL(W(23) AND 16%7) OR A) 
6860 B=A 

6870 : 

6880 GOSUB 7570 

6890 : 

6900 IF A{4)=1 THEN S$="EXT " 
6910 IF A(4)=0 THEN S$=" O0 " 
6920 IF A(3)=1 THEN S$=S$+"053 " 
6930 IF A(3)=0 THEN S$=S$+" O0 " 
6940 IF A(2)=1 THEN S$=S$+"OS1 " 
6950 IF A(2)=0 THEN S$=5$+" O 
6960 IF A(1)=1 THEN S$=S$+"081 " 
6970 IF A(1)=0 THEN S8$=5$+" O0 
6980 : 

6990 NS(2)=41 

7000 ST$(41)=5$ 

7010 275=2 

7020 : 

7030 NA(1)=23 

7040 W(23)=VAL(ST$(39)) 

7050 ZA=1 

7060 : 

70709 GOSUB 7740 

7080 : 
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6470 REM --- FILTERART EINSTELLEN 
6490 PRINT "B"+LEFT$(D$, 23)+LEFT$(BL$,39)+"Q" 
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RETURN 






STIMME AUSWAEHLEN 







STE(VAL(AS)H1)="*" 
7280 S=VAL(A$) 

7290 : 

7300 FOR I=1 TO 3 

7310 : PRINT P$(1+I)ST$(1+I1) 
NEXT 








TON EIN-/ AUSSCHALTEN 




















7430 : 
IF T=0 THEN TT=1 : S$="TON EIN" 


7440 

7450 IF T=1 TBEN TT=0 : S$="TON AUS" 
7460 : 

7470 T=TT 


7480 NS(1)=1 

7490 ST${1)=5$ 

7500 28=1 

7510 ZA=0 

7520 : 

7530 GOSUB 7740 

7540 : 

7550 RETURN 

7560 : 

7570 FOR I=8 TO 1 STEP -1 
7580 : A(I)=INT(B/{(2r(1-1))) 
7590 : B=B-A(I)*2T(I-1) 

7600 NEXT 

7810 
7620 
7630 
7700 REM --------------- 77727-722224 2224207 444400 
7710 TOENE AKTUALISIEREN 
7720 REM ---—---------- 2224400 
7730 : 

7740 POKE WE(1),W(4) AND 254 

7750 POKE WE(2),W(11) AND 254 

7160 POKE WE(3),W(18) AND 254 

7770 2 

7780 FOR I=1 TO ZA 

7790 : POKE SI+NA(I),W{NA(I)) 

7800 NEXT 

7810 : 

7820 IF 2ZS=0 THEN GOTO 7880 

7830 : 

7840 FOR 1I=1 TO 25 

7850 : PRINT P$(NS{I))ST${NS(T)) 
7860 NEXT 

7870 : 

7880 POKE WE(1),#(4) AND (254 OR T) 
7890 POKE WE(2),W(11) AND (254 OR T) 
7900 POKE WE(3),W(18) AND (254 OR T) 
7910 : 















RETURN 
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Programmbeschreibung 


Wegen des großen Umfanges möchten wir Sie zu Beginn mit der groben Programm- 
struktur bekannt machen: 


Vorspann und Besetzen der Variablen 
Hauptprogramm 
Unterprogramme 

3060 Informationstableau 
3350 Bildschirmgrundmaske 
Tonhöhe einstellen 

Puls einstellen 

Wellenform einstellen 
Attack-Zeit einstellen 
Decay-Zeit einstellen 
Sustain-Level einstellen 
Release-Zeit einstellen 
Lautstärke einstellen 

Filter einstellen 

5960 Filtereckfrequenz 
6280 Resonanz einstellen 
6470 Filterart einstellen 
6790 Quelle feststellen 
Stimme auswählen 

Ton ein-/ausschalten 

Töne aktualisieren 





Wie man schon an der Programmübersicht sieht, ist für jede Registerart ein Unter- 
programm zuständig. Beginnen wir jedoch die Besprechung des gesamten Pro- 
gramms mit dem Vorspann. 


Vorspann 


Im Vorspann werden zunächst einige Hilfsvariablen besetzt, die der Cursorsteue- 
rung dienen. Anschließend werden die Felder zur Aufnahme der Registernummer 
und der Änderungsdaten definiert. In dem Feld WL$( ) werden die Texte zu den ver- 
schiedenen Wellenformen abgelegt, und in den Zeilen ab 1165 werden den entspre- 
chenden Feldern die Registeradressen zugeordnet. Die Zeilen ab 1330 dienen der 
Cursorpositionierung für die einzelnen Elemente der Bildschirmmaske. 


Hauptprogramm 


Das Hauptprogramm besteht nur aus dem Anzeigen des Informationstableaus und 
dem Sprunsgverteiler in die verschiedenen Unterprogramme aufgrund einer einbuch- 
stabigen Eingabe. Sie haben folgende Wahlmöglichkeiten: 
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Funktion 





Informationstableau 
Tonhöhe einstellen 
Pulsfrequenz einstellen 
Wellenform einstellen 
Attack-Zeit einstellen 
Decay-Zeit einstellen 
Sustain-Level einstellen 
Release-Zeit einstellen 
Filter auswählen 
Lautstärke einstellen 

1. Stimme auswählen 
2. Stimme auswählen 
3. Stimme auswählen 
Ton ein-/ausschalten (Leertaste) 


| 
T 
P 
w 
A 
D 
Ss 
R 
F 
L 
1 
2 
3 








Unterprogramm Informationstableau 


Um Ihnen die Arbeit am Rechner — ohne dauerndes Nachschauen in einer Bedie- 
nungsanleitung — zu erleichtern, wurde ein Informationstableau in das Programm 
eingebaut, das alle Eingaben anzeigt. 


Das Informationstableau verlassen Sie durch Drücken der Taste „I‘, wonach das 
Programm ab Zeile 3350 fortgeführt und die Grundbildschirmmaske ausgegeben 
wird. 


Allgemeines zu den Unterprogrammen zum Einstellen der Register 


Die Unterprogramme zum Einstellen der Register arbeiten alle nach dem gleichen 
Prinzip. Zunächst wird der Cursor entsprechend innerhalb der Bildschirmmaske 
positioniert und anschließend der neue Wert erfragt. Dieser wird noch auf Plausibi- 
lität geprüft. Anschließend werden alle nötigen Änderungen in den Feldern ST$( ) 

— für die Bildschirmausgabe — und W( ) — für die Register — durchgeführt, Die 
Anzahl der Änderungen im Feld ST$( ) wird in der Variablen ZS (Zahl der String- 
änderungen) festgehalten und die Anzahl der Änderungen für die Register in der 
Variablen ZA (Zahl der Aenderungen). 


Dann werden noch zwei Felder NS() und NA( ) mit den Nummern der Zeichen- 
reihen und Änderungen besetzt. NS( ) und NA( ) bestimmen also, welche Zeichen- 
reihen und Werte geändert wurden. 


Zum Abschluß wird das Unterprogramm ab Zeile 7700 aufgerufen, mit dem die 
Töne aktualisiert werden. 


Im folgenden wollen wir nur noch kurz auf die Besonderheiten der einzelnen Unter- 
programme eingehen. 
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Unterprogramm Tonhöhe einstellen 


Beim Einstellen der Tonhöhe muß berücksichtigt werden, daß die Frequenz in zwei 
verschiedenen Bytes abgespeichert wird (L/Lower Byte; H/Higher Byte). Außer- 
dem muß noch die eingegebene Frequenz mit einem Faktor multipliziert werden, 
der den Computer veranlaßt, die entsprechende Tonhöhe auszugeben. 


Unterprogramm Puls einstellen 


Das Einstellen des Pulses geschieht genauso in zwei Byte wie das Einstellen der 
Frequenz (L/H). 


Unterprogramm Wellenform einstellen 


Beim Einstellen der Wellenform wird noch am Bildschirm in Worten angezeigt, 
welche Wellenform eingestellt wurde (vergleiche ab Zeile 1110). 


Unterprogramm Attack-Zeit einstellen 


Die Attack-Zeit wird in den jeweiligen Registern in den höherwertigen vier Bit ein- 
gestellt, so daß die Eingabe mit 16 multipliziert werden muß. 


Unterprogramm Decay-Zeit einstellen 


Die Decay-Zeit wird in den gleichen Registern wie die Attack-Zeit eingestellt, jedoch 
sind hier die niederwertigen vier Bit zuständig. Sowohl bei dem Attack-Zeit einstel- 
len als auch beim Decay-Zeit einstellen müssen die jeweils anderen Werte natürlich 
unverändert bleiben. 


Unterprogramm Sustain-Level einstellen 


Ebenso wie bei Attack /Decay ist die Aufteilung bei dem Sustain-Level der Release- 
Zeit. In den entsprechenden Registern sind die vier höherwertigen Bit für den 
Sustain-Level zuständig. Die niederwertigen vier Bit dürfen natürlich nicht geändert 
werden. 


Unterprogramm Release-Zeit einstellen 


Wie schon erwähnt geschieht das Einstellen der Release-Zeit in den gleichen Regi- 
stern, wo auch der Sustain-Level eingestellt wird. Angesprochen werden die nieder- 
wertigen vier Bit. 


35 
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Unterprogramm Lautstärke einstellen 


Die Lautstärke wird insgesamt für alle drei Stimmen eingestellt und hat ein ganzes 
Register zur Verfügung, obwohl die Lautstärke nur Werte zwischen 0 und 15 an- 
nehmen kann. 


Unterprogramm Filter einstellen 


Bei der Einstellung der Filter (wo auch ein Register für alle drei Stimmen zuständig 
ist) wird zunächst in einem kurzen Menü gefragt, welche Parameter für die Filter- 
einstellung geändert werden sollen. Wie in der Programmübersicht aufgezeigt, kön- 
nen geändert werden: 


— Filtereckfrequenz 
— Resonanz 

— Filterart 

— Quelle 


Unterprogramm Stimme auswählen 


Beim Auswählen der Stimme wird die Variable S als Merker für die anderen Pro- 
grammteile besetzt. Außerdem wird noch ein „x“ bei der jeweiligen angewählten 
Stimme am Bildschirm angezeigt. 


Unterprogramm Ton ein-/ausschalten 


Das Ein- und Ausschalten des Tones geschieht über das sogenannte Key-Bit. An 
dieser Stelle sei angemerkt, daß Sie bei eingeschalteter Release-Zeit auch den Ton 
öfters ein-/ausschalten sollten, da Sie dann erst den richtigen Klang für die Release- 
Zeit erhalten. Wie aus dem Bild in diesem Kapitel ersichtlich, beginnt die Release- 
Zeit erst, nachdem das Key-Bit ausgeschaltet wurde. 


Unterprogramm Töne aktualisieren 


Im letzten Unterprogramm — das von allen Änderungsunterprogrammen aufge- 
rufen wird — werden alle eingegebenen Änderungen durchgeführt. Hierzu werden 
— wie vorher beschrieben — die Variablen ZA und ZS herangezogen, die ja jeweils 
die Zahl der Änderungen angeben. 





Das Programmm befindet sich auf der Grundwerksdiskette 
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Variablenübersicht 


Variable 


gültiger Bereich 
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Bedeutung 





A 
AS 
B 


BL$ 
cL$ 
CD$ 
H 

| 

IH 


LA 





0.49 
bel. Zeichen 
0...255 


Leerzeichen 
Cursor links 
Cursor nach unten 
0...255 

0...44 

54294 

54293 

0...255 
54296 

0... 65535 
Cursor rechts 
54295 

42,83 

bel. Zeichen 


54272 
0,1 
0,1 


0,1,2 


Bereich 


Variable zur Eingabe einer Ziffer 
Variable zur Eingabe eines Zeichens 
Übergabeparameter für Bestimmung der 
Bitkombination eines Byte 

Kette aus Leerzeichen 
Steuerzeichenreihe 

Steuerzeichenreihe 

Wert für Frequenz High Byte 
Schleifenvariable 

Register Filterfrequenz High Byte 
Register Filterfrequenz Low Byte 

Wert für Frequenz Low Byte 

Register Lautstärke 

Parameter für Frequenz 

Steuerzeichen 

Register Resonanz/Filter ein 

Stimme 

Variable zum Zusammensetzen von Ausgabe- 
zeichenreihen 

Register Basisadresse 

Merker für Ton ein/Ton aus 

Hilfsvariable für Umschalten Ton ein/aus, 
aus/ein _ 

Zahl der Änderungen der Registerwerte 





Bedeutung 





ODOODPDOD PAD DWD 





15 


wu 


0,1 


0...24 
1...44 
Steuerzeichen 


BO 


alle Zeichen 
0...255 


PP.» 


alle Zeichen 





54272... 54296 
54272...54296 
54272... 54296 


54272... 54296 
54272...54296 
54272...54296 


54272... 54296 





Enthält die Bitkombination von B (A(1)=1: 

1. Bit gesetzt) 

Register Attack/Decay 

Register Frequenz High Byte 

Register Frequenz Low Byte 

Nummer der Änderung, die gemacht werden soll 
Nummer der Strings, die ausgegeben werden sollen 
Gibt die Position der Ausgabestrings an 

Register Puls High Byte 

Register Puls Low Byte 

Register Sustain/Release 

String für Bildschirmausgabe 

Werte aller Musik-Register 

Register Wellenform 

Abkürzungen der Bedeutung der einzelnen Bits 
der Wellenform 








Teil 4 Kapitel 4.3.1 Seite 1 











Spezielle Programmierthemen 





Teil 4: Software-Erstellung 


4/4.3 
Grafik beim C 128 PC 





4/4.3.1 


Hochauflösende Grafik 








Wie die meisten anderen Home-Computer auch, verfügt der C 128 über hervorra- 
gende Grafikeigenschaften, insbesondere ist hierbei die große Zahl von Grafikbefeh- 
len zu nennen, die kaum noch Wünsche offen lassen und um einiges mehr bieten, 
als bei den meisten Home-Computern anzutreffen ist. Mit seinem direkten Vorgän- 
ger — dem C 64 — hat der C 128 zwar den grundlegenden Grafikablauf noch ge- 
meinsam, jedoch gibt es einige Grafikbefehle, die beim C 64 noch nicht einmal mit 
umständlicher POKEerei zu realisieren waren, sondern sogar Machinensprachepro- 
gramme erfordert hätten. 


Das Kapitel über hochauflösende Grafik werden wir wegen der Vielzahl der Befehle 
untergliedern, wobei wir jeweils anhand von Beispielen die Wirkungsweise der Be- 
fehle besprechen wollen. Zunächst wollen wir uns natürlich den allgemeinen Grafik- 
befehlen zuwenden und die Befehle am Beispiel eines Zeichenprogrammes mit dem 
Joystick besprechen. 


Den Figuren zum Zeichnen einer Linie, eines Rechteckes und eines Kreises ist ein 
eigenes Kapitel gewidmet, wobei wir hier einige kleine künstlerische Grafiken erstel- 
len wollen. Die allgemeinen Grafikbefehle werden wir mit der Vorstellung eines klei- 
nen Programmes beenden, das uns die aktuellen Daten des Grafikcursors, der Farbe 
und einiges andere in gesammelter Form ausgibt. 
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414.3.1.1 


Allgemeine Grafikbefehle 





Wie bereits erwähnt, wollen wir die allgemeinen Befehle zum Thema hochauf- 
lösende Grafik anhand eines Zeichenprogrammes darstellen, wobei der Zeichen- 
stift durch den Joystick geführt werden soll. Dazu ist es sinnvoll, das Kapitel über 
Joystick (2/3.5) vorher unter die Lupe zu nehmen. 


Wir haben dieses Beispiel gewählt, da wir damit in der Lage sind, fast alle Befehle 
im Zusammenhang zu besprechen, und Ihnen außerdem sofort ein fertiges Pro- 
gramm zur Verfügung steht, mit dem Sie Grafiken nach eigenen Wünschen entwer- 
fen können. Selbstverständlich läßt sich das Programm noch Ihren Bedürfnissen 
anpassen und auch ergänzen. 


Im Rahmen der nachfolgenden Teilkapitel werden wir sukzessive das Zeichenpro- 
gramm entwickeln. Abschließend wird nochmal das gesamte Listing ausgedruckt, 
sowie eine Variablenübersicht aufgeführt, um Ihnen Änderungen und Ergänzungen 
anhand des bestehenden Listings zu vereinfachen. Für „Nur-Anwender“ ist auch 
eine Bedienungsanleitung beigefügt. 


4/4.3.1.1.41 


GRAPHIC — auf geht’s 





Zu Beginn eines jeden Grafik-Programmes muß die GRAPHIC-Anweisung gegeben 
werden, mit der Sie auswählen können, welchen Grafik-Modus Sie einstellen. 


Zunächst etwas Grundsätzliches zum GRAPHIC-Befehl. Durch die verschiedenen 
Modi (0-5) haben Sie sowohl eine Wahl zu treffen zwischen hochauflösender Grafik 
und Mehrfarben-Grafik als auch zwischen normalen Textbildschirmen, sowie eine 
Mischung von beiden. Werden Text und Grafik gemischt, so befinden sich die Text- 
zeilen immer am unteren Bildschirmrand. Besonders diese beiden Modi bieten einen 
entscheidenden Vorteil, da selten reine Grafikanwendungen vorkommen, meist 
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jedoch auch noch eine Art Menüsteuerung — wie in unserem Beispiel — vorhanden 
ist. 


Für unser Beispielprogramm verwenden wir Mehrfarben-Grafik mit zusätzlichem 
Text (Modus: 4), wobei unser Textteil in der 20. Zeile beginnen soll. Außerdem soll 
natürlich der Grafik-Bildschirm zu Beginn von eventuell vorhandenen Zeichnungen 
befreit werden, womit unsere Eingabe wie folgt aussehen muß: 


1000 REM mnnenenmenneernnsnnneeenn re. 
1010 REM-- ZEICHENPROGRAMM -— 
1020 REM mm 


1030 : 
1040 GRAPHIC 4, 1, 20 
1050 : 








Der Befehl GRAPHIC CLR dient allerdings nicht — wie vielleicht vermutet — zum 
Löschen des Grafikanteiles auf dem Bildschirm, sondern gibt lediglich den reser- 
vierten Speicherbereich am Beginn des BASIC-Programmspeichers frei. Wie man 
doch eine Grafik löschen kann, zeigen wir Ihnen im Kapitel Tips und Tricks. 


Der Modus 5 beim GRAPHIC-Befehl funktioniert natürlich nicht bei einem 
40-Zeichen-Bildschirm. Wenn Sie GRAPHIC 5 eingeben, so wechselt der Cursor 
vom 40-Zeichen-Bildschirm auf den 80-Zeichen-Bildschirm, hat also die gleiche 
Auswirkung wie ESC X. Die Wakupe von ESC X in umgekehrter Richtung erhal- 
ten Sie durch GRAPHIC 0. 


Sofern Sie Ihre Funktionstasten nicht anders belegt haben, steht Ihnen der 
GRAPHIC-Befehl nach Drücken der Funktionstaste Fl zur Verfügung. 


4/4.3.1.1.2 


COLOR — wir färben ein 





Der nächste Schritt in einem Grafikprogramm sollte sich mit dem Festlegen der be- 
nötigten Farben beschäftigen. Diese Wahl ist jedoch nicht endgültig, da später im 
Programm beliebig umgefärbt werden kann. 
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Dabei sollte man jedoch die Vorgehensweise bei der Grafikdarstellung berücksichti- 
gen, wo im Farbspeicher durch Bits jeweils entweder die Hintergrund- oder Vorder- 
grundfarbe bei der hochauflösenden Grafik ausgewählt wird, bzw. beim 
Mehrfarben-Modus zusätzlich die beiden Zusatzfarben 1 oder 2. Im Bildschirmspei- 
cher befindet sich also nicht eine der Farbnummern 1 bis 16, sondern nur eine der 
Nummern 0 oder 1 (Bit im Farb-RAM) bei hochauflösender Grafik bzw. 0 bis 3 
(dargestellt in zwei Bits) beim Mehrfarben-Modus. 


Für unser Beispielprogramm wählen wir für den Hintergrund die Farbe gelb (8), für 
den Vordergrund die Farbe blau (7) und für die beiden Farben im Mehrfarben- 
Modus dunkelgrün (6) und hellbraun (9). 


Die Randfarbe passen wir dem Hintergrund an, so daß zu Beginn der gesamte Bild- 
schirm in gelb erscheint. 


Da das Farb-RAM des Grafik-Modus und das Farb-RAM des Text-Modus im Rech- 
ner unterschiedlich gehandhabt werden, ist es auch möglich, dem Text eine grund- 
sätzlich andere Farbe zu geben, als bei den Grafikfarben vorgewählt wurde. Wir 
wählen aus Kontrastgründen für unsere Textfarbe also schwarz (1). 


Unser Programm würde mit obigen Vorgaben also wie folgt weitergeführt: 


1060 COLOR 0,8 
1070 COLOR 1,7 
1080 COLOR 2,6 
1090 COLOR 3,9 


1100 COLOR 4,8 
1110 COLOR 5,1 
1120 : 








Umsteiger vom C 64 sollten auf jeden Fall beachten, daß alle Farbcodes jeweils eine 
Ziffer höher ausfallen, schwarz also nicht mehr durch die Ziffer 0 dargestellt wird, 
sondern durch die Ziffer 1. Die gesamte Palette reicht also nicht mehr von 0 bis 15, 
sondern von 1 bis 16. 
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4/4.3.1.1.3 


DRAW — Rahmen zeichnen 





Obwohl wir im Kapitel über grafische Figuren den DRAW-Befehl nochmals bespre- 
chen werden, wollen wir ihn an dieser Stelle dazu heranziehen, einen Rahmen um 
den Grafikbereich des Bildschirms zu ziehen. Dabei nutzen wir eine bemerkenswerte 
Eigenschaft des DRAW-Befehls aus, da wir einen Linienzug aus mehreren einzelnen 
Linien mit einem einzigen Befehl realisieren können. 


Ein Befehl zum Zeichnen eines einzigen Punktes liegt im Basic 7.0 des C 128 nicht 
vor. Auch für die Darstellung eines Punktes ist also der DRAW-Befehl heranzu- 
ziehen. Wenn man sich dazu die Bemerkungen im Handbuch etwas genauer durch- 
liest, wird man feststellen, daß zum Zeichnen eines Punktes an der Position des 
Grafikcursors lediglich DRAW (ohne jegliche Parameter) eingegeben werden muß. 
Dies gilt natürlich nur, sofern die Ausgabe in der aktuellen Farbquelle gewünscht 
ist. Laut Bemerkung im Handbuch wird ein Punkt gezeichnet, wenn Start- und 
Endkoordinaten gleich sind, aber die Startkoordinate braucht nicht angegeben zu 
werden, wenn die Position des Grafik-Cursors gemeint ist. 


Welche Punkte am Bildschirm müssen nun für unseren Rahmen verbunden werden? 
Beginnen wollen wir an der oberen linken Bildschirmecke, die — entgegen dem kar- 
thesischen Koordinatensystem — die Position 0,0 aufweist. Da wir im Mehrfarben- 
Modus arbeiten, hat die äußerste X-Koordinate die Position 159. Aufgrund unserer 
Textzeilen am unteren Rand des Bildschirmes müssen wir von der maximal üblichen 
Y-Ausdehnung (199) noch 5x8=40 mögliche Koordinaten abziehen, wodurch wir 
auch als größtmögliche Y-Ausdehnung im Grafikbereich 159 erhalten. Die Fort- 
setzung in unserem Programm sieht also wie folgt aus: 


[| 1130 DRAW 1,0,0 TO 0,159 TO 159, 159 TO 159,0 TO 0,0 
1140 : 


Auch den Textbereich wollen wir einrahmen, wofür wir allerdings nicht die hochauf- 
lösende Grafik heranziehen können. Hier verwenden wir die in Kapitel 4/4.1.1 be- 
schriebenen Grafikzeichen wie folgt: 














PRINT" Ne 
PRINT"! ©; 
PRINT"! "; 
PRINT" "; 
PRINT"L___. u 








mammsn 
Du mmmna 
SUayNaın 
SEBSUD 
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Damit haben wir die Grundlagen für weitere Ausgaben am Bildschirm durchgeführt 
und können uns nun dem Menü zuwenden, wie es folgende Zeilen zeigen: 





2908 REM --------- 
2g1@ REM --- MEHUE UND ZEIGER — -—- 
REM mm 


PFITHT" SERTMENDENTEDNETEIETSDSUESUSTEDEENEIN" ; 
Sg PRIMT"WE-ZEICHNEH M-MERKEN 

a FRINTWE-ENH F-RAUSFUEL. 
FRINT"IE-ELIFIEREN F-FARBE 








Da wir möglichst viel Platz auf dem Bildschirm für den Grafikbereich vorsehen 
wollten, haben wir das Menü kurz gehalten. Sie können das Menü jedoch unter Än- 
derung von Zeile 1040 auch auf einen größeren Bildschirmbereich ausdehnen und 
zusätzliche Hinweise anfügen. 


Weil die HOME-Position des Textcursors sich jedoch immer noch in der linken 
oberen Bildschirmecke befindet, und nicht — wie vielleicht vermutet — in der lin- 
ken oberen Ecke des Textfensters, muß zunächst der Cursor auf den Anfang des 
Textbereiches positioniert werden, was Zeile 2040 erledigt. Damit wir den Rahmen 
aus den Zeilen 1150 bis 1190 nicht zerstören, wird das erste Zeichen einer Textzeile 
jeweils mit einem „Cursor nach rechts“ übersprungen. Eine andere Form haben wir 
zum Ende einer Menüzeile gewählt, wo wir das Grafikzeichen erneut ausgegeben 
haben. 


Die einzelnen Punkte des Menüs werden wir im Folgenden jeweils bei der Tastatur- 
abfrage und den entsprechenden Unterprogrammen besprechen. 


Bevor wir nun im Programmlisting weitergehen, sollten Sie zunächst einen kleinen 
Probelauf durchführen und anschließend das Programm sichern. 


Ehe wir die Joystickabfrage, die Tastaturabfrage und die einzelnen Unterprogramme 
besprechen, müssen wir zunächst eine kleine Exkursion zu den Sprites machen. 


4/4.3.1.1.4 


Sprites und Grafik 





Warum hier Sprites verwenden? Sprites kann man als freibewegbare Grafiksymbole 
umschreiben, die entweder vor oder hinter einer grafischen Darstellung am Bild- 
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schirm positioniert werden können. Diese Eigenschaft wollen wir uns für die Dar- 
stellung eines Cursors und die Merkposition zunutze machen. 


Da wir für ein Zeichenprogramm mit dem Joystick aus Gründen der Bedienungs- 
freundlichkeit jeweils angeben müssen, wo sich der Grafikcursor aktuell befindet, 
sollte ein Cursorzeichen an der entsprechenden Position am Bildschirm positioniert 
werden. Bei Verwendung einer Ansammlung von Bildschirmpunkten ist dies recht 
umständlich, da sie zunächst an eine Position gebracht werden müssen, um bei Ver- 
schieben des Grafikcursors zunächst an der alten Position gelöscht und an der 
neuen Position gezeichnet werden müssen. Sicherlich wäre dies mit den Befehlen 
SSHAPE und GSHAPE relativ einfach möglich (im Gegensatz zur ausschließlichen 
Verwendung des DRAW-Befehls), jedoch bieten die Sprites hier einige Vorteile, ins- 
besondere die Priorität gegenüber der Zeichnung. 


Zunächst sollten Sie mittels des SPRDEF-Befehls zwei Sprites definieren, die in 
etwa die Gestalt haben, wie sie in den Bildern 4/4.3.1-1 (Cursor) und 4/5.3.1-2 
(Merker) abgebildet sind. 




























































































































































































Bild 4/3.1-1 Zeiger auf aktuelle Cursorposition 
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Bild 4/4.3.1-2 Zeiger für gemerkte Position 


Die obere linke Ecke des Pfeiles aus Bild 4/4.3.1-1 (hiervon die obere Hälfte) stellt 
die Position des Grafikcursors dar, wobei durch die untere Hälfte in der Pfeilspitze 
noch eine Unterscheidung zum Pfeil gegeben ist. 


Das „X“ in Bild 4/4.3.1-2 ist absolut symmetrisch (auch innerhalb des Sprites) an- 
geordnet und bedeckt bei dem von uns gewählten Mehrfarben-Modus im Schnitt- 
punkt genau die zu markierende Stelle, 


Beide Sprites sollten Sie mit dem BSAVE-Kommando, das im Handbuch angegeben 
ist, auf Diskette ablegen, und zwar unter dem Namen „ZEICHSPRITE“ 


Nachdem die Sprites definiert sind, sollten Sie das zuvor begonnene Programm wie- 
der von Diskette laden. Da nicht immer davon ausgegangen werden kann, daß sich 
die Sprites im Hauptspeicher befinden (wie momentan direkt nach der Erstellung), 
setzen wir unser Programm fort, indem wir zunächst die Daten der Sprites von der 
Floppy in den Hauptspeicher übernehmen. 5 


2090 REM BLOAD,,ZEICHSPRITE“ 
2100 : 
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Als nächstes muß das Sprite natürlich am Bildschirm sichtbar gemacht und an der 
richtigen Position dargestellt werden. Dazu dienen uns die Befehle SPRITE und 
MOVSPR. 


Beim SPRITE-Befehl wählen wir neben der Nummer und dem Einschaltzustand die 
Farbe schwarz, korrespondierend zu unserer Textfarbe. Dargestellt werden soll das 
Sprite vor vorhandenen Zeichnungen, was durch die Priorität 0 ausgedrückt wird. 
Eine Ausdehnung in Y- bzw. X-Richtung ist nicht vorgesehen, kann von Ihnen aber 
leicht nachträglich eingebaut werden. 


Obwohl wir für unsere Grafik den Mehrfarben-Modus gewählt haben, können wir 
das Sprite im normalen hochauflösenden Modus darstellen. Bei der Positionierung 
gibt es allerdings einige Schwierigkeiten, da die Koordinaten von Sprites anderen 
Gesetzen unterliegen, wie die Grafik-Koordinaten. Zu Beginn wollen wir den 
Grafik-Cursor in der Mitte des Grafikteils am Bildschirm positionieren. Die Grafik- 
Koordinaten sind also 80, 60, wie wir später noch sehen werden. 


Wie Sie vielleicht schon beim Ausprobieren von Sprites festgestellt haben, können 
die Sprites hinter den Bildschirmrändern verschwinden. Um dies zu realisieren muß 
also gegenüber der Grafik-X-Koordinate 0 eine Koordinate 0 für Sprites existieren, 
die hiervon um -24 abweicht. Außerdem ist zu berücksichtigen, daß wir unsere 
Grafik-X-Koordinaten aufgrund des Mehrfarben-Modus errechnen, Sprite-Koordi- 
naten diese Rechenweise jedoch nicht bekannt ist. Zur Positionierung eines Sprites 
in X-Richtung müssen wir also die aktuelle Grafix-X-Koordinate mit zwei multipli- 
zieren und 24 addieren, was bei der anfänglichen Positionierung den Wert von 184 
ergibt. 


Die Multiplikation mit zwei fällt natürlich bei der Y-Koordinate weg. Hier ist jedoch 
ein Unterschied zwischen der Sprite-0-Koordinate und Grafik-0-Koordinate von 50 
festzustellen, wie Sie durch Probieren leicht nachvollziehen können. Die Y-Koordi- 
nate unseres Sprite-Cursors muß also den Wert 110 erhalten, wodurch folgende 
Zeilen als Fortsetzung unseres Programmes eingegeben werden müssen: 





2110 SPRITE 1,1, 1,0,0,0,0 
2120 SPRITE MOVSPR 1,84, 110 
2130 : 
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4/4.3.1.1.5 


LOCATE — Grafik-Cursor positionieren 





Zum LOCATE-Befehl gibt es nicht viel zu sagen. Sie sollten jedoch immer beden- 
ken, daß sich der Grafik-Cursor nach einer Ausgabe immer an der zuletzt gezeich- 
neten Position befindet. Leider ist der Befehl für den Text-Cursor nicht anwendbar, 
was einige umständliche Transaktionen (siehe Zeile 2040) ersparen würde. 


Wie bereits erwähnt, soll der Grafik-Cursor zu Beginn die Position 80, 60 ein- 
nehmen, was wir durch den Befehl 


2140 LOCATE 80, 60 
2150 : 


erreichen. Außerdem sind noch einige andere Variablen vorzubesetzen, u.a. die bei- 
den Variablen, in denen wir uns die aktuelle Position des Grafik-Cursors merken, 
um diese nicht jeweils mit dem Befehl RDOT — feststellen zu müssen. 


Ebenso sollten wir in einer Variablen F die aktuelle Zeichenfarbe (Farbquelle) able- 
gen und in der Variablen W (WIDTH) die Strichstärke für unseren Pinsel. Beide Va- 
riablen sollen mit „1“ voreingestellt sein, wonach die letzten Zeilen im Vorspann wie 
folgt einzugeben sind: j 








2160 AX=80 
2170 AY=60 
2180 : 

2190 F=1 
2200 : 

2210 W=1 
2220 : 
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4/4.3.1.1.6 


Joystickabfrage 





Bevor wir nun weitere grafische Befehle kennenlernen, wollenwir zuerst die Joy- 
stickabfrage programmäßig behandeln. Hierzu sei die Lektüre des Kapitels über 
Joystick empfohlen. Auf jeden Fall wählen wir für unsere zeichnerischen Tätigkei- 
ten den Joystick-Port 2 (= Control-Port), um Kollisionen mit der Tastatur zu ver- 
hindern. Würden sie den Control-Port 1 wählen, so würde bei jedem Druck auf die 
Feuertaste das Zeichen „M“ in den Tastaturpuffer wandern und weiter unten bei der 
Tastaturabfrage entsprechend erkannt werden. Dort würde dann ein Unterpro- 
gramm aufgerufen, das gar nicht gewünscht wurde. 


Bei der Joystickabfrage wollen wir den aktuell abgefragten Wert in der Variablen 
JO ablegen, um bei Änderungen des Wertes in der weiteren Programmbehandlung 
keine Komplikationen entstehen zu lassen. Generell wird vor der Abfrage der Rich- 
tung geprüft, ob der Feuerknopf gedrückt wurde. In diesem Falle wird eine Variable 
TA mit „I“ besetzt, um diesen Umstand später nutzen zu können. In diesem Fall 
wird außerdem vom eingelesenen Joystickwert der Wert für den Feuerknopf (128) 
subtrahiert, um für die Richtungen nur noch zwischen acht Möglichkeiten wählen 
zu können. Die gesamte Joystickabfrage auf einen Blick: 











BABA REM mem men 

=219 REM -—- JOTSTICKABFRAGE 

Saza REM mm en 

230: 

a4 IN=INYi25 

EL 

28628 IF 102127 THEH TA=1 : Jü=J0-128 

3970: 

zaad IF THEN : GOTD 3179 

=e3a IF 1 THEH : ArsAtr-i : GOTO 2170 
Siac IF} THEH : DOTO 3178 

118 IF THEH : ArsAr+t : GOTO Z17E 
2128 IF. THEH : GOTO 3178 

z130 IF. THEH : ArsAr+l : GOTO 2170 
2148 IF} THEH : GOTO 2178 

3159 IF} THEH : ArsAy-1 : GOTO 2172 
sie : 

2170 MOVSPR 1. AS#2+24, A430 

a ! 


Ir TA THEH TA=8 : IF ZUs="Z" THEH DRAUF AK, At 





2 Ir 
IF 
Ki es 
gi IF iss THEH Ar'=133 
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ER DO OADOEDDORSBABENEEET TE TE TEE SEIT TI ET T TIER 
S27E FRIHT"4 III nee 

3250 FRELHT "* SÜMLTERESTTKTRTOFUSTESUER UT RN 
3298 FRINT'R IUNaRRIaT: "A 

Saga: 








Nach den schon beschriebenen Zeilen 3040 und 3060 werden die acht möglichen 
Richtungen für den Joystick abgeprüft und entsprechend unsere Merker für die 
Grafikposition geändert (AX, AY). Wurde eine Richtung erkannt, so wird direkt zur 
weiteren Behandlung übergegangen, was einigen Rechenzeitvorteil bringt. 


In Zeile 3170 wird Sprite 1 neu positioniert, wobei die im vorletzten Kapitel be- 
schriebene Rechenweise benutzt wird. 


Dann wird abgefragt, ob bei Übernahme des Joystickwerts der Feuerknopf gedrückt 
war. In diesem Falle wird der Merker TA zurückgesetzt und — wenn der Zustand 
„ZEICHNEN“ vorliegt — ein Punkt am Bildschirm dargestellt. 


Um Fehler und einen daraus resultierenden Abbruch des Programmes zu verhin- 
dern, wird in den Zeilen 3210 bis 3240 die aktuelle Position des Grafik-Cursors über- 
prüft, um ihn gegebenenfalls in seine Schranken (Grafik-Bildschirm) zurückzuwei- 
sen. 


Als Hilfestellung für den Anwender dienen die Zeilen 3260 bis 3290, die in der rech- 
ten oberen Ecke des Textfensters die aktuelle Position in Ziffern ausgeben. Dies ist 
besonders für das exakte Zeichnen wichtig. 


4/4.3.1.1.7 


Tastaturabfrage 





Nachdem aufgrund des eingelesenen Joystickwertes entsprechend verfahren wurde, 
muß als nächstes die Tastatur auf eine Eingabe abgefragt werden, was folgendes 
Programmstück realisiert: 
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TATURFEFFAGE u 







4934 
ade GET A 
: THEH Beat : A$="": ELSE BOTO Sog 


THEH 
THEH 
THEN 5 
THEH 
THEN 6 
THEH 
THEHN 





: BOT 





LI" THEN 6 : GOTN 
" THEN G © GOTO 
“ THEH 


A Etat 


SOT0 EEE) 

















Der GETKEY-Befehl kann an dieser Stelle nicht zum Einsatz gebracht werden, da 
er wartet, bis eine Taste gedrückt wurde. Bei normalen Bewegungen des Grafik- 
Cursors mit Hilfe des Joysticks würde dies zu unnötigen Komplikationen führen, 
da jeweils für einen Schritt Bewegung auch eine Taste gedrückt werden muß. Wir 
beschreiten also den alten Weg mit dem GET-Befehl und fragen anschließend nach, 
ob ein Tastendruck vorlag. Wenn nicht, kann sofort zur erneuten Abfrage des Joy- 
stickwertes übergegangen werden, was wiederum Rechenzeitvorteile bringt. 


Wurde eine Taste gedrückt, so wird deren Wert (Zeichen) der Variablen B$ über- 
geben, aufgrund deren Inhalt ab Zeile 4070 verzweigt wird. 


Der Programmverteiler entspricht weitgehend den mnemotechnischen Bezeichnun- 
gen. Die dazu benötigten Unterprogramme sind in 1000-Schritten ab Zeile 10000 
untergebracht, so daß Sie ab Zeile 19000 weitere Unterprogramme hinzufügen kön- 
nen. 


Nachdem ein Unterprogramm abgehandelt wurde, wird wieder in den Menübereich 
‚gesprungen. Dies haben wir realisiert, damit eventuelle Programmänderungen ein- 
facher durchgeführt werden können. 


Etwas Rechenzeit würde gespart, wenn die einzelnen Programmabschnitte ab Zeile 
10000 selbst jeweils zu Zeile 3040 übergehen würden. 


Das vorliegende Menü läßt folgende Tätigkeiten zu: 





Zeichnen . 
Ausfüllen (PAINT) 

Farbe ändern 

Stiftfarbe ändern 

Pinselstärke ändern (alternierend/WIDTH) 


SEOTnTUN 
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: Aktuelle Position merken 

: Rechteck zeichnen (BOX) 

: Grafik als Daten übernehmen (SSHAPE) 
: Grafikbereich kopieren (GSHAPE) 

: Grafik löschen (durch Neustart) 


FTACZU=SZ 





Wurde keine der vorgenannten Tasten gedrückt, so geht das Programm automatisch 
zum Einlesen des aktuellen Joystickwertes über. 


4/4.3.1.1.8 


Zeichnen 





Das erste, was man mit dem vorliegenden Programm machen möchte, ist freihändi- 
ges Zeichnen mit dem Joystick. Dies wird durch folgendes Unterprogramm ermög- 
licht: 





10000 REM mm nn 

12216 FR ZEICHNEN -- 

19928 REM mm nn 

1a0a0 : 

1ER FRLHT " SARLRTBTNDEUNUSOSDELEDSTETETETSTELETSTERTSTET BL 
1gasa PRINT 
10069 ZUg=" 
10079 : 
1E020 RETURN 











Zunächst wird dem Anwender in der unteren rechten Bildschirmecke deutlich ge- 
macht, daß der Zeichen-Modus eingeschaltet ist. Außerdem wird in der Variablen 
ZU$ noch ein Merker gesetzt, der in Zeile 3190 die Ausgabe eines Punktes veranlaßt. 


Sicherlich hätte man das vorliegende Unterprogramm auslassen können, und sofort 
durch Drücken des Feuerknopfes ein Zeichnen realisieren können. Um Ihnen jedoch 
später die Möglichkeit zu geben, dem Joystick (inklusive Feuerknopf) auch andere 
Tätigkeiten zuzuordnen, haben wir die vorliegende Form gewählt. Bei einer Ände- 
rung der Tätigkeit des Joystickes ist die Zustandsvariable ZU$ auf jeden Fall umzu- 
setzen. 


Denkbar für eine solche Anwendung wäre das Abtasten eines Teiles des Grafikbildes 
mit dem Joystick und Übernahme in eine Zeichenreihe unter Zuhilfenahme des 
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des SSHAPE-Befehles. Aber auch andere Anwendungen sind denkbar, und Ihrer 
Phantasie sind dabei keine Grenzen gesetzt. 


4/4.3.1.1.9 


PAINT — mit Farbe füllen 





Der nächste Menüpunkt (P) gibt Ihnen die Möglichkeit, umrandete Gebiete mit 
einer Farbe auszufüllen. Um Komplikationen zu vermeiden, sollten Sie — soweit. 
möglich — das Gebiet mit einer einzigen Farbe zeichnen. Besteht die Umrahmung 
zum Teil aus der beim PAINT-Befehl gewählten Farbe und zum Teil aus einer ande- 
ren — vom Hintergrund verschiedenen — Farbe, so liegt keine gültige Eingrenzung 
für den PAINT-Befehl vor. Die einzige Ausnahme ist gegeben, wenn Sie die Um- 
gebung aus zwei Farben zeichnen, die beide nicht die Hintergrundfarbe oder die 
beim PAINT-Befehl gewählte Farbe darstellen. In diesem Fall ist der Modus 1 zu 
wählen. 


Nach dem Zeichnen eines Gebietes sollten Sie auf jeden Fall den Grafik-Cursor in- 
nerhalb des Gebietes bewegen, da sonst der PAINT-Befehl wirkungslos bleibt. 


Um den Menübereich in unserem Programm nicht überzustrapazieren, haben wir 
eine Vorgehensweise gewählt, bei der Sie die Eingaben blind auf der Tastatur ein- 
geben müssen. Aber hier zuerst das Listing: 





e 
11009 REM m 
11810 REM -—- LP: AUSFLUELLEN - 
11022 REM m 
11aag : 

11949 GETKEY C# 

11050 CSYALccH) 

11068 IF THEN 11048 





1129 GETKEr IE 

a DEYALCDE) 

111a0 IF IC1 THEN 11aSa 
11128 PRINT D.AKAT.TI 


11149 RETURH 








Da hier unbedingt eine Eingabe vorliegen soll, kann man im Gegensatz zur Tastatur- 
abfrage den GETKEY-Befehl verwenden. Zunächst wird in die Variable C$ ein 
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Wert eingelesen, anschließend in eine Zahl umgewandelt (Zeile 11050) und in Zeile 
11060 einer Plausibilitätsprüfung unterzogen, damit nach Verlassen dieser Zeile kein 


ungültiger Wert vorliegt. 


Gleiches geschieht ab Zeile 11080 mit der Variablen D$/D, die nur die Werte 0 
oder l annehmen darf. Der Tastendruck auf irgendeine Buchstabentaste führt übri- 


gens zum Ergebnis 0, was korrekt ist. 


In Zeile 11120 wird schließlich der PAINT-Befehl ausgeführt, wobei die zuerst ge- 
wählte Zahl die Farbquelle darstellt und die letzte Zahl den Modus. Obwohl die 
Position des Grafik-Cursors beim PAINT-Befehl voreingestellt ist, habenwir hier aus 
Dokumentationsgründen noch die entsprechenden Werte AX und AY angegeben. 


4/4.3.1.1.10 


Farbe ändern 





Sollten einem Anwender die voreingestellten Farben (siche Zeilen 1060 bis 1110) 
nicht genehm sein, so hat er jederzeit während des Programmablaufes, und damit 
auch während des Zeichnens, die Möglichkeit, die voreingestellten Farben zu än- 
dern. Nach dem Drücken eines „F‘“ im Hauptmenü erscheint unten rechts am Bild- 


schirm die Abfrage „NR. ‚FARBE‘ die entsprechend zu beantworten ist. 













REM mm nn 


3 FR EI BE EU OBSDDSDEBOGE PT TET ET TTTTTTTTTT IT T 7 Tor 


IHFL HR. F 


an 


IANRaRRR":HR.FA 
2 HEN 12068 
>16 THEN 1zasal 





21939 COLOR MR: FA 
2119: 
12128 BETURHS 











— 





In den Zeilen 12070 und 12080 wird für die beiden Variablen noch eine Plausibili- 
tätsprüfung durchgeführt, die unbedingt notwendig ist, da bei einer falschen Ein- 
gabe das Programm abbricht, und die Grafik somit verloren ist. Ist alles korrekt, 
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so wird mit dem COLOR-Befehl in Zeile 12100 die Farbänderung durchgeführt. An- 
ders als im 64er Modus werden jedoch nicht alle Vorkommen der gewählten Farbe 
umgefärbt (bei Farbänderung von blau auf schwarz wird also nicht alles bisher blau 
dargestellte schwarz). Vielmehr können Sie bei geschicktem Umgang alle 16 Farben 
auf dem Bildschirm gleichzeitig darstellen. Dabei müssen Sie jedoch aufpassen, daß 
innerhalb einer 8x8 Punktmatrix in hochauflösender Grafik und einer 4x8 Punkt- 
matrix im Mehrfarbenmodus nur vier verschiedene Farben möglich sind (einschließ- 
lich Hintergrundfarbe). Warum dies so ist, kann an dieser Stelle wegen der kompli- 
zierten Grafik-Struktur nicht näher beleuchtet werden. 


4/4.3.1.1.11 


Stiftfarbe ändern 





Da beim Zeichnen jeweils nur mit einer Farbe gearbeitet werden kann, gibt Ihnen 
folgendes Unterprogramm die Möglichkeit, zwischen den vier verschiedenen Farb- 
stiften auszuwählen: 








4 RETUFH 











Auch hier wird die Stiftnummer (0-3) wieder mit dem GETKEY-Befehl von der 
Tastatur eingelesen und auf seine Richtigkeit überprüft. Da wir zur Umwandlung 
von F$ sogleich die Variable F heranziehen, braucht keine weitere Aktivität durchge- 
führt zu werden. 


Durch dieses Unterprogramm ist es auch möglich, bereits Gezeichnetes zu löschen, 
indem die Stiftnummer ,0* vorgegeben wird. Dabei ist es sogar möglich — wie wir 
später noch sehen werden — die Hälfte eines breiten Pinselstriches zu löschen, wäh- 
rend der Rest stehen bleibt. 
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4/4.3.1.1.12 


WIDTH — Pinselstärke ändern 





Zum Ändern der Pinselstärke reicht ein kleines Programm, da es hier nur zwei Mög- 
lichkeiten gibt. Statt des Anwählens über einen Tastendruck oder die Erfassung mit- 
tels INPUT-Befehl, wollen wir die Pinselstärke bei Drücken der Taste „W“ alternie- 
ren lassen. Es soll also jeweils ein Umschalten auf die andere Pinselstärke erfolgen. 








IF W=1 THEH H=2 
IF M=2 THEN Wei 


: 5OTO 1472 


3 HIDTH U 


9 RETURH 





4/4.3.1.1.13 


Position merken 





Bei manchen Ausgaben ist es wichtig, daß man sich zuvor eine zweite Position ge- 
merkt hat. Dies werden wir im weiteren beim Zeichnen eines Rechteckes und beim 
Übernehmen eines Grafikteilstückes noch verwenden. Generell kann man nach der 
Verwendung des gemerkten Punktes zwar diesen löschen, in einigen Fällen ist es je- 
doch auch sinnvoll, sich die gemerkte Position auch weiterhin in einer Variablen 
vorrätig zu halten. Wer will, kann sich auch ein kleines Unterprogramm schreiben, 
das nach Aufruf im Hauptmenü die gemerkte Position löscht und Sprite 2, das wir 
im Folgenden verwenden wollen, ausschaltet. 
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sacd REI 







ERFR) FRE THAT" RBTMTNSDRTESTEEITGDSIGEET ESTER LATE RD DD Rn DU DI BE 
3 PEIHT"GEMERKT: &= ei: 5 








150998 
15820: 

15189 SFRITE &, 1.1 

15119 MOYSFR 2. HA#Z+12, Air+4S 
zıza: 

5128 RETURN 


Fur 











In manchen Fällen ist es sinnvoll, neben einer Markierung im Grafik-Bildschirm 
auch die Position in absoluten Zahlen anzugeben. Dies wird durch die beiden Zeilen 
15040 und 15050 bewerkstelligt, wobei in der ersten der beiden Zeilen der Cursor 
entsprechend positioniert wird und in der nächsten Zeile die Ausgaben der Daten 
erfolgt. Da die Ausgabe in der unteren Bildschirmzeile erfolgt, wurde darauf geach- 
tet, daß der Rest des Randes erhalten bleibt. Wenn Sie vom Unterprogramm ‚Mer- 
ken‘ zum Unterprogramm ‚ZEICHNEN‘ übergehen, so wird dies in Zeile 10050 
ebenfalls berücksichtigt. 


Als mnemotechnische Bezeichnung für die gemerkten X- und X-Koordinate bieten 
sich die Variablen MX und MY geradezu an. An dieser Stelle wird auch unser zwei- 
tes definiertes Sprite verwendet, indem es in Zeile 15100 zunächst eingeschaltet und 
in Zeile 15110 an der entsprechenden Position im Grafik-Bildschirm seinen Platz er- 
hält. Durch die Zeichnung innerhalb des Sprites ergeben sich gegenüber den vorher 
genannten Umrechnungsarten Spritepositionen/Grafikposition einige Änderungen, 
da sich nicht die linke obere Ecke des Sprites sondern der Mittelpunkt unseres ‚X‘ 
über der gemerkten Position befinden soll. Die Zeichnung unsers Sprites wurde so 
gewählt, daß sich der Mittelpunkt des Sprites über der zu merkenden Position befin- 
det, Sie also auch Sprites nach Ihren Wünschen (eingekreistes X, nur Kreis) definie- 
ren können, um die gleiche Wirkung zu erzielen. 
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4/4.3.1.1.14 


BOX — Rechtecke und Blöcke 





Neben dem DRAW-Befehl wollen wir an dieser Stelle auch noch einen weiteren Be- 
fehl aus dem Bereich der grafischen Figuren vorstellen. Die Möglichkeiten der Kreis- 
darstellung überlassen wir einer Ergänzung des Programms durch Sie. 





EBEN REM mm;  —  — — —  — — — — — — ee nn 
16501M REM --- 12] E 
160820 REM men m 

16030: 

15949 PREIMT "" SAMLMTBEKTMIBSESTRERENTRIMTOTADITETETTRTRTLECCBE Dep ie De DD DR TE A De AN" 
16058: 

165968 IHPLT"MINKEL. MAL HAESERRE" Lil. 11 

16070 IF Mia AMD MOL THEH 160659 

12930: 
1663 
1510 : 
12115 BETUFH 





BoR OF MESNTRRSATSHIM 











Da der Winkel, um den eventuell das Rechteck oder der Block gedreht werden soll, 
nicht mit einem einzigen Tastendruck zu erfassen ist, benutzen wir wieder die 
unterste Zeile unseres Menübereiches zur Erfassung des Winkels und der Farbe, mit 
der das Rechteck eventuell ausgefüllt werden soll. Zeile 16070 beinhaltet eine Plausi- 
bilitätsprüfung, die wiederum einen Programmabbruch verhindert und in Zeile 
16090 wird das Rechteck (ausgefüllt oder nicht) gezeichnet. Dabei benutzen wir die 
im vorigen Unterprogramm gemerkten Koordinaten MX und MY. Achten Sie dar- 
auf, daß Sie vor dem Zeichnen eines Rechteckes/BLockes an der oberen linken Ecke 
die Koordinaten durch „Merken“ übernehmen, da sonst — z.B. nach Programm- 
start — die Koordinaten 0,0 angenommen werden, was die obere linke Ecke des 
Grafik-Bildschirmes bedeutet. 


Hier nun ein kleines Beispiel im Vorgriff auf unser Kapitel über grafische Figuren. 
Bewegen Sie den Grafik-Cursor zunächst an die Position 50,40, was Ihnen durch die 
Positionsangabe am rechten oberen Rand des Textbildschirmes erleichtert wird. 
Drücken Sie dann die Taste „M‘, es erscheint Sprite 2 an dieser gemerkten Position. 
Führen Sie nun den Cursor zu der Position 100,80 und drücken Sie „B“ und „0,0“ 
Es erscheint nun ein Rechteck. 


Wenn Sie jetzt nochmals „B“ drücken und eingeben „20“, so erscheint das Rechteck 
leicht gedreht. Dabei braucht der Wert für den Malstift nicht nochmals angegeben 
zu werden, da er sich nicht ändert. Wenn Sie im Folgenden das Rechteck durch fort- 
laufendes Drücken von „B“ und einem Winkel mit folgendem Komma eingeben, 
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wobei der Winkel immer um 20 Grad ansteigen sollte, so erhalten Sie ein Muster, 
das einem gehäkelten Deckchen nicht unähnlich ist. 


4/4.3.1.1.15 


SSHAPE — Grafikdaten an Zeichenreihe übergeben 





Auch die Befehlskombination SSHAPE/GSHAPE wollen wir innerhalb dieses Pro- 
grammes vorstellen. Durch diese beiden Befehle erhält man vielfältige Möglichkei- 
ten, vorhandene Grafiken zu ändern, Teilgrafiken zu speichern und in einem ande- 
ren Programm zu laden, aber auch die Möglichkeit des invertierens eines 
Teilbereiches — an der gleichen Stelle — ist durch diese beiden Befehle möglich. 


Zunächst muß jedoch ein Teilbereich der Grafik in eine Zeichenkette verwandelt 
werden, was mit dem SSHAPE-Befehl geschieht. Da Zeichenreihen jedoch nicht 
mehr als 255 Zeichen enthalten können, ist die Übernahme eines Grafikbereiches 
sehr stark eingeschränkt. Die beiden Formeln im Handbuch sagen letztendlich nur 
aus, daß für die Übernahme einer Zeichnung aus dem normalen hochauflösenden 
Grafik-Modus acht Bildschirmpunkte in einem Zeichen (Byte) untergebracht wer- 
den können. Zusätzlich wird noch einige Randinformation übernommen, wie die 
Summanden .99 und 4 zeigen. 


Beim Mehrfarbenmodus können wegen der Farbdarstellung in je zwei Bit nur die 

Hälfte der ansprechbaren Bildpunkte übernommen werden. In beiden Fällen wird 

also ein gleich großer Ausschnitt aus dem Grafik-Bildschirm in eine Zeichenreihe 
übertragen. 
















"al8 REM --- UF: LIEBERHEHME u 


REM nn nn 


141244 BRIRCRESCAT-MF41044 > 255 THEM RETURH 





Unsere Formel in Zeile 17040 ist nichts anderes, als die Überprüfung — im Bezug 
auf den Mehrfarbenmodus —, ob die zu übernehmende Zeichenreihe nicht länger 
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als 255 wird, was einen Programmabbruch verursachen würde. Liegt ein solcher Fall 
vor, wird das Unterprogramm verlassen, ohne daß eine Transaktion durchgeführt 
wird. 


Im anderen Fall werden die Daten in die Zeichenreihe SS$ übernommen, wobei die 
im Handbuch angegebene Positionsangabe x2, y2 durch die Position des Grafik- 
Cursors ersetzt wird und der Anfang der Zeichenreihe durch die gemerkte Position 
MX, MY festgelegt ist. 


4/4.3.1.1.16 


GSHAPE — Zeichenreihe in Grafik einfügen 





Der umgekehrte Fall zum Befehl SSHAPE ist mit dem GSHAPE-Befehl gegeben. 
Im folgenden Programm benutzen wird die schon einige Male aufgeführte Vorge- 
hensweise, indem wir den im GSHAPF-Befehl zu verwendenden Modus wieder 
über A$/A einlegen und auf Plausibilität prüfen. 











15900 REM men 
15919 REM UF: KOPIERE nn 
18929 BEN men ne 
12938: 

13049 GETKET AF 

12059 A=YALLAF 

1 a IFA GOTO 13048 

12070: 

15250 BEHAPE 528. A, AT. A 

12929: 

18122 RETUÜFRH 








In Zeile 18080 wird der Befehl ausgeführt, wobei wir aus Dokumentationsgründen 
die Position des Grafik-Cursors in den Variablen AX und AY innerhalb des Befehles 
mitangeben. 


Bei der Bestimmung des Modus sollten Sie die Angaben im Handbuch sorgfältig 
durchlesen. Besonders der Modus 4 (Invertieren) ist sehr interessant, wie Sie nach 
einigem Ausprobieren sicherlich selbst feststellen werden. Das Invertieren geschieht 
allerdings nicht aufgrund der Farbzuordnung, sondern im Bitmuster. Wenn Sie ein 
übernommenes Bild durch die Eingaben „K“ und „O“ an eine andere Position ge- 
bracht haben, so können Sie mit „K“ und „I“ dieses Bild invertieren, wobei die — 
wenn die Farben nicht geändert wurden — blaue Zeichnung auf gelbem Grund 
durch eine grüne Zeichnung auf braunem Grund ersetzt wird. 
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Durch „K“ und „O“ erhalten Sie den Ursprungszustand zurück. Wenn Sie nach 
dem invertierten Bild (durch K/1) anschließend sofort „K“ und „2“ eingeben, so 
erhalten Sie lediglich ein braunes Rechteck (ausgefüllt). Aus dieser Darstellung er- 
halten Sie durch „K“ und „4“ wieder das originäre Bild und mit „K“ und „5“ wird 
der entsprechende Bereich am Bildschirm gelöscht. 


Durch die Möglichkeit des Invertierens können Sie mit Hilfe der durch SSHAPE 
gespeicherten Zeichenreihen auch Sprites konstruieren, die Sie durch fortlaufendes 
Invertieren auch auf dem Bildschirm bewegen können. Dies ist z.B. dann ein Vorteil, 
wenn die Größe der Sprites für die gewünschte Darstellung nicht ausreicht, oder 
mehr als acht Sprites für eine Anwendung nötig sind. Es empfiehlt sich, mit den 
Befehlen SSHAPE und GSHAPE auch außerhalb dieses Programmes ausgiebig zu 
experimentieren. 


4/4.3.1.1.17 


Bedienungsanleitung 





Für diejenigen, die nur das Gesamtlisting übernehmen wollen, ohne die einzelnen 
Unterkapitel 4/4.3.1.1.1 bis 4/4.3.1.1.16 durchzuarbeiten, aber auch für die anderen 
zum Nachschlagen hier noch einmal die Bedienungsanleitung. 


Zeichnen 


Nachdem Sie das Programm gestartet haben, erscheint in der Mitte des Bildschirms 

. der Zeiger auf den Grafik-Cursor und im linken oberen Teil des Textbildschirmes 
die dazugehörigen Koordinaten in inverser Schrift. Wenn Sie nun die Taste „Z“ 
drücken und den Joystick mit gedrücktem Feuerknopf bewegen, so wird die Bahn 
des Grafik-Cursors nachgezeichnet. Sobald Sie den Feuerknopf loslassen, können 
Sie den Grafik-Cursor bewegen, ohne daß seine Bewegung nachvollzogen wird. 


Pinselstärke ändern 


Durch Drücken auf die Taste „W‘“ können Sie die Pinselstärke alternierend zwischen 
einfacher und doppelter Stärke wählen. Haben Sie vor dem Druck auf „W“ einfache 
Pinselstärke, so zeichnen Sie anschließend mit der doppelten Pinselstärke und um- 
gekehrt. 
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Stiftfarbe ändern 


Die Stiftfarbe können Sie durch Drücken der Taste „S“ ändern, wobei Sie anschlie- 
Bend eine der Zifferntasten 0-3 drücken müssen. Andere Eingaben werden ignoriert. 
Daß eine weitere Einfabe vom Rechner erwartet wird, können sie immer daran er- 
kennen, daß die Positionsangabe nicht flackert. Das Flackern rührt von der Aus- 
gabe des aktuellen Standes her, die unterbrochen wird, wenn der Rechner eine Ein- 
gabe erwartet. 


Auch die Stiftfarbe 0 ist zugelassen, womit Sie in Ihrer Zeichnung auch „Radieren“ 
können. Jede Buchstabentaste bzw. jedes Sonderzeichen wird als Stiftfarbe O inter- 
pretiert. 


Farbe ändern 


Nach Druck auf die Taste „F“ erscheint unten rechts am Bildschirmrand die. Abfra- 
ge „NR., FARBE?“ Geben Sie bitte zunächst eine der Farbstiftnummern zwischen 
O0 bis 3 ein und anschließend eine der Farbennummern 1 bis 56. Ungültige Eingaben 
werden ignoriert und führen zur erneuten Abfrage. 


Gebiet ausmalen 


Sofern Sie ein Gebiet gezeichnet haben und dies ausmalen wollen, so drücken Sie 
die Taste „P“ Der Rechner erwartet danach die Nummer des Stiftes, mit dem der 
Bereich ausgefüllt werden soll. Ist auch diese Nummer eingegeben, so muß eine der 
Ziffern „O0“ oder „I“ eingegeben werden, was dem Modus im PAINT-Befehl ent- 
spricht. Um Komplikationen zu vermeiden, sollten die Gebiete mit der gleichen 
Farbe umrandet sein. 


Rechtecke und Blöcke zeichnen 


Wenn Sie ein Rechteck bzw. einen Block ausgeben wollen, so bewegen Sie den 
Grafik-Cursor auf die linke obere Ecke der gewünschten Ausgabe und drücken Sie 
anschließend die Taste „M“. Es erscheint ein „X“, mit dem die gemerkte Stelle ge- 
kennzeichnet wird. Außerdem wird am unteren Bildschirmrand die Position in 
Koordinaten ausgegeben. 


Bewegen Sie dann den Cursor auf die gewünschte untere rechte Ecke und drücken 
Sie die Taste „B“. Danach erfragt der Rechner den Drehwinkel und eine Angabe, 
ob das Rechteck ausgefüllt werden soll (1) oder nicht (0). 


Die gemerkte Position bleibt auch nach Ausführung des BOX-Befehls erhalten, so 
daß Sie damit weiter arbeiten können. 
Bildschirmbereiche kopieren 


Unter Verwendung der Befehle SSHAPE und GSHAPE wird ein Kopieren von Bild- 
schirmbereichen ermöglicht, indem eine Zeichenreihe zu Hilfe genommen wird. 
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Beachten Sie bitte die zulässige Größe der Zeichenreihe von 255 Zeichen, was im 
hochauflösenden Grafik-Modus ca. 2000 Bildschirmpunkten entspricht und im 
Mehrfarbenmodus ca. 1000 Bildschirmpunkten. 


Ebenso wie beim Zeichnen von Rechtecken/Blöcken ist auch hier wiederum zu- 
nächst die linke obere Ecke des zu übernehmenden Bildschirmbereiches durch 
Druck auf die Taste „M‘ zu merken. Anschließend muß der Cursor auf die ge- 
wünschte rechte untere Ecke gebracht werden und es ist die Taste „U“ zu drücken. 


Dann können Sie den Grafik-Cursor in die linke obere Ecke der gewünschten Aus- 
gabe bewegen, um die Taste „K“ fürs Kopieren zu drücken. Beim Überschreiben des 
Bildschirmbereiches wird der GSHAPF-Befehl benutzt, so daß nach dem „K“ noch 
eine der Tasten O bis 4 zu drücken ist, um dem Rechner auch den gewünschten 
Modus mitzuteilen. 


Soweit die vorgegebenen Features des Programmes. Ergänzungen durch Sie sind 
durch den strukturierten Programmaufbau leicht möglich. 


4/4.3.1.1.18 


Gesamtlisting 








109 REM mm nn 






a4 SRAFHIE 4,1,20 


1262 COLOR EB: 
ara COLOR i 
1g2@ COLOR z 
1238 CHOR 3 
182 COLOR 
1112 COLOR : 





REmnNm 








12@ DRAU 1.8.3 TO 0.159 TO 159,159 TO 159.0 TO 9,0 











Listing 4/4.3.1.1 Zeichnen (1) 
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FRIHT" 1"; 
FEIHT" i"; 
FRINT" I"; 
FREIHT" 1"; 











FEIHT"L. Er un Sl LoF 


Sp 
WINODWIUGC SCHEN 


SIGIONSDISSNS 


MEHLE LINIE 





zuan PRIHT' STRLTSUNTETRDSTRIETRTEDKTNTRDEERIKTRIRERN" ; 

zug PRIMT"MEZ EICHNEH M-MERKEH !"i 
zus P-ALSFUEL. M-FIHSEL I"; 
Zaren GPIEFREH F-FÄREE U-LIEBERNEHMEN 1": 











za3d FEM  BLOAD"ZEICHSFREITE" 


2119 SPFEITE 1:1 
Z12E MIWSPR 1,1 








zz! 
z210 kel 
Erle 
2290 FEM 
sald FEM 
3020 REM 
Eee 
sage IN=l0ri2) 


















za: 
2aed IF In>127 THEN TA=l : J0=10-128 
Er 
2920 IF IG=l THEN Ar=Ar-1 GOTO 2178 
Zaza THEH Ri AYsAr-i Zr 
a THEH GOTa 31; 
THEH ArzFritl =178 
THEH Kı 317 
THER ArsAr+tl : GOTO 3170 
THEH TE Perle 
THEH Arsft-l : GOTO 3178 








MOYSPR 1A „Ar+3a 


IF TA THEN TAsg : IF ZUg="Z" THEN DRAUF X. 








FRINT" BEREOORSESERBRSGBRREILTTTTEPTTTSTTTTTTTTTTTTTTTTTTT TH TUE 







FEINT"A BI: " ;FiA 
3 FRIHT" SIKIMTADRIn ET" ; ; 
2238 FRINT"A 1m mar: "At 
Fage: 











Listing 4/4.3.1.1 Zeichnen (2) 
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4nacı 
4210 
4920 
4934 
4ada 
4059 
4069 
4074 
ana 
aaa 
4108 
41a 
412q 
4138 
4140 
4158 
4lea 
4170 
4130 
4130 
4200 
4218 
10002 
12918 
18028 
10028 
12042 
1aasıa 
10068 
10078 
10005 
10030 
11009 
11018 
11020 
11038 
11049 
11058 
119659 
11ara 
11aso 
11030 
11100 
11110 
11129 
11138 
11148 
11150 
12000 
12010 
12 





12a7E 





L 








Br=f} 





THEH Af="": ELSE GOTO Faq 











THEH GOSUB 1maag © GOTO 3 
THEH GOSUB 1109: GOTD 
THEH 2 : GOTO 

THEH 
THEH 
THEN ACSLE 
THEN GOSUE 
THEH GÜSUR 
THEH GEISUB 







12990: 


IF B£="L" THEM RUM 


Eger" 


GOTN Zas4e 





REM 
REM ZEICHNEN 
REM 





FRUIHNT © SARIMTSIKEETRUSDSDNTSUNTSTNENTNTETSTRTSIKERTETEIG 
FRIHT" m — ZEICHNER 


Zugang" 


BRRENBRRERRL"; 








RETURH 





GETKET C# 
LEYALCCHS 
IF THEH 11948 





GETEET D# 
D=YALCDEN 
IF Di THEN 11aac 


PAINT CAS, Ar. 


FETURH 





a ua OLENOBUGBOBEST TI TE TTTTTTTTT 773 77T 7 TER 


IHFUT"HR. FARBE Ll 
IF HEZR OR HRIS2 THEN 12068 





MER"; HR.FF 
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Listing 4/4.3.1.1 Zeichnen (3) 
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IF FAZL OR FARLS THEN 1zcca 
COLOR HE FA 
RETURN 


TIFTFARBE -— 





RETURH 


REM ——- 
A REM - 
EEM - 








IF W=1 THEH YM=z 
IF bh THEN kei 


GOTO 14070 








MIDTH 4 


149293 





1405 
14108 
15222 
aaa 
15020 


FETUFRH 















12, Aral 





Pen un 


A ULODOELBEBSOGRSET 7 T TI 777777777717 7.7 777000 





"WIHNEEL. MAL RR LT. 
HMD MZ>1 THEN 16080 


As AYaHIEM 














Listing 4/4.3.1.1 Zeichnen (4) 
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rag IF IHTECAESZAR-MENH dr DITELABSCAT-HI+1D44 > 02595 THEN RETURN 
Iraaa : 
178 SHAFE 55. Ma 5 
1797 
17 
17 








H=WVALEAEN 
IF A>4 GOTD 12048 


GSHAPE 35E 





FETUFH 








Listing 4/4.3.1.1 Zeichnen (5) 


414.3.1.1.19 


Variablenübersicht 





A Hilfsvariable für Modus bei GSHAPE (0-4) 

AS Eingelesenes Zeichen für Tastaturabfrage 

AX Aktuelle Grafik-Cursorposition in X-Richtung (0-159) 
AY Aktuelle Grafik-Cursorposition in Y-Richtung (0-199) 
B$ Gültiges Zeichen in Tastaturabfrage 


C/C$ Hilfsvariablen zum Einlesen der Stiftfarbe beim Ausmalen (0-3) 
D/D$ Hilfsvariablen zum Einlesen des Modus beim Ausmalen (0,1) 


F Aktuelle Farbquelle/Zeichenstiftnummer (0-3) _ 
F$ Hilfsvariable zum Einlesen der Stiftnummer bei Stiftauswahl (0-3) 
FA Hilfsvariable zum Einlesen der Farbstiftnummer bei Farbänderung 


(1-16) 
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JO Eingelesener Joystickwert (0-8, 128-136) 

M Merker für Box ausmalen (0,1) 

MX Gemerkte X-Koordinate (0-159) 

MY Gemerkte Y-Koordinate (0-199) 

NR es anae zum Einlesen der Farbstiftnummer bei Farbänderung 
ss$ Übernommene Grafikdaten mit SSHAPE 

TA Merker für Feuertaste (0,1) 

W Aktuelle Pinselstärke (0,1) 

WI Winkel beim Zeichnen eines Rechteckes/Blocks (0-360) 

ZU$ „Zustand“ (““, Z) 
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4/4.3.2 
Sprites 





Eingegliedert in den Bereich der hochauflösenden Grafik, jedoch als eigene Grafik- 
form betrachtet werden müssen die Sprites. Sprites sind besonders für Spiele interes- 
sant, da freidefinierbare Figuren oder andere Zeichnungen sehr schnell über den 
Bildschirm bewegt werden können. Aber auch in anderen Anwendungen bieten 
Sprites durchaus Vorteile, wie wir an anderer Stelle noch zeigen werden. 


Das Basic 7.0 des C 128 stellt so viele Sprite-Befehle zur Verfügung, daß keine Wün- 
sche offen bleiben. Manche Befehle (z.B. SPRDEF) beinhalten ein ganzes Pro- 
gramm, wie man sich es z.B. beim C 64 selbst schreiben mußte. 


4/4.3.2.1 


SPRDEF — Der Entwurf 





Nach Aufruf des Befehls SPRDEF (nur in Verbindung mit 40-Zeichen-Monitor 
möglich) steht Ihnen ein Sprite-Editor zur Verfügung, mit dem Sie Sprites beliebig 
nach Ihren Wünschen entwerfen können, wobei für hinreichendes Handwerkszeug 
gesorgt ist. Insbesondere die Möglichkeit des Speicherns mittels BSAVE, wie im 
Handbuch angegeben, ist hier hervorzuheben, da auf diese Art und Weise Sprites 
getrennt von Programmen auf Diskette gespeichert werden können. Diese Unabhän- 
gigkeit vom Programm erlaubt es, Sprites auch in mehreren Programmen zu ver- 
wenden, diese jedoch nur einmal zu definieren. Außerdem entfällt die lästige 
POKErei und Speicherplatz im Hauptspeicher wird durch die entfallenden DATA- 
Zeilen ebenfalls gespart (obwohl das beim C 128 nicht so sehr ins Gewicht fällt). 


Eine kleine Schönheitskorrektur würde die Arbeit jedoch noch ein wenig verbes- 
sern, nämlich dann, wenn die Sprites in Originalgröße sowohl nicht vergrößert, als 
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auch vergrößert in beide Richtungen sowie vergrößert in die eine der Richtungen 
dargestellt würden. Hier könnte bei gleichzeitigem Betrachten der vier Vergröße- 
rungsmöglichkeiten schon die Entscheidung für die spätere Verwendung fallen. 


Die Verwendung des Sprite-Editors ist im Handbuch ausreichend beschrieben, so 
daß wir hier in Bild 4/4.3.2-1 eine Idee für ein Sprite vorgeben wollen, wie es in den 
weiteren Beispielen zu verwenden wäre. 


E i 























o@alP/ioa/21i@ 
o. 
nn 
nm 
nm nm 
n|iniv wm n|n|m 
nn n|nm 
nn nım 
AR 
Tg 
DD nm 
pn mn 






























































Bild 4/4.3.2 - 1 


In dem Bild wurden jeweils die für den Hintergrund verschiedenen Farbnummern 
eingetragen, die mit dem beim Sprite-Editor zu drückenden Tasten identisch sind. 
Nicht eingefärbte Felder erhalten die Farbe 1, entsprechend dem Hintergrund. 


Dieses Sprite soll uns im Verlauf der weiteren Befehlserweiterungen begleiten. Das 
erstellte Sprite sollte deshalb mit dem Befehl BSAVE „TESTSPRITES“ ‚B0,P3584 
TO P4095 gespeichert werden. 
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414.23.2.2 


SPRSAV — Sprites an Zeichenreihe übergeben 
Sprites kopieren 





Sicherlich würde ein einziges Sprite ausreichen, um die anderen Befehle innerhalb 
dieses Buches zu erklären. Ein Flugzeuggeschwader ist jedoch ein schönerer An- 
blick als ein einzelnes Flugzeug und wir werden später auch noch mehrere Sprites 
benötigen. Es wäre allerdings etwas mühselig, jedes Sprite mit dem gleichen Muster 
zu versehen, so daß hier nach Abhilfe gesucht werden muß. 


Die Abhilfe liegt vor in Form des SPRSAV-Befehls mit dem ein Sprite an eine Zei- 
chenkette übergeben werden kann, und durch Vertauschen der Parameter ebenso 
eine Zeichenkette einer Spritenummer zugewiesen werden kann. Um nun aus unse- 
rem einzelnen Flugzeug ein Geschwader von acht Flugzeugen zu machen, muß zu- 
nächst das Datenfeld der Sprites an eine Zeichenreihe übergeben werden, was wir 
mit 


SPRSAV 1,08 


durchführen. Das ’O’ steht hier für Original, da wir später mit den Spritedaten auch 
noch etwas anderes durchführen werden. Durch Vertauschen der Parameter, also: 


SPRSAV O$,2 
SPRSAV 08,3 
SPRSAV 08,4 


SPRSAV 08,5 
SPRSAV 08,6 
SPRSAV 08,7 
SPRSAV 08,8 





haben wir unser definiertes Sprite allen acht Spritenummern zugordnet, wie Sie sich 
mit Hilfe des SPRDEF-Befehles veranschaulichen können. Umsteigern vom C 64 sei 
hier geraten, auf die um eine Einheit versetzte Numerierung der Sprites (1-8 statt 
0-7) zu achten. 


Die so erhaltenen acht Sprites sollten mit dem BSAVE-Befehl — wie oben erwähnt 
— auf Diskette gesichert werden. 


Bevor wir nun die Sprite-Befehle weiter besprechen, sei hier angemerkt, daß die in 
Zeichenreihen übergebenen Sprites ebenso mit dem GSHAPE-Befehl sichtbar ge- 
macht werden können, wie das folgende kleine Beispiel zeigt: 
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GRAPHIC 3,1 
GSHAPE 08,10,10,0 


Auch die anderen Modi sollten Sie durch Probieren prüfen. Durch Verwendung der 
Modi 0 und 4 ist es auch möglich, ein Sprite (in diesem Falle nicht mehr im eigentli- 
chen Sinne) am Bildschirm darzustellen und wieder zu löschen und per Basic- 
Programm läßt sich auf diese Art und Weise auch eine Bewegung erzeugen, wie fol- 
gendes kurze Programmstück zeigt (Achten Sie darauf, daß die Variable O$ noch 
ihren Inhalt hat und starten Sie das kurze Programmstück mit ’GOTO 100°): 


100 GRAPHIC 3,1 
110 FOR I=1 TO 100 


120 GSHAPE O$,1,80,0 
130 GSHAPE 0$,1,80,4 
140 NEXT 





Natürlich ist diese Bewegung nicht sehr elegant und wir werden im weiteren Verlauf 
des Kapitels über Sprites noch eine bessere Möglichkeit kennenlernen, da u.a. durch 
die Bewegung auch das ganze Programm gebunden ist und kein zweites Sprite be- 
wegt werden kann, es sei denn, man verschachtelt die Ausgaben ineinander, was je- 
doch einen noch langsameren Ablauf bedeuten würde. 


Auf jeden Fall sollte man sich diesen Trick aber merken, falls mehr als acht Sprites 
gewünscht werden, oder die Dimension eines Sprites mit 12 x 21 bzw. 24 x 21 Bild- 
punkten nicht ausreichend ist. 


Wenn Sie sich mit 


die Länge der aus dem Sprite erzeugten Zeichenreihe ansehen, so werden Sie fest- 
stellen, daß diese 67 beträgt. 64er-Umsteiger werden wissen, daß für die Speicherung 
eines Sprites 63 Byte bzw. Zeichen benötigt werden. In den vier letzten Zeichen sind 
Angaben über die Länge in X- bzw. Y-Richtung vorhanden, was Sie sich leicht durch 
folgende Eingabe veranschaulichen können: 





| For I= 64 TO 67 : PRINT ASC(MID$(OS$I,1)) : NEXT 





Die darauffolgende Ausgabe lautet: 
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Wenn man von der Breite (24) und der Höhe (21) jeweils eine Einheit abzieht, so 
ergeben sich die genannten von Null verschiedenen Zahlen. Es ist anzunehmen, daß 
die ersten beiden ausgegebenen Byte die Ausdehnung in X-Richtung umschreiben, 
wobei bei mehr als 255 Bildpunkten Breite das zweite Byte entsprechend einer ’!’ 
aufweist. Es ist weiterhin zu vermuten, daß beim SSHAPE-Befehl diese Vorgehens- 
weise ebenfalls gewählt wurde, da die Formeln im Handbuch neben dem Bereich für 
die Daten noch einen Summanden von vier als letztes aufweisen. Damit ist auch 
klar, wie die Höhe und Breite eines Grafikausschnittes mit SSHAPE und GSHAPE 
festgelegt wird, was wir uns noch im Kapitel Tips und Tricks zunutze machen 
wollen. 


4/4.3.2.3 


SPRCOLOR — Sprites einfärben 











Bevor wir mit unserem Sprite-Kurs fortfahren, sei zunächst auf Kapitel 4/6.2.1.1 
hingewiesen, wo das Spiegeln von Sprites erläutert wird. Um unser Beispiel sinnvol- 
ler zu gestalten, werden wir im weiteren auch mit gespiegelten Sprites arbeiten. 

Umsteiger vom C 64 wird sicherlich bekannt sein, daß zwar Sprites mit maximal 
vier Farben (inklusive Hintergrund) eingefärbt werden können, davon zwei Farben 
jedoch allen Sprites gemeinsam sind. Dies sind die Farben, die mit den Tasten ’3’ 


und ’4’ beim Sprite-Editor angewählt werden können, nämlich die zusätzlichen Far- 
ben im Mehrfarbenmodus. 


- Diese beiden Farben können ähnlich dem COLOR-Befehl bei normalen Grafiken 
mit dem SPRCOLOR-Befehl eingefärbt werden. 


Bei unseren bisher erstellten Sprites wollen wir diese beiden Farben mit gelb und 
hellbraun belegen, was wir mit 


SPRCOLOR 8,9 


erledigen. 
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414.3.2.4 


SPRITE — Sprite-Parameter festlegen 





Einer der wichtigsten Befehle in der Handhabung von Sprites ist der SPRITE- 
Befehl selbst, der, ebenso wie die anderen Grafikbefehle, die lästige POKErei vom 
64er-Modus erspart. 


Im folgenden wollen wir unsere Sprites nacheinander einschalten, wobei wir unter- 
schiedliche Parameter für die einzelnen Sprites wählen. Zunächst wollen wir jedoch 
den Hintergrund den Flugzeugen anpassen und entsprechend mit 


COLOR,15 


hellblau einfärben. Den von links nach rechts fliegenden Flugzeugen (Sprite 1 bis 
4) wollen wir die Farbe rot, und den anderen Flugzeugen die Farbe dunkelgrau zu- 
weisen. Außerdem sollen die Flugzeuge in unterschiedlichen Größen dargestellt und 
andere Prioritäten für Vor- und Hintergrund vergeben werden. Eine Vergabe von At- 
tributen könnte demnach wie folgt aussehen: 


SPRITE 1,1,3,1,0,0,1 
SPRITE 2,1,3,1,1,1,1 
SPRITE 3,1,3,0,0,0,1 
SPRITE 4,1,3,0,1,1,1 


SPRITE 5,1,12,1,0,0,1 
SPRITE 6,1,12,1,1,1,1 
SPRITE 7,1,12,0,0,0,1 
SPRITE 8,1,12,0,1,1,1 





Während Sie die Befehle im Direktmodus eingeben, erscheint nach jeder Eingabe 
ein neues Sprite auf dem Bildschirm, an einer zuvor nicht näher definierten Posi- 
tion, die von vorhergehenden Tätigkeiten abhängt. 


Mit der vorhergehenden Definition haben wir also den jeweiligen Sprites die ge- 
wünschte Farbe zugeordnet, und wenn man von diesem Parameter absieht, haben 
die Sprite 1/5, 2/6, 3/7 und 4/8 jeweils die gleichen Spezifikationen erhalten. Dabei 
haben die Sprites 1, 2, 5 und 6 jeweils die Priorität 1 zugewiesen bekommen und 
laufen hinter anderen Objekten am Bildschirm und die Sprites 2, 4, 6 und 8 sind 
sowohl in X- als auch Y-Richtung ausgedehnt. Allen Sprites gemeinsam ist das At- 
tribut des Mehrfarbenmodus, wie der letzte Parameter anzeigt. 
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4/4.3.2.5 


MOVESPR — Positionieren und Bewegen von Sprites 





Nachdem die Sprites zwar am Bildschirm sichtbar sind, aber sicherlich nicht zufäl- 
lig die gewünschte Position eingenommen haben, wollen wir uns nun zuerst mit der 
absoluten Positionierung und anschließend mit der Bewegung der Sprites beschäfti- 
gen. Hierbei sei darauf hingewiesen, daß die Positionierung der Sprites nichts mit 
den Grafik-Koordinaten gemein hat und die Sprite-X-Koordinate 0 24 Punkte links 
neben dem Bildschirmrand liegt, somit Sprites unsichtbar dargestellt werden kön- 
nen. Der obere Rand (Grafik-Y-Koordinate 0) wird durch die Sprite-Koordination 50 
angesprochen. 


Unser ’rotes Geschwader’ wollen wir in der linken unteren Bildschirmhälfte positio- 
nieren und unser hellgraues Geschwader entsprechend gegenüber in der rechten un- 
teren Bildschirmhälfte, so daß der Eindruck des aufeinanderzufliegens entsteht. 
Folgende Koordinaten werden vorgeschlagen: 


MOVSPR 1,0,2 

MOVSPR 2,30,170 
MOVSPR 3,100,180 
MOVSPR 4,80,150 


MOVSPR 5,300,200 
MOVSPR 6,340,170 
MOVSPR 7,240,180 
MOVSPR 8,280,150 








Dabei ist das erste Sprite unter dem linken Bildschirmrand verborgen und Sprite # 6 
ragt nur mit der Nase am rechten Bildschirmrand heraus. 


Damit haben wir unsere Geschwader positioniert, bevor jedoch Bewegung ins Spiel 
kommt, wollen wir noch einen kleinen optischen Effekt beisteuern, der die beiden 
unterschiedlichen Farben am Ende des Flugzeuges zur Geltung bringt und den 
Nachbrenner simuliert. 


Dazu benutzen wir den schon besprochenen SPRCOLOR-Bef£ehl, indem wir in einer 
prinzipiellen Endlosschleife mit eingebauten kurzen Warteschleifen jeweils die bei- 
den Farben gelb und hellbraun gegeneinander austauschen. Die im nachfolgenden 
dargestellte Programmschleife muß durch Drücken der STOP-Iaste abgebrochen 
werden. 
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1000 DO 

1010 SPRCOLOR 8,9 
1020 FOR J=1 TO 100 
1030 NEXT 


1040 SPRCOLOR 98 
1050 FOR J=1 TO 20 
1060 NEXT 
1070 LOOP 





Die Verwendung von SLEEP ist nicht anzuraten, da hier mindestens eine Sekunde 
gewartet werden muß. 


Wenn Sie nun das Programmstück starten, flattern zwar die Nachbrenner, aber es 
ist noch keine Bewegung im Spiel. Dies erreichen wir mittels des MOVSPR-Befehls, 
indem wir die Variante mit Winkel und Geschwindigkeit benutzen. 


Wir bringen also Bewegung ins Spiel, indem wir nacheinander eingeben: 











MOVSPR 1,1004F20 





MOVSPR 2,854#*150 
MOVSPR 3904180 
MOVSPR 4,90#255 
MOVXPR 5,290#+60 
MOVSPR 6,2754#130 
MOVSPR 7,270#F200 
MOVSPR 8,2704F250 









































Damit bekommen alle Sprites eine Bewegung zugeordnet, wobei wir den Sprites 
1 bis #4 eine Bewegung hauptsächlich in rechter Richtung und den Sprites #5 
bis#8 eine solche in linker Richtung zugeordnet haben. Die Tiefflieger fliegen ge- 
nau parallel zum unteren Bildschirmrand, was durch die Winkel 90 Grad in die eine 
Richtung und 270 Grad in die andere Richtung bewerkstelligt wird. Beachten Sie 
auch bei der Bewegungsrichtung der Sprites, daß 0 Grad nicht nach rechts geht, son- 
dern nach oben. 









































[77 





Die Geschwindigkeiten wurden so gewählt, daß die größeren, im Vordergrund be- 
findlichen Flugzeuge schneller fliegen als die hinteren, die eine längere Strecke zu 
bewältigen haben, während sie in unserem Blickwinkel sind. 


Die Bewegung der Sprites ist Interrupt-gesteuert, so daß sie unabhängig von ande- 
ren Operationen verlaufen, wie Sie leicht feststellen können, wenn Sie sich ein Pro- 
gramm auslisten lassen. Allerdings arbeitet das normale Basic etwas langsamer, da 
es nicht mehr so viel Rechenzeit zugeteilt bekommt, die ja für die Bewegung der 
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Sprites verbraucht wird. Die Bewegung wird automatisch mit dem Ausschalten der 
Sprites angehalten, so daß dem Basic wieder die volle Rechenzeit zur Verfügung 
steht. 


In unserem Fall ist es sinnvoll, eine kleine Programmschleife zu schreiben, in der 
die Laufvariable I die Werte 1 bis 8 durchläuft und innerhalb dieser Schleife die An- 
weisung SPRITE 1,0 gegeben wird. 


Es sei noch anzumerken, daß die dem Autor vorliegende Bedienungsanleitung für 
den Parameter n Werte zwischen 0 und 7 angegeben sind. Dies ist zu ersetzen durch 
die Werte 1 bis 8, da die Spritenummern im C 128-Modus eben diese Nummern be- 
sitzen (siehe auch alle anderen Sprite-Befehle). Im 64er-Modus hingegen — der je- 
doch keine Sprite-Befehle kennt — müssen die Nummern 0 bis 7 für die acht Sprites 
verwendet werden. 


Wenn Sie nun zusätzlich zur Bewegung die Farbe alternieren lassen wollen, so sind 
die Warteschleifen in den Zeilen 1020/1030 und 1050/1070 durch die Verlangsamung 
des Basics unnötig geworden und können entfallen. 


4/4.3.2.6 


BUMP — Kollisionsüberprüfung 





Etwas fehlt noch, wenn man sich die bewegenden Sprites auf dem Bildschirm an- 
sieht. Daß die großen und kleinen Flugzeuge nicht miteinander kollidieren ist ver- 
ständlich, da sie unterschiedlich weit vom Betrachter entfernt zu sein scheinen. Aber 
gleich große Flugzeuge müssen miteinander kollidieren, auf jeden Fall die gegneri- 
schen (Flugzeuge der gleichen Partei könnten dicht nebeneinander fliegen). 


Dazu muß man aber zunächst wissen, wann und welche Sprites miteinander kolli- 
dieren. Dieses Wissen liefert uns der BUMP-Befehl. Bevor wir jedoch zu der Bespre- 
chung des BUMP-Befehles kommen, wollen wir das bisher gezeigte in einem Pro- 
gramm vereinen und mit einem weiteren Detail verbessern. Hier zunächst das 
Listing: 
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AHRE 
GÜTE 17 








Listing 4/4.3.2.6 (1) 
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Listing 4/4.3.2.6 (2) 


Das Einladen der Spritedaten haben wir hinter eine REM-Anweisung gesetzt, so daß 
sie bei Programmstart nicht jedesmal geladen wird. Dann werden die beiden Zusatz- 
farben für das Sprite festgelegt, sowie der Hintergrund auf hellblau geschaltet. Die 
Vordergrundfarbe der Grafik wird auf weiß geschaltet, die wir später noch brauchen 
werden, 


Ab Zeile 1110 befinden sich die SPRITE-Befehle, wie wir sie weiter oben angeführt 
haben. Innerhalb dieser Befehle wird noch ein Sprung auf die nächste Zeile nach 
den Sprite-Befehlen durchgeführt, durch dessen Verschiebung innerhalb der Zeilen 
1100 und 1999 Sie beliebig viele Sprites einschalten können. Dies dient dazu, den 
Ablauf bei Kollisionen nachher deutlicher zu machen, da sich acht bewegte Sprites 
zu häufig treffen, um das Geschehen am Bildschirm nachzuvollziehen. 


Das Löschen der Sprites kann in einer Programmschleife erfolgen, die insgesamt 
auf eine der Funktionstasten gelegt werden kann. Hier ein Beispiel: 


KEY 8/’FORI=1T08:SPRITEI,O:NEXT”+CHR$(13) 


Sofern Sie im Puffer für die Funktionstasten nicht genügend Platz haben, können 
Sie die Befehle ebenso abkürzen (FOR:F SHIFT-0 / NEXT.N SHIFTEE / SPRITE:S 
SHIFT-P). 


Durch Drücken der Funktionstaste F8 werden dann alle Sprites gelöscht, wovon Sie 
sich selbst überzeugen können. 
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Die Positionierung der Sprites ab Zeile 1210 geschieht ebenfalls analog zu der bereits 
erwähnten Aufführung. Die Positionierung ist auch dann wichtig, wenn die Sprites 
bewegt werden sollen, da sich dadurch die Position des Bewegungsablaufes auf- 
grund der Anfangsposition beeinflussen läßt. Besonders deutlich wird dies an den 
sich waagerecht bewegenden Sprites. 


Die Geschwindigkeiten wurden ab Zeile 1300 für die Sprites #4 bis #8 auf Null zu- 
rückgesetzt und für die Sprites #1 bis #4 sehr stark vermindert. Auch dies dient 
dazu, die folgenden Programmstücke zur Kollisionsabfrage leichter verständlich zu 
machen. 


Neu sind die Zeilen ab 1390, wo zunächst die hochauflösende Grafik eingeschaltet 
und der Bildschirm gelöscht wird. 


Dann wird in der FOR ...NEXT-Schleife von Zeile 1410 bis 1440 eine Folge aus lau- 
ter ausgefüllten Kreisen gezeichnet. Diese Wolke wird dann mit dem SSHAPE- 
Befehl in Zeile 1460 in die Variable SS$ übernommen und durch die vier GSHAPE- 
Befehle ab Zeile 1480 an verschiedenen Stellen am Bildschirm positioniert. Achten 
Sie bitte auf den Modus ”2’ in Zeile 1500, da sich sonst eine Ecke in einer Wolke 
ergeben würde. 


Die Zeilen ab 1530 widmen sich dann dem BUMP-Befehl. Wie Sie im Handbuch 
nachlesen können, kann das Argument beim BUMP-Befehl zwei Werte annehmen, 
je nachdem, ob Sie eine Sprite-Sprite-Kollision oder eine Sprite-Hintergrund- 
Kollision abfragen wollen. Die Beschreibung in dem uns vorliegendem Handbuch 
ist etwas unglücklich und unvollständig, da sie die Vorgehensweise bei der Sprite- 
Sprite-Kollision nur ungenügend beschreibt. Deutlicher wird dies, wenn man die 
Verfahrensweise vom 64er-Modus kennt. Im Anhang E des Handbuches sind die 
Register der Sprites aufgeführt und unter den Registernummern 30 und 31 finden 
Sie die beiden Register für Sprite-Sprite-Kollision und Sprite-Hintergrund-Kollision. 
Maschinenspracheprogrammierer müssen sowieso auf diese Register zurückgreifen. 






































Bei einem BUMP-Befehl wird wahlweise eines der beiden Register ausgelesen. Dabei 
beinhaltet das Register beim Auslesen einer Sprite-Hintergrund-Kollision alle Spri- 
tenummern, die im Moment des Abfragens Berührung mit einem Zeichen des Hin- 
tergrundes haben. Da jedem Bit in diesem Register ein Sprite zugeordnet ist (Sprite 
8 das am weitesten links stehende Bit (= dezimal 128), Sprite #1 das am weitesten 
rechts stehende Bit) ist eine Weiterbehandlung aufgrund der Abfrage im Programm 
ohne weiteres möglich. 














Diese Behandlung finden Sie in unserem Programm ab Zeile 1700, wo wir bei einer 
Kollision lediglich eine Meldung an den Anwender herausgeben. Die Programmie- 
rung eines optischen und akustischen Programmteils nach einer Kollision soll Ihnen 
überlassen bleiben. 2 


Das Programm ist ab Zeile 1560 so gestaltet, daß sofort zur erneuten Abfrage über- 
gegangen wird, wenn weder eine Sprite-Sprite-Kollisiion noch eine Sprite- 
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Hintergrund-Kollision vorliegt. Liegt auch keine Sprite-Sprite-Kollision vor, so wird 
in Zeile 1570 gleich zur Behandlung der Sprite-Hintergrund-Kollision übergegan- 
gen. Ebenso wird nach den Anzeigen bei der Sprite-Sprite-Kollision der Programm- 
teil ab Zeile 1700 übergangen, wenn keine Sprite-Hintergrund-Kollision vorliegt. 


Sprite-Sprite-Kollisionen sind etwas schwieriger zu handhaben, da innerhalb des Re- 
gisters immer mindestens zwei Bits gesetzt sind, wenn eine Kollision vorliegt, näm- 
lich die beiden Bits der an der Kollision beteiligten Sprites. Würden hier alle acht 
Sprites eingeschaltet und sich mit der ursprünglich vorgegebenen Richtung und Ge- 
schwindigkeit bewegen lassen, so würde der Fall, daß alle acht Bits im Sprite-Sprite- 
Kollisionsregister gesetzt sind, sehr häufig auftreten. Da aber in diesem Fall nicht 
jedes Sprite mit jedem Sprite kollidiert ist, muß der Anwender aufgrund der Posi- 
tion der einzelnen Sprites selbst eine Auswahl treffen, welches Sprite mit welchem 
Sprite in Verbindung steht. 


Aus diesem Grund haben wir in den Zeilen 1590 bis 1660 auch jeweils ein ’> ans 
Zeilenende gesetzt, so daß alle Kollisionen innerhalb einer Zeile dargestellt werden. 
Die Koordinaten eines jeden Sprites können mittels des RSPPOS-Befehls vom Rech- 
ner abgefragt werden, wie wir im letzten Unterkapitel dieses Kurses noch aufzeigen 
werden. 


In unserem Beispielprogramm werden die Zeilen ab 1530 fortlaufend aufgerufen, so 
daß das Programm keine anderen Tätigkeiten mehr unternimmt, als die Kollisions- 
prüfung. Sollen jedoch auch noch andere Funktionen wahrgenommen werden 
(Textausgabe, Steuerung von Sprites mit dem Joystick), so wäre eine aufwendige 
Programmierung erforderlich, wenn man den COLLISION-Befehl nicht zu Hilfe 
nimmt. 


4/4.3.2.7 


COLLISION — Kollisionsprüfung mit Unterprogramm 





Zur Darstellung der Wirkungsweise des COLLISION-Befehls haben wir in unserem 
letztgenannten Programm lediglich die Zeilen 1522 bis 1527 eingefügt und in Zeile 
1790 den Sprungbefehl in ein RETURN — umgewandelt. 








Teil 4 Kapitel 4.3.2 Seite 14 Spezielle Programmiertnemen 








4.3 Grafik beim C 128 PC Teil 4: Software-Erstellung 












a Ka , ä 
ad} [ "EIHT FEITE 5 — HIHNTE 
AH 1T 





FIH 
‚AHN 













# Ham 
AFAANMITNT 






IF 
3 IF 












ra FETURH 











Listing 4/4.3.2 


Die Zeilen 1526 und 1527 bilden eine prinzipielle Endlosschleife. Normalerweise 
würde das Programm nur die Meldung ’KEINE KOLLISION’ fortlaufend aus- 
drucken. Da jedoch in den Zeilen 1522 und 1524 der COLLISION-Befehl verwendet 
wurde, wird zur Zeile 1530 verzweigt, wenn entweder eine Sprite-Sprite-Kollision 
oder Sprite-Hintergrund-Kollision vorliegt. In unserem speziellen Beispiel verzwei- 
gen wir in beiden Fällen zur gleichen Zeile, wo die kollidierenden Sprites mit Hilfe 
des BUMP-Befehls abgefragt werden. 


Die Wirkungsweise des Programms veranschaulicht man sich am besten durch einen 
Programmstart. Sofern keine Kollision vorliegt, wird die Meldung aus Zeile 1526 
ausgedruckt. Sobald jedoch entweder eine Sprite-Sprite-Kollision oder eine Sprite- 
Hintergrund-Kollision vorliegt, wird das Unterprogramm ab Zeile 1530 aufgerufen, 
wie durch die ausgegebenen Bildschirmmeldungen deutlich wird. 


Beachten Sie jedoch sowohl bei der Programmierung ausschließlich mit BUMP als 
auch bei einem Unterprogrammsprung mittels COLLISION, daß sich während der 
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Programmbehandlung weitere Kollisionen ergeben können, die nicht abgeprüft wer- 
den. Dies ist besonders bei sich schnell bewegenden Sprites der Fall, und aus diesem 
Grunde sollte man innerhalb der Kollisionsüberprüfung und der darauffolgenden 
Programmbehandlung auf Einsparung von Rechenzeit bedacht sein. Hierzu sei 
nochmals darauf hingewiesen, daß die Bewegung der Sprites und auch Töne und 
Geräusche Interruptgesteuert sind und somit das Basic verlangsamen. 


414.3.2.8 


RSPCOLOR, RSPPOS und RSPRITE — Abfragebefehle für Sprites 





Ebenso wie für die Parameter der hochauflösenden Grafik gibt es auch zum Thema 
Sprites drei Abfragebefehle, mit denen die verschiedenen Registerinhalte geprüft 
werden können. Da die meisten Daten jedoch für alle acht Sprites unterschiedlich 
sind, lohnt es sich hier, ein kleines Programm zu schreiben, mit dem alle Register- 
inhalte gleichzeitig auf dem Bildschirm dargestellt werden. 







HEIASIC 


41H. TDEHHU HEN 








Listing 4/4.3.2 (1) 
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Besonders bei Sprite-Sprite-Kollisionen müssen die Koordinaten aller beteiligten 
Sprites vom Rechner abgefragt werden. Hier nützt auch kein Mitführen einer pro- 
grammeigenen Variablen, da aufgrund des MOVSPR-Befehls eine programmunab- 
hängige Bewegung von Sprites durchgeführt werden kann. 

Der Aufbau des Programms wurde so gewählt, daß für jedes Sprite eine Spalte der 
Anzeige herangezogen wird. Parameter mit identischer Bedeutung stehen also im- 
mer innerhalb einer Zeile. 

In PRINT-Befehlen in den Zeilen 1050, 1060, 1500 und 1550 muß der PRINT-Befehl 
durch ein ’” abgekürzt werden, um diese Zeile darstellen zu können. Der Einfach- 
heit halber wird in Zeile 1080 ein Feld BE$ für die Bezeichnungen dimensioniert, 
die anschließend definiert und eingelesen werden. s 

In den Zeilen 1290, 1360 und 1420 wurde der PRINT-Befehl mit der Ergänzung 
USING benutzt, um für die unterschiedlichen Zahlenangaben jeweils eine fest defi- 
nierbare Bildschirmstelle zur Verfügung zu stellen. Dieses USING kann auch in Zei- 
le 1200 verwendet werden, falls Ihrerseits Bedarf besteht. 
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4/4.4 
Sound beim C 128 PC 





Der € 128 hat die gleichen Sound-Möglichkeiten wie der C 64. Im Gegensatz zum 
C 64 sind beim C 128 aber ausreichend Basic-Befehle vorhanden, die bei der 
Sound-Programmierung genutzt werden können. Beim 64er war man entweder auf 
umfangreiche POKErei angewiesen oder auf entsprechende Basic-Ergänzungen, die 
es ja schon nach einiger Zeit auf dem Markt gab. In Anlehnung an die wohl am 
häufigsten eingesetzte Basic-Erweiterung sind wohl auch die Sound-Befehle des C 
128 entstanden, wenn sie auch um einiges komfortabler sind. 


Im vorliegenden Kapitel wollen wir uns speziell mit den Sound-Befehlen beschäfti- 
gen, wobei wir mit dem PLAY-Befehl beginnen, der uns auch gleich das Erzeugen 
von Musiknoten ermöglicht. Im weiteren werden wir dann die Sound-Ausgabe ver- 
feinern. 


Da der Sound sehr mannigfach gestaltet werden kann, sind bei den hier vorgestell- 
ten Basic-Befehlen natürlich auch entsprechend viele Parameter möglich, um dem 
Anwender freie Hand in der Gestalt seiner Musik zu lassen. Weil die Programmie- 
rung des Sounds nicht mehr über POKE-Befehle erfolgt, und somit eine umständli- 
che Bit-Fummelei und Registersucherei erspart bleibt, dürfte die Erzeugung von 
Melodien auch dem Anwender gerecht werden, dem die Sucherei nach Registern 
und der Bedeutung der einzelnen Bits in den Registern zu umständlich war. 


4/4.4.1 
PLAY — spielen Sie eine Melodie 





Wenn man auf Feinheiten verzichtet, bietet der PLAY-Befehl sehr vielfältige Mög- 
lichkeiten der „Melodie-Programmierung“. Der Übersichtlichkeit halber wollen wir 
zunächst die Angaben des Handbuches nochmals vorstellen und erläutern und uns 
dann einer kleinen Testmelodie zuwenden. 
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Grundsätzlich erfolgt die Eingabe von Noten beim PLAY-Befehl in Form von Zei- 
chen innerhalb einer Zeichenreihe. Ähnlich dem PRINT. Befehl werden die Zeichen- 
reihen als Konstanten oder Variablen (steht zwar nicht im Handbuch, geht aber) 
nach dem PLAY-Befehl eingegeben. Ein kleiner Unterschied besteht allerdings: 
Zahlvariablen und Zahlkonstanten sind nicht zugelassen. 


Notenwerte („weiße Tasten‘) 


Welche Zeichen muß man nun wie eingeben, um eine gewünschte Melodie zu erhal- 
ten? Da wären zunächst die Notenwerte zu nennen. Sie werden eingegeben, wie sie 
normalerweise auch als Buchstaben angesprochen werden, also al: CDEFG AB 
(nicht H). 

Die Notenschrift ist also in Buchstaben umzusetzen, wobei hier ausdrücklich darauf 
hingewiesen wird, daß wir zwar im Deutschen den Ton unterhalb C als H bezeich- 
nen, dieser im englischen Sprachgebrauch aber mit B angesprochen wird. Obige 
Aufzählung enthält also — auf einer Klaviertastatur gesehen — alle ganzen Noten 
einer Oktave von C bis B (= H). 


Notenwerte („schwarze Tasten“) 


Auch die „schwarzen Tasten‘ sind auf diese Weise anzusprechen. In der Musik wer- 
den sie durch ein „#“ oder „b“* vor der jeweiligen Note dargestellt. Das „#“ be- 
deutet dabei eine Erhöhung um einen halben Ton und das „b“ eine Verminderung 
um einen halben Ton. Bei Ihrem € 128 ist dem jeweiligen Buchstaben für die „weiße 
Taste“ entsprechend ein „#“ für die Erhöhung um einen halben Ton voranzu- 
stellen. 


Da wir den Buchstaben B/b bereits für die — im europäischen Sprachgebrauch — 
Note H verwendet haben, muß für die Verminderung um einen Halbton ein anderes 
Zeichen herangezogen werden. Dies ist das „$“. 


Eine komplette Oktave mit Halbtönen als Eingabe in Ihrem Rechner würde dabei 
also wie folgt aussehen (je nach Vorzeichen): 





C 
#c = $D 
D 
#D = $E 
E 
F 
#F = $E 
G 
#G = $A 
A 
F#A = $B 
B 
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Oktaven 


Damit können wir nun eine Oktave spielen, aber wie sieht es mit den Oktavunter- 
schieden aus. Dies ist ganz einfach, hinter dem Buchstaben „O“ kann man die 
Nummer einer Oktave angeben. Diese Nummer kann zwischen O0 und 6 liegen, es 
stehen also sieben Oktaven zur Verfügung. Da Sie — wie wir später sehen werden 
— die Zeichen für die Noten einfach hintereinander schreiben, ist es nicht schwer, 
zwischendurch auch noch mit z.B. „03“ anzugeben, daß die folgenden Noten mit 
Tonhöhe der dritten Oktave gespielt werden. 


Sie sollten sich beim Eingeben der Daten auf jeden Fall schr konzentrieren, da ein 
Nachvollziehen der Noten am Bildschirm sehr mühsam ist. 


Notendauer 


Nun haben wir also eine elektronische Orgel, die uns die Noten von sieben Oktaven 
spielen kann. Für ein korrektes Notenspiel muß es allerdings auch noch die Mög- 
lichkeit geben, die Dauer jeder Note festzulegen. 


Auch die Notendauern werden durch Buchstaben gekennzeichnet, wobei jeder 
Notendauer von Werten einer ganzen Note bis hin zu einer 1/16 Note ein Buchstabe 
zugeordnet ist. Nicht jeder Note im PLAY-Befehl muß eine Notendauer zugeordnet 
werden, vielmehr gilt die eingegebene Notendauer, bis die Notendauer durch Einga- 
be eines entsprechenden anderen Buchstabens verändert wird. Den Notendauern 
sind folgende Buchstaben zugeordnet: 


ganze Note (wahrscheinlich vom engl. whole) 
halbe Note (engl.: half) 


viertel Note (engl.: quarter) 
achtel Note 
sechzehntel Note 





Auch das Punktieren einer Note (die Notendauer wird um die Hälfte verlängert) ist 
möglich. Hierfür ist bei der Eingabe ebenfalls ein Punkt vorgesehen. 


Pause 


Auch Pausen sind bei der Eingabe möglich. Eine Pause wird durch ein „R“ angege- 
ben. Einer Pause wird die gleiche Dauer wie einer Note (siehe oben) zugewiesen. 


Klangfarben 


Wie auch bei einer richtigen Orgel kann Ihr C 128 mit verschiedenen Klangfarben 
aufwarten. Zehn solcher Klangfarben sind bereits im Rechner vorhanden. Diese 
können aber auch von Ihnen geändert werden, wie wir beim ENVELOPE-Befehl 
später sehen werden. ; 

Klangfarben werden ähnlich den Oktaven aufgerufen, indem nach einem „T“ (engl.: 


tone) die Nummer der Klangfarbe eingegeben wird. Möglich sind Eingaben von „0“ 
bis „9“, wobei folgende Tabelle zugrunde liegt: 











Teil 4 Kapitel 4.4 Seite 4 Spezielle Programmierthemen 








4.4 Sound beim C 128 PC Teil 4: Software-Erstellung 


0 — Klavier 

1 — Akkordeon 

— Zirkusorgel 

— Trommel 

— Flöte 

— Gitarre 

— Cembalo 
Orgel 
Trompete 
Xylophon 





2 
3 
4 
5 
6 
7 
8 
9 


Einige Klangeffekte sind gut getroffen, andere sind weniger gut zu erkennen, 
so daß bei diesen — aber auch für eigene Anwendungen — die Verwendung des 
ENVELOPE-Befehls anzuraten ist. 


Lautstärke 


Neben den Notenwerten, den Notendauern und der Klangfarbe können Sie auch 
noch weitere Parameter bestimmen. Zunächst ist hier die Lautstärke zu erwähnen. 
Diese kann zwar generell mit dem VOL-Befehl gesetzt werden (siehe unten), aber 
auch die Eingabe in der Zeichenreihe bei PLAY ist möglich. Hier kann eine Laut- 
stärke zwischen 0 und 9 ausgewählt werden, der ein „U“ voranzustellen ist. 


Stimmenauswahl 


Wie der C 64 auch, hat der C 128 drei Stimmen, die im PLAY-Befehl mit einem 
„V“ und der darauffolgenden Nummer zwischen 1 und 3 angewählt werden kann. 


Filter 


Als letztes ist noch der Filter zu erwähnen, der allerdings nur ein- bzw. ausgeschaltet 
werden kann. Nach einem „X“ ist eine „I“ (für ein) oder eine „0“ (für aus) anzu- 
geben. Die Parameter des Filters werden mit dem FILTER-Befehl bestimmt. 


Noch ein kleiner Hinweis: Sofern Sie ein nicht vorgesehenes Zeichen in Ihrer 
Zeichenreihe eingegeben haben, wird entweder ein ILLEGAL QUANTITY ERROR 
ausgegeben oder das Spiel der Musik abgebrochen. 


Nachdem wir nun alle Möglichkeiten beim PLAY-Befehl durchgesprochen haben, 
wollen wir ein kleines Beispiel starten. Als Testmelodie soll uns das sicherlich be- 
kannte Lied Sun of Jamaika dienen. 
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Listing 4/4.4-1 


In Zeile 200 schalten wir zunächst die Lautstärke auf den Wert „6“ und anschlie- 
Bend suchen wir uns als Klangfarbe das Xylophon aus. Die ersten Noten sollen mit 
der Tonhöhe der Oktave 3 gespielt werden, und die erste Note bekommt die Länge 
einer halben Note zugewiesen. Dann wird ein F gespielt und anschließend die 
Notendauer auf eine 1/4 Note heruntergesetzt, wonach die Töne F und E gespielt 
werden. 


Nach dem Umschalten auf die Dauer einer halben Note wird erneut ein F gespielt, 
wonach die Noten F und G als Viertelnoten folgen. Soweit zur Einführung, im fol- 
genden wollen wir nun noch auf die wichtigsten Änderungen eingehen. 


Zu Beginn des letzten Drittels der Zeile 200 wird die Notenhöhe auf Oktave 4 umge- 
schaltet und kurze Zeit später wieder auf die dritte Oktave zurückgeschaltet. Die 
letzten beiden Noten aus Zeile 200 (beide G) werden als ganze Note gespielt, was 
durch das ,„W“ angezeigt ist. 


In Zeile 210 erhöhen wir die Lautstärke auf den maximalen Wert und suchen uns 
als Klangfarbe das Akkordeon aus. Gegen Ende der Zeile finden Sie auch eine 
„schwarze Taste‘, nämlich das B (im europäischen Sprachgebrauch), das durch ein 
„$B“ dargestellt wird. In Zeile 230 im letzten Drittel wird auch eine punktierte Vier- 
telnote mit ,„‚Q.‘“ gespielt. 


Sie sehen, die Eingabe von Melodien ist recht einfach, wenn auch das „Notenlesen“ 
etwas außergewöhnlich gegenüber normalen Notenblättern ist. 


“ Mehrstimmiges Spiel 


Da wir auch zwischen drei verschiedenen Stimmen wählen können, liegt es nahe, al- 
le drei Stimmen gleichzeitig spielen zu lassen. So kann z.B. die erste Stimme die 
Hauptmelodie spielen (cantus firmus) und die beiden anderen Stimmen überneh- 
men die Begleitung. 


Einfach wäre es, wenn man jede der drei Stimmen getrennt eingeben könnte, und 
diese vom Rechner verbunden würden. Dazu müßte man sieh allerdings ein kleines 
Programm schreiben. 


Wenn Sie drei Stimmen gleichzeitig spielen lassen wollen, kommen Sie nicht umhin, 
innerhalb der Eingabe bei PLAY jeweils die Note einzeln für jede Stimme hinter- 
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einander zu schreiben. Im folgenden Listing haben wir dies an den ersten Takten 
des bekannten Liedes vorgeführt: 











Listing 4/4.4-2 


Wie Sie an diesem kleinen Beispiel sehen, verdreifacht sich nicht der Aufwand für 
drei statt einer Stimme, die spielen sollen, sondern er verachtfacht sich. Dies liegt 
unter anderem daran, daß in der Regel die Begleitstimmen eine Oktave tiefer liegen, 
und somit nach jedem Umschalten zwischen den Stimmen auch die Oktave umge- 
schaltet werden muß. In unserem Beispiel waren es die Oktaven „O3“ und „O2“, wo- 
bei die dritte Stimme zeitweise auch noch in die Oktave „O1“ hinabgesunken ist. 


Außerdem sollen ja auch nicht die Begleitstimmen genauso laut wie die Melodie- 
stimme erscheinen, so daß auch jeweils noch die Lautstärke (in unserem Fall 
(U9/U3) geändert werden muß. Vielfach sind auch die Notendauern der einzelnen 
Stimmen unterschiedlich, und würden Sie auch noch jeder Stimme eine eigene 
Klangfarbe zuordnen, so müßte auch noch die Klangfarbe umgeschaltet werden, 
was die Ausgabe noch weiter in die Länge zieht. 


Die Tastatur als Orgel 


Die Eingabe von Melodien mittels des PLAY-Befehls hat natürlich den Vorteil, daß 
man diese speichern und zu jedem beliebigen Zeitpunkt neu abspielen kann. Wenn 
man jedoch ein Stück direkt spielen will, kann man die Tastatur als Orgelklaviatur 
benutzen. Dies ist natürlich nur mit einem Programm möglich, das wir uns im fol- 
genden erarbeiten wollen. 


Bevor wir uns jedoch überlegen, wie das Programm aufgebaut sein soll, muß eine 
Entscheidung fallen, wo die Töne auf der Tastatur hervorgerufen und die „Register“ 
der Orgel (Klangfarbe etc.) eingestellt werden sollen. Um die nötigen Tastendrucke 
recht einfach zu halten und weitgehend von der normalen Arbeit mit der Tastatur 
abzuheben, haben wir uns für das in Bild 4/4.4-1 dargestellte Schema.entschieden. 


Die „weißen“ Tasten einer Oktave wollen wir den Tasten mit den Buchstaben Q,W, 
E, R, T, Y, U zuordnen und die Halbtöne dazwischen entsprechend den Tasten 2 
und 3 sowie 5, 6 und 7. 
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Den Klang unserer Orgel stellen wir dann hauptsächlich über mit Pfeilen bezeichne- 
te Tasten ein. So z.B. die Notendauer mit dem Pfeil nach links, wobei bei jedem Ta- 
stendruck die Notendauer verdoppelt wird. Ist der Wert einer ganzen Note erreicht, 
so gehen wir wieder zur Sechzehntelnote über. Die Oktavwerte sollen mit den Tasten 
für „Cursor nach oben‘ und „Cursor nach unten‘ gesteuert werden, wobei ein 
Druck auf die Taste „Cursor nach unten“ den aktuellen Oktavwert um eine Einheit 
vermindert und entsprechend die Taste „Cursor nach oben‘ den Oktavwert erhöbt. 


Analog sollen die Tasten „Cursor nach links“ und „Cursor nach rechts“ für die 
Klangnummern herangezogen werden, wobei — leicht einprägsam — eine höhere 
Klangnummer durch ‚Cursor nach rechts“ erzeugt wird. Die Taste „Cursor nach 
links“ hat dann den gegenteiligen Effekt. 


Die Lautstärke soll mit den Tasten „+“ und ‚,‚-‘* gesteuert werden, wobei „+“ sinn- 
gemäß einer höheren Lautstärke entspricht und ‚,‚-‘‘ einer geringeren Lautstärke. 
Auch bei den Oktavwerten, den Klangfarben und der Lautstärke wird der Wert je- 
weils um eine Einheit höher oder niedriger als der aktuelle Wert gesetzt. 


Mit unserem kleinen Programm wollen wir Ihnen natürlich nur wieder eine Anre- 
gung geben. Verbesserungsmöglichkeiten gibt es bei Software naturgemäß immer, so 
daß Sie z.B. die Tasten rechts von U als weitere Oktave benutzen können. Achten 
Sie im späteren Programm jedoch darauf, daß bei der Ausgabe der Noten dann eine 
höhere Oktave als die angewählte, anzusprechen ist. Außerdem können Sie die 
Notendauer von der Zeit der gedrückten Taste abhängig machen. Wer die Oktav- 
und Klangwerte sowie die Lautstärke trotzdem über eine Ziffer eingeben will, kann 
entsprechend die Tasten K, O und L — gefolgt von einer gültigen Ziffer — zulassen, 
da die genannten Tasten nicht für Noten herangezogen werden. 
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Beginnen wir also mit unserem Programm: 












HOTEHFARAMETER 


REM CE 





de 
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on geh 
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REM IA 
IS NE IF 
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L 





Listing 4/4.4-3 (1) 
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Listing 4/4.4-3 (2) 
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Listing 4/4.4-3 (3) 


Da wir nach jedem Tastendruck dem Computer die komplette Information über die 
zu spielende Note übermitteln wollen (Lautstärke, Oktave, Klangfarbe etc.), ist es 
sinnvoll, diese zuvor als Zeichenreihen zu definieren. Durch diese Vorgehensweise 
ist Ihnen die Möglichkeit gegeben, das Programm später nach Belieben zu ändern, 
speziell zu erweitern. 


Felder für Noten-Parameter 


Zu Beginn des Programms werden also einige Felder definiert, die nur den „Text“ für 
den PLAY-Befehl an den Computer übernehmen. Über die Indices der Felder können 
dann die einzelnen Parameter zur Note gesteuert werden. Analog zu den Indexnum- 
mern wird also die jeweilige Oktavhöhe, der Klangwert oder die Lautstärke angege- 
ben. Außerdem sollen die aktuell eingestellten Werte am Bildschirm erkennbar sein. 


Wir beginnen also in Zeile 1060 mit der Definition des Feldes für die Oktavwerte, 
die anschließend in Zeile 1070 in einer DATA-Zeile dargestellt.sind und ab Zeile 1080 
in das Feld OK$0 eingelesen werden. Die Voreinstellung für die Oktave (Zeile 1110) 
beträgt 3, und unseren Variablen für die aktuelle Oktavhöhe (0) wird dieser Wert 
in Zeile 1120 zugewiesen, wonach noch in Zeile 1130 der aktuelle Wert am Bild- 
schirm ausgegeben wird. 
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Genau wie bei den Oktavwerten werden die Klangwerte besetzt, wobei jedoch einige 
Änderungen zu berücksichtigen sind. Nach der Definition des Feldes, den Daten 
und dem Einlesen der Daten in das Feld KL$0 wird noch ein zusätzliches Feld K$0 
mit der gleichen Länge wie KL$( definiert, in dem die Namen der einzelnen Klang- 
nummern festgehalten sind. Auch diese werden ab Zeile 1230 eingelesen. Die Vor- 
besetzung der Klangfarbe: Die Orgel mit Klangnummer 7. 


Bevor die Klangnummer und der zugehörige Text in Zeile 1280 ausgegeben werden, 
wird der Variablen, die bisher den Oktavwert enthält,O$ noch die Klangfarbe hinzu- 
gefügt. 


Ähnlich wie bei der Oktavhöhe und der Klangfarbe wird bei der Notendauer vorge- 
gangen, wobei hier die beiden Felder ND$() für die Bezeichnung der Notendauer 
und DA$O für die Computereingabe der Notendauer innerhalb einer Zeile definiert 
werden (Definitionen mehrerer Felder innerhalb einer DIM-Anweisung ist möglich, 
wenn die einzelnen Felder durch Kommata getrennt sind). Die Daten für die Felder 
ND$O und DA$O wurden abwechselnd in der DATA-Zeile 1310 eingegeben, so daß 
sie auch innerhalb einer einzigen Schleife ab Zeile 1320 eingelesen werden können. 
Die Voreinstellung entspricht dem Wert für eine halbe Note. Als Abschluß wird wie- 
der die entsprechende Ausgabe auf dem Bildschirm getätigt. 


Als letzte Vorgabe wird analog zu obiger Vorgehensweise die Lautstärkeninforma- 
tion für den Computer aufbereitet, worauf wir jedoch nicht mehr näher eingehen 
wollen. 


Wichtig für den Ablauf sind besonders folgende Variablen: 


Aktuelle Oktavhöhe 
Aktuelle Klangnummer 
Aktuelle Notendauer 
Aktuelle Lautstärke 


Text für PLAY-Befehl — Oktavhöhen 


Text für PLAY-Befehl — Klangnummer 
Bezeichnung der Klangfarben 

Text für PLAY-Befehl — Notendauer 
Bezeichnung der Notendauern 

Text für PLAY-Befehl — Lautstärke 





Abfrageschleife 


In der nun folgenden Zeilengruppe ab Zeile 2040 werden fortlaufend die Eingaben 
von der Tastatur abgefragt. Liegt kein gültiges Zeichen vor, so wird in Zeile 2370 
auf den Abfragebefehl in Zeile 2040 zurückgesprungen. 
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Notenwerte 


Ab Zeile 2050 werden die Tasten für die einzelnen Noten (siehe Bild 4/4.4-1) in ent- 
sprechende Anweisungen für den PLAY-Befehl umgewandelt. Dabei stellt O$ die 
Zeichenreihe für den PLAY-Befehl dar, und die Note wird an die anderen Eingaben 
angehängt. Da jeweils nur eine Taste gedrückt werden kann, kann sofort wieder zur 
Abfrage in Zeile 2040 übergegangen werden, was erhebliche Rechenzeitvorteile 
bringt. 


Oktavwerte ändern 


Liegt kein Tastendruck für eine gültige Note vor, so wird in den Zeilen 2200 und 
2210 abgefragt, ob die Oktavhöhe verändert werden soll. Die Abfrage erfolgt über 
die ASC-Funktion, die mit dem Code für die Tasten „Cursor nach oben“ und „Cur- 
sor nach unten‘ verglichen wird. Die entsprechenden Unterprogramme ab Zeile 
3000 bzw. 3500 werden nur angesprungen, wenn durch den Tastendruck der gültige 
Bereich für die Oktaven (0-6) nicht über- bzw. unterschritten wird. 


Klangwerte ändern 


Die beiden Zeilen 2250 und 2260 arbeiten analog zu den Zeilen 2200 und 2210, je- 
doch werden hier die Tastencodes 29 und 157 abgefragt, die den Tasten „Cursor 
nach links“ und „Cursor nach rechts“ zugeordnet sind. Auch hier wird geprüft, ob 
der gültige Bereich verlassen würde, wenn die Unterprogramme ab den Zeilen 4000 
bzw. 4500 aufgerufen würden. 


An dieser Stelle noch etwas zu der Vorgehensweise bei den IF-Abfragen: Natürlich 
ist es auch möglich, z.B. Zeile 2250 wie folgt zu formulieren: „IF ASC(A$)=29 
AND K<9 THEN...“ Die Abfrage über die Gültigkeit des Bereiches wird in 
unserem Fall aber nur erreicht, wenn überhaupt der richtige Tastendruck vorlag, was 
erhebliche Rechenzeit spart, da die weiteren Zeilen früher erreicht werden, weil die 
UND-Verknüpfung nicht durchgeführt werden muß. 


Notendauer ändern 


Die Notendauer wird gemäß unserer Konvention mit der Taste „Pfeil nach links“ 
geändert. Da die Gültigkeit des Bereiches im Unterprogramm überprüft wird (Über- 
gang von ganzer Note auf Sechzehntelnote), braucht an dieser Stelle keine 
Plausibilitätsprüfung durchgeführt zu werden. 


Lautstärke ändern 


Als letztes wird geprüft, ob die Tasten zur Veränderung der Lautstärke gedrückt 
wurden. Die Vorgehensweise ist analog den Zeilen 2200/2210 bzw. 2250/2260. 
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Unterprogramm: Oktave erhöhen 


Die Unterprogramme ab Zeile 3000 werden nur erreicht, wenn die entsprechende Ta- 
ste gedrückt wurde und der Bereich bei einem Aufruf nicht über- bzw. unterschritten 
wird. In den Unterprogrammen brauchen wir uns also nur noch auf die Durchfüh- 
rung der veranlaßten Tätigkeit zu konzentrieren. 


Zunächst wird in dem Unterprogramm unser Wert für die aktuelle Oktave (O) er- 
höht. Da in O$ der gesamte Text für den PLAY-Befehl vorliegt, müssen wir selektiv 
den Teil ändern, der die Oktavhöhe betrifft. Bild 4/4.4-2 zeigt das Schema, das wir 
für die Variable O$ zugrunde gelegt haben. Dabei sind die ersten beiden Zeichen 
innerhalb der Zeichenreihenvariable den Oktavwerten vorbehalten. 






Zeichen- 
nummer 














Oktav- Klang- Dauer Laut- Töne 
werte farben stärke 





0-6 1 09 | WHQ 


15 


U 09 |#,6,D 
E,FG, 


AB 


Nichts, 
OD, 
GA 





mögliche [6] 
Werte 





































Bild 4/4.4-2 Schema für Aufbau der Variablen 0$ 


Sofern Sie das Programm nicht verändern, beinhaltet das erste Zeichen von O$ 
immer ein „O“, und das zweite Zeichen die jeweilige Höhe mit den Werten „0“ bis 
„6“. Im Feld OK$0 ist dem Index entsprechend eine Buchstabengruppe aus zwei 
Buchstaben bestehend vorbereitet (siehe Definition der Felder). Über unseren 
aktuellen Zeiger O greifen wir also das für uns richtige Element aus dem Feld heraus 
und positionieren es zu Beginn des Strings O$. Der Rest von O$ wird mit dem 
MID$(-Befehl unverändert übernommen. 


An dieser Stelle sei vermerkt, daß beim NID$O-Befehl auch der letzte Parameter 
weggelassen werden kann, der die Länge der zu „mittelnden“ Zeichenreihe angibt. 
In diesem Fall wird der Rest der Zeichenreihe herangezogen. Die Verwendung des 
MIDS$O-Befehls enthebt uns einiger Rechenarbeit, die beim RIGHT$O-Befehl gege- 
ben wären. 


Bevor wir das Unterprogramm verlassen, wollen wir noch den aktuellen Oktavwert 
am Bildschirm anzeigen. Dafür wird zunächst der Cursor in die linke obere Ecke 
des Bildschirms gebracht (inverses S für HOME) und anschließend um fünf Zeilen 
nach unten bewegt. 
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Unterprogramm: Oktave vermindern 


Außer Zeile 3520, in der eine Einheit von der Variablen O abgezogen wird, ergibt 
sich keine Änderung zu vorgenanntem Unterprogramm. 


Unterprogramm: Klang erhöhen 


Auch dieses Programmstück ist analog dem Unterprogramm ab Zeile 3000 auf- 
gebaut. Statt der Variablen O wird jetzt jedoch der aktuelle Wert für die Klangnum- 
mer (K) herangezogen. Außerdem ist der Wert für den PLAY-Befehl in der Variablen 
O$ im dritten und vierten Zeichen untergebracht, so daß man zunächst die beiden 
linken Zeichen und alle Zeichen ab dem fünften nach rechts übernehmen muß. 


In Zeile 4030 wird der entsprechende Wert mitten in den Wert von O$ eingebaut. 
Auch hier folgt wieder die Ausgabe auf dem Bildschirm, zunächst die neue Num- 
mer, anschließend die zugehörige Bezeichnung der Klangfarbe. 


Unterprogramm: Klang erhöhen 


Analog letztem Unterprogramm, lediglich in Zeile 4520, ändert sich die Rechenart 
(statt „+. 


Unterprogramm: Dauer ändern 


Auch das Unterprogramm ab Zeile 5000 ist in der Struktur aufgebaut wie die bisher 
beschriebenen. Beachten Sie jedoch, daß es zum Ändern der Notendauer nur ein 
einziges Unterprogramm gibt, und die Notendauer immer verringert wird. In Zeile 
5030 wird der Sprung von ganzer Note auf sechzehntel Note durchgeführt, da dem 
Wert O in D keine Daten in den Feldern DA$() und ND$() zugewiesen sind (die Pro- 
grammschleife in Zeile 1320 beginnt mit dem Wert „l“). Dem Buchstaben für die 
Notendauer ist in unserer Zeichenreihenvariablen O$ die fünfte Stelle vorgesehen, 
so daß die ersten vier Zeichen und alle Zeichen ab dem sechsten unverändert über- 
nommen werden. 


Unterprogramm: Lautstärke erhöhen 


Auch hier treffen wir wieder die analoge Vorgehensweise, wobei die Variable L die 
aktuelle Lautstärke angibt und natürlich in O$ das sechste und siebte Zeichen zur 
Übergabe an den Rechner beim PLAY-Befehl herangezogen werden. 


Unterprogramm: Lautstärke vermindern 
Siehe Lautstärke erhöhen; Subtraktion in Zeile 6090. 


Damit sind die grundlegenden Möglichkeiten eines Orgelprogrammes gegeben. Wie 
bereits erwähnt, steht nichts im Wege, daß Sie das Programm Ihren Wünschen an- 
passen und verbessern. Bisher haben wir von den Sound-Befehlen des C 128 nur den 
PLAY-Befehl kennengelernt. Dies wollen wir nun ändern und zum nächsten wichti- 
gen Befehl übergehen. 
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4/4.4.2 
ENVELOPE — Der Klang macht die Musik 





Mit dem PLAY-Befehl haben wir schon den wirkungsvollsten und mächtigsten Be- 
fehl kennengelernt. Durch seine hohe Zahl von Parametern ist es möglich, fast jeden 
beliebigen Klang zu erzeugen. Dabei ist man jedoch nicht auf die schon verwende- 
ten vorgegebenen Klangfarben festgelegt. Dem einen oder anderen wird diese oder 
jene Klangfarbe nicht gefallen oder er wünscht sich etwas ausgefalleneres. _Der 
ENVELOPE-Befehl macht dies möglich. 


Auch der ENVELOPE-Befehl hat eine Reihe von Parametern und weist damit eine 
ähnliche Mächtigkeit auf wie der PLAY-Befehl. Umsteigern von C 64 wird auffal- 
len, daß hier die tonbeeinflussenden Parameter des C 64 (Attack, Decay, Sustain 
und Release) sowie die Wellenform und natürlich die Impulsbreite (bei Rechteck- 
Schwingung) mit einem einzigen Befehl manipuliert werden können, wobei der Be- 
fehl auch noch komfortabler ist als derjenige aus Simon’s Basic. 


Das Format innerhalb der Bedienungsanleitung sieht vielleicht etwas kompliziert 
aus, ist es aber nicht. Die vielen Klammern sagen lediglich aus, daß die Parameter 
in beliebiger Weise weggelassen werden können, jedoch ist für einen weggelassenen 
Parameter jeweils das Komma zu setzen. Wollen Sie also die Implusbreite auf 2000 
setzen, so können Sie eingeben j 


ENVELOPE 1,,,,,2000 


dadurch behalten die anderen Parameter ihren Wert bei. Die Eingabe von 
ENVELOPE 1,2000 


würde zu einer unerlaubten Eingabe führen, da der Computer schließlich nicht wis- 
sen kann, welche der Parameter Sie meinen, wenn die Kommata nicht angeführt 
sind. Also: Anhand der Zahl der Kommata weiß der Rechner, welchen Wert Sie än- 
dern wollen. 


Noch einige Hinweise zum Befehl: Umsteigern vom C 64 wird die Bedeutung der 
einzelnen Parameter schon bekannt sein. Trotzdem wollen wir im folgenden noch 
einmal kurz auf ihre Bedeutung eingehen. Bild 4/4.4-3 veranschaulicht die Zusam- 
menhänge der vier Parameter Anschlagzeit, Abschwellzeit, Haltezeit und Auskling- 
zeit. Wie beim 64er auch, werden diese jeweils in einem Halbbyte gespeichert, je- 
doch braucht sich beim C 128 kein Anwender mehr darum zu kümmern, es sei 
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denn, er programmiert Maschinensprache. Der ENVELOPF-Befehl erspart ganz 
speziell eine umfangreiche Bit-Fummelei. 

















Lautstärke 
(+ lauter) 


(- leiser) 


Zehnertastatur 
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B ] 
Ab- 
schwel- 


Anschlag ien Halten Ausklingen 
{Attack} {Decay)  (Sustain) (Release) 


| 
| 
| 
| 
| 


Lautstärke 







Maximum-Lautstärke — — — — — 


| 
| 
| 
| 
| 
Ä 
Sustain-Level L De EN 

















t (Zeit) 
Anschlagzeit Ab- Diese Zeit Ausklingzeit 
schwell- wird durch 
zeit die Tondauer 
bestimmt 


Bild 4/4.4-3 


Wie aus Bild 4/4.4-3 ersichtlich, gibt der erste Parameter nach der Hüllkurvnummer 
(die Zeichnung stellt eine Hüllkurve dar) die Zeit an, die der Rechner benötigen soll, 
bis er von Lautstärke O bis zur eingestellten Lautstärke zum Anschwellen benötigen 
soll. Der nächste Parameter gibt die benötigte Zeit zur Verringerung der Lautstärke 
bis auf den Sustain-Level wieder. Der vierte Parameter in ENVELOPE-Befehl gibt 
jedoch nicht die Haltezeit an, sondern den sogenannten Sustain-Level, d.h. die 
Lautstärke, auf die der Ton nach dem Abschwellen abfällt. Die Haltezeit wird durch 
die verwendete Tondauer bestimmt. Der Parameter für die Ausklingzeit wird ausge- 
wertet, wenn der Ton ausgeschaltet wurde, d.h. die Ausklingzeit ist nicht in der Ton- 
dauer enthalten. Dies ist besonders für Klangeffekte wichtig, da ein erneuter Ton 
das Ausklingen des vorhergehenden — innerhalb der gleichen Stimme — verhin- 
dert. 


Damit haben Sie einen Überblick über die wichtigsten Parameter, die einen Ton bee- 
influssen können. Generell beeinflußt auch noch die Wellenform den Ton, wobei 
sich bei einer Dreieckwelle (Zeichnungen zu den Wellenformen siehe Handbuch Sei- 
te 4-156) ein leerer hohler Ton ergibt, die Sägezahn-Wellenform, die sicherlich nicht 
nur ihren Namen aufgrund der Wellenform hat, sondern sich auch so ähnlich an- 
hört, bei einem Rechteckklang sich eine Mischung aus beiden vorgenannten ergibt, 
und ein Rauschen sicherlich nicht mehr als Ton anzusehen ist, was jedoch beim 
Schlagzeug nützliche Effekte gibt. Etwas abseits steht die Ringmodulation, wo die 
Töne teilweise etwas verzerrt klingen. 
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Die Hüllkurven (siehe Bild 4/4.4-3) stellen mit der gewählten Wellenform also die 
unterschiedlichen Klänge in den Tönen dar, wobei bei einer Rechteckwelle durch die 
Pulsbreite auch hier der Klang noch verändert werden kann. Damit Sie sehen, wie 
sich die Änderung der einzelnen Parameter auf die Töne auswirkt, wollen wir im 
folgenden ein kleines Programm vorstellen: 


































- BEISPIEL EMYELDPE- BEFEHL, 
FH. EECHTEIE EAUSCHEH PTNGEDDHN 
HL Te) 

ESCH. "AB 

= HR 

KLTNGEHO: "All 

HTMELLENFORM © SMFEEMEN 
3 NEST ME, ALL HAGHES FIN 











Listing 4/4.4-4 


Im Prinzip werden innerhalb von fünf ineinandergeschachtelten Schleifen jeweils 
nur die einzelnen Parameter beim ENVELOPE-Befehl umbesetzt. Um jedoch einen 
Hinweis über die aktuell „erklingenden“ Daten zu bekommen, werden diese zusätz- 
lich am Bildschirm angezeigt. 


Dazu wird zunächst in Zeile 120 ein Feld WF$( dimensioniert, indem die Namen 
der einzelnen Wellenformen untergebracht werden. Da sich das Anhören aller Mög- 
lichkeiten über einen etwas zu langen Zeitraum erstrecken würde (es gibt schließlich 
327.680 Möglichkeiten, ohne Berücksichtigung der Impulsbreite bei Rechteck wel- 
len), haben wir mit einem weiteren Parameter (N) eine Schrittweite vorgegeben, mit 
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der die einzelnen Parameter geändert werden sollen. Diese Schrittweite können Sie 
nach eigenen Wünschen ändern, jedoch sei aus erwähntem Grunde von der Schritt- 
weite 1 abzuraten. 


Ab Zeile 200 befinden sich die Schleifenbeginne der fünf Parameter, wobei die Va- 
riablen anhand der Angaben im Handbuch ausgewählt wurden. Ab Zeile 260 wer- 
den die aktuellen Daten ausgegeben, und in Zeile 320 wird der Hüllkurvennummer 
2 der entsprechende Klang zugeordnet. Zeile 330 beinhaltet die Ausgabe einer einfa- 
chen Tonleiter. Wird eine Taste gedrückt, so wird die nächste Tonleiter erzeugt, wie 
es durch die Zeilen 350 und 370 vorgegeben ist. 


Zur Ermittlung eines gewünschten Klanges können Sie auch einzelne Schleifen aus- 
lassen. Achten sie jedoch auf die Reihenfolge der Variablen beim NEXT-Befehl in 
Zeile 370. Bekanntermaßen verläuft diese Reihenfolge genau umgekehrt der Reihen- 
folge bei den FOR-Befehlen. 


Damit haben Sie bereits die erste Möglichkeit, sich selbst eine Hüllkurve nach eige- 
nen Wünschen zu definieren. Bis zu zehn solcher Hüllkurven können Sie definieren, 
da Sie alle vorgegebenen Hüllkurven nacheinander ersetzen können. Durch die Ver- 
wendung mehrerer ENVELOPE-Befehle innerhalb eines Programmes sind jedoch 
auch mehr Hüllkurven möglich (allerdings nicht gleichzeitig). Ebenso wie bei einer 
normalen Orgel können Sie mit Hilfe des ENVELOPE-Befehls also die Registrie- 
rung (Klangfarben) nach bestimmten Abschnitten in einem Musikstück ändern. 


Vielleicht haben Sie aber auch schon bestimmte Vorstellungen über einen Klang und 
wollen nun noch etwas daran feilen. In diesem Fall hilft Ihnen sicherlich unser näch- 
stes Programm. 


Bedienungsanleitung 


Nachdem Sie das Programm gestartet haben, können Sie mit den Ziffern 1 bis 8 
alle Parameter des ENVELOPE-Befehls anwählen. Außerdem ist es möglich, eine 
gewünschte Melodie einzugeben. Nachdem Sie eine Ziffer eingegeben haben, er- 
scheint am unteren Bildschirmrand die Frage „NEUER WERT?“ Hier können Sie 
die neuen Daten eingeben. Bei der Wellenform genügt die Eingabe der der Wellen- 
form voranstehenden Nummer. Die aktuelle Wellenform wird in inverser Schrift an- 
gezeigt. Wollen Sie den Ton/die Melodie mit den angezeigten Parametern spielen, 
so drücken Sie die Taste „9“. 
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Listing 4/4.4-5 (1) 
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Listing 4/4.4-5 (2) 
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Listing 4/4.4-5 (3) 


Programmbeschreibung 


Sicherlich genügt das dargestellte Programm nur minimal den Anforderungen. Wer 
sich schon ein bißchen in der Grafik auskennt, kann sich vielleicht die durch die 

‘ Parameter gegebene Hüllkurve zusätzlich auf dem Bildschirm darstellen. Auch die 
Ansteuerung und Änderung der einzelnen Parameter über Joystick dürfte bei ent- 
prechenden Vorkenntnissen leicht zu machen sein. 


Beginnen wir jedoch mit der Besprechung des vorliegenden Programmes. In den 
beiden Parametern UN$ und OB$ werden die Über- und Unterstreichungsstriche für 
die Überschrift in einem einzigen Zeichen festgehalten. Die Grafikzeichen finden 
Sie auf der Tastatur. Im weiteren lernen Sie einen kleinen Trick kennen, wie man 
Zeichenreihen aus den gleichen Zeichen mit einer bestimmten Länge definieren 
kann, ohne diese bei der Eingabe abzuzählen. Zuerst werden dazu die Zeichenreihen 
entsprechend oft verdoppelt, in unserem Fall siebenmal. Dann wird mit Hilfe des 
LEFT$(-Befehls die gewünschte Anzahl von Zeichen abgeschnitten. 
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Wie in den bisher vorgestellten Programmen auch, wird im weiteren zunächst ein 
Feld (WF$) definiert, in dem die Texte zur Bezeichnung der verschiedenen Wellen- 
form abgelegt werden. Als Vorgabe für den PLAY-Befehl dient uns die Variable 
PL$, in der wir eine Tonleiter in der dritten Oktave abgelegt haben. Für unsere 
Zwecke wird zunächst die Hüllkurve Nummer 0 ausgewählt, die Sie jedoch später 
ändern können. Wenn Sie also einen gewünschten Klang gefunden haben und weiter 
experimentieren wollen, so ändern Sie — nachdem Sie sich die Daten vielleicht 
notiert haben — die Hüllkurvennummer, und die fertige Klangfarbe bleibt erhalten. 
Für Anschlagzeit, Abschwellzeit, Haltelevel und Ausklingzeit wurden jeweils mitt- 
lere Werte vorgegeben. Ebenfalls für die Impulsbreite, die jedoch nur beim Recht- 
eckklang wichtig ist. 


Nachdem in Zeile 40 zunächst der Bildschirm gelöscht wurde, wird der Unterstrei- 
chungsstrich die Überschrift und der Oberstreichungsstrich ausgegeben. Anschlie- 
Bend erfolgt die Ausgabe der Wellenform, wobei jedoch — durch die Variable WF 
gekennzeichnet — die aktuelle Wellenform in reverser Schrift dargestellt wird. Dies 
wird erreicht, indem die reverse Schrift in Zeile 2120 bei der entsprechenden Wellen- 
form eingeschaltet wird, und in Zeile 2140 dieser Zustand rückgängig gemacht wird. 


Dann werden ab Zeile 2190 die weiteren Parameter am Bildschirm ausgegeben, 
ebenso die Frage nach dem Änderungswunsch an den Anwender. Es folgt die üb- 
liche Warteschleife mit der obligatorischen Plausibilitätsprüfung und anschließen- 
dem Programmverteiler auf die entsprechende Zeilengruppe ab Zeile 3000. 


Die Unterprogramme zum Ändern der einzelnen Parameter sind alle in der gleichen 
Form aufgebaut. Zunächst erfolgt die Frage „NEUER WERT“ an den Anwender, 
womit der neue Wert der entsprechenden Variablen (WF: Wellform, PL$: Melodie; 
N: Hüllkurvennummer; AN: Anschlagzeit; AB: Abschwellzeit; HA: Haltezeit; AU: 
Ausklingzeit und IB: Impulsbreite) erfaßt wird. Um ungewünschte Reaktionen zu 
vermeiden, wird bei der Wellenform noch eine Plausibilitätsprüfung durchgeführt. 
Bei den anderen Parametern ist dies relativ unnötig, da jeweils nur ein Wert modulo 
15 (bzw. ein Text bei einer Melodie) angenommen wird. Auf Wunsch können Sie 
auch hier noch Plausibilitätsprüfungen einfügen. 


Der Übersichtlichkeit halber sind beim ENVELOPE-Befehl jeweils alle Parameter 
aufgeführt, obwohl die nicht geänderten — wie eingangs des Kapitels erwähnt — 
weggelassen werden könnten. 


Zum Spielen der Melodie wird zunächst hinter dem Buchstaben „T“ die um das 
Leerzeichen (positive Vorzeichen) gekürzte, in eine Zeichenreihe umgewandelte Zahl 
an den Rechner im PLAY-Befehl übergeben, anschließend die Melodie. 


Mit den beiden in diesem Kapitel vorgestellten Programmen haben Sie bereits die 
Möglichkeit, sich einen Klang nach Ihren Wünschen auszusuchen, mit dem Sie beim 
PLAY-Befehl arbeiten können. 
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Sobald Sie die Daten eines gewünschten Klanges herausgefunden haben, sollten Sie 
sich diese Daten auf jeden Fall notieren, da nach erneutem Einschalten des Rech- 
ners die Klangfarben wieder die vorgegebenen Werte — siehe Handbuch — be- 
inhalten. 


Aber mit dem ENVELOPE-Befehl sind noch nicht alle Möglichkeiten ausgeschöpft, 
den Klang zu beeinflussen. Eine weitere Möglichkeit bildet die FILTER-Anweisung, 
mit der Sie Feinheiten des Klanges einstellen können. 


44.4.3 


Filter — den Klang verfeinern 





Wie bereits erwähnt, bildet der FILTER-Befehl eine weitere Möglichkeit, den Klang 
— wenn auch nur in geringem Umfange — zu ändern. Über Filter kann man sehr- 
viel und ausführlich berichten, was jedoch den Rahmen dieses Buches sprengen 
würde. Die Möglichkeit der Filter sind im Handbuch des C 128 ab Seite 4-162 sehr 
gut beschrieben, so daß wir uns hier auf den Einbau der Filteranweisung in das zu- 
letzt dargestellte Programm beschränken wollen. Auf jeden Fall sollten Sie die Mög- 
lichkeit des Filters ausnutzen, aber vorher ausgiebig mit diesem Befehl herum- 
probieren. 


Da wir auch einige wenige Zeilen innerhalb des bereits aufgeführten Programmes 
geändert haben, wollen wir im folgenden das komplette Listing ausdrucken, was 
auch denen zugute kommt, die den ENVELOPE-Befehl in diesem Buch übersprun- 
gen haben. 
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Listing 4/4.4-6 (1) 
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IF UR=I 
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Die hier nicht beschriebenen Zeilen sind zum Schluß des vorangegangenen Kapitels 
erklärt. Innerhalb des Listings wurden nur einige wenige Zeilen geändert, so wurde 
z.B. die Zeile 2315 eingefügt, wo das Unterprogramm zur Ausgabe der Filterdaten 
auf dem Bildschirm aufgerufen wird. Außerdem wurde Zeile 2335 eingefügt, die als 
Eingabetaste auch noch ein „F“ zuläßt, wonach zu Zeile 4000 verzweigt wurde, 
Außerdem wurde die Anzahl der „Cursor nach unten“ (Reverse Q) in Zeile 2320 um 
drei Stück vermindert. Achten Sie unbedingt darauf, daß die Abfrage nach dem „F“ 
vor der Plausibilitätsprüfung erfolgt, da sonst der Programmteil nicht angesteuert 
würde. 


Für die Filterwerte wurden folgende Variablen verwendet: 





Filterfrequenz 
Merker für Tiefpass (l=ein; 0=aus) 


Merker für Bandpass (l=ein; 0=aus) 
Merker für Hochpass (l=ein; 0=aus) 
Resonanz (Werte 0-15) 





Diese Werte werden ab Zeile 4040 erfaßt. Da hier mehrere Werte gleichzeitig zu er- 
fassen sind, haben wir uns eines kleinen Trickes beholfen. Die Cursorsteuerzeichen 
bei den PRINT- und INPUT-Befehlen bedeuten jeweils einmal „Cursor nach oben“, 
so daß nach der Erfassung eines Wertes jeweils diese Zeile durch die nächste Anwei- 
sung gelöscht wird. In die gleiche Zeile wird durch das erwähnte „Cursor nach 
oben“ der Text für den nächsten INPUT.Befehl gesetzt. 


Sofern Sie nicht alle Werte ändern wollen, hilft Ihnen eine Eigenschaft des C 128: 
Wird bei einem INPUT-Befehl keine Eingabe gemacht, so wird der Wert der Varia- 
blen nicht geändert. In Zeile 4140 werden die Daten ausgegeben, und anschließend 
wird zur Ausgabe der gewählten Daten auf dem Bildschirm übergegangen. 


Ab Zeile 5000 haben wir ein Unterprogramm zur Ausgabe der Filterdaten angehan- 
gen, da hierfür im Rahmen des gegebenen Programmes zu wenig Platz gewesen 
wäre, und die Zeilennummern des Basic-Programmes nicht geändert werden sollten. 
Auch hier werden wieder die angewählten Filterarten (Tiefpass, Bandpass, Hoch- 
pass) durch inverse Schrift dargestellt, sofern sie angewählt sind. Die Filterfrequenz 
und der Resonanzwert wird jeweils zahlenmäßig ausgegeben. 


Alle Theorie ist grau! Probieren geht über Studieren! 
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4/4.4.4 
TEMPO — wählen Sie das richtige Tempo 





Der TEMPO-Befehl soll hier nur der Vollständigkeit halber erwähnt werden. Auch 
in der Musik ist eine Viertelnote nicht gleich eine Viertelnote — auch wenn sie die 
gleiche Notendarstellung haben. Diese unterschiedlich dauernden Musiknoten 
können Sie mit dem TEMPO-Befehl beeinflussen. 


Aber auch noch andere Einsatzmöglichkeiten gibt es für den TEMPO-Befehl. Wenn 
Sie z.B. in unserem ersten Beispielprogramm beim ENVELOPE-Befehl verschiedene 
Tempo-Ziffern eingeben, so können Sie die Auswirkungen leicht selbst feststellen. 
Schnell aufeinanderfolgende Töne (TEMPO über 200) in Verbindung mit Rauschen 
und bei Verwendung einer einfachen Tonleiter mit langer Ausklingdauer (über 10) 
kann man sehr leicht zur akustischen Darstellung eines Maschinengewehrs verwen- 
den. 


Auch hier hilft das Herumprobieren, und mit dem bisher Aufgezeigten sollte es ein 
leichtes für Sie sein, auch noch eine Änderung des Tempos in die vorgestellten Pro- 
gramme einzubauen. 


4/4.4.5 
SOUND — Geräusche nach Wahl 





Bisher haben wir uns nur mit „normalen“ Tönen beschäftigt. Mit dem SOUND- 
Befehl haben Sie jedoch die Möglichkeit, beliebige Klangeffekte zu erzeugen. 


War der ENVELOPE-Befehl ein Hilfsmittel, um Klangfarben für mit dem PLAY- 
Befehl gespielten Notenwerte zu ändern, so bietet der SOUND-Befehl beides in 
einem. Auch hier sollten Sie sich durch die vielen Klammern im Handbuch beim 
Format nicht beeindrucken lassen. Diese sagen lediglich aus, daß die Stimme, die 
Frequenz und die Dauer eingegeben werden müssen, Richtung, Maximalfrequenz, 
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Stufe, Wellenform und Impulsbreite jedoch optional sind. Auch hier gilt wieder, daß 
fehlende Parameter möglich sind, die zwischen den Parametern stehenden Komma- 
ta jedoch zu setzen sind. 


Ein Beispielprogramm ähnlich unserem ersten beim ENVELOPE-Befehl ist an die- 
ser Stelle nicht sehr sinnvoll, auch wenn man für Frequenz, Dauer, Maximalfre- 
quenz und Stufe in den FOR... .NEXT-Schleifen jeweils große Schrittweiten heran- 
zieht. Auf jeden Fall empfiehlt sich aber die Umarbeitung des zweiten 
Beispielprogrammes. Sie erinnern sich: Alle Parameter des ENVELOPE-Befehls 
konnten durch Eingabe am Bildschirm geändert werden. Dieses kleine Projekt wol- 
len wir im folgenden in Angriff nehmen: 


LIEBERSCHEIFT 


User 
Re 


HELLEHFEORM 
TIM MERLID 


1 DATA S-DEEIENE AREGEEAHH. S-RECHTEO FAUSCHEH 


FOR Isa T 
EHRT 
HERT 


SOUHE-FRREAMETER 








Listing 4/4.4-7 (1) 
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Listing 4/4.4-7 (2) 
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Listing 4/4.4-7 (3) 





Mit diesem Listing werden Sie wohl kaum noch Schwierigkeiten haben, sowohl das 
Zirpen einer Grille, aber auch das Geheul einer amerikanischen Polizeisirene 
nachzumachen. Ebenso das Verschwinden eines Raumschiffes im tiefen Raum oder 
akustische Klangeffekte für Spiele bereiten keine Schwierigkeiten mehr, sofern Sie 
sich durch einiges Probieren die Bedeutung der einzelnen Parameter klargemacht 
haben. 


Hier jedoch zunächst die Programmbeschreibung, die wir nicht mehr so ausführlich 
halten wollen, da wir beim ENVELOPE-BefeHl ein ähnliches Programm bereits vor- 
gestellt haben. 


Auch bei diesem Listing beginnen wir wieder mit den Variablen für die Überschrift 
(UN$;OB$). Bei der Wellenform ist zu berücksichtigen, daß eine Ringmodulation 
beim SOUND-Befehl nicht mehr zur Verfügung steht, demgemäß nur noch vier 
Wellenformen auszuwählen sind und WF$O nur mit „3“ zu dimensionieren ist. 
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Für den Sound wurden grundsätzlich andere Variablen herangezogen, so daß eine 
mnemotechnische Bezeichnung wiederum gewährleistet ist. Die Variablen haben 
folgende Bedeutung: 


— 


SI : Stimme (Die Variable ST ist für den Status 








reserviert) 
FQ : Fregenz 
DA : Dauer 


RI : Richtung 

MA : Maximalfrequenz 
SU : Stufe 

WF : Wellenform 


IB : Impulsbreite 


Noch etwas zur Maximalfrequenz: Um die Richtung (auch ein sehr wichtiger Fak- 
tor) voll zur Geltung zu bringen, sollte auf jeden Fall die Maximalfrequenz niedriger 
als die eingestellte Frequenz (FQ) sein, da sich sonst keine an- und abschwellenden 
Effekte ergeben. 











Die Bezeichnung im Handbuch ist zwar etwas mißverständlich, trotzdem haben wir 
sie beibehalten. Im Prinzip funktioniert das An- und Abschwellen zwischen den 
beiden Frequenzen, die wir in den Variablen FQ und MA festhalten. 


Wie bei unserem ENVELOPE-Programm wird zunächst die Wellenform und — als 
wichtigstes, abgesetzt von den anderen Parametern — die Frequenz angegeben. Es 
folgen die weiteren Parameter und die Abfrage für den Anwender. Im folgenden 
wurde die Ausgabe des Tones so gehandhabt, daß der SOUND nach jeder Ände- 
rung ertönt, mit einem Druck auf die Taste „G“ läßt sich jedoch das Geräusch auch 
ohne Änderung erfassen. 


Das Erfassen und die Umbesetzung der Parameter beim SOUND-Befehl erfolgt 
analog dem bereits beschriebenen Programm. 


Sofern Sie das eine Programm aus dem anderen Programm durch Ändern erreichen 
wollen, achten Sie darauf, daß Sie jeweils den ENVELOPE-Befehl durch den 
SOUND-Befehl (richtige Parameter!) ersetzen. 


Melodien mit dem SOUND-Befehl zu spielen, sollten Sie vermeiden, dafür ist er 
nicht gedacht. Was sind nun die besonderen Eigenschaften des SOUND-Befehls? 
Um die Wirkung des SOUND-Befehls zu beschreiben, betrachten .wir uns Bild 
4/4.4-4. 


Wenn man den Einfluß auf die Parameter erst einmal kennt, ist es nicht weiter 
schwierig, ein gewünschtes Geräusch durch kurzes Probieren herauszufinden. 
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Dargestellt wurde ein anschwellender Ton, der durch den Richtungsparameter 0 er- 
zeugt wird. Würde der Richtungsparameter „I“ betragen, so würden die Kurven 
nicht von unten nach oben, sondern von oben nach unten verlaufen. Wäre der Rich- 
tungsparameter hingegen „2‘ so würde keine senkrechte Flanke entstehen, sondern 
der Ton ebenso abschwellen wie er angeschwellt ist. Der Bereich, in dem der Ton 
hin und her schwellt, ist durch die beiden Parameter Frequenz und Maximal- 
frequenz (besser Minimalfrequenz) gegeben. Die Dauer bestimmt sinngemäß die 
Dauer des Tones, und die Schnelligkeit des An- und Abschwellens wird durch den 
Parameter Stufe dargestellt. Die Stufen sind in der Zeichnung auch angedeutet. 


Im Prinzip sehen Sie nichts anderes als eine Art von Sägezahnkurve. Beachten Sie 
jedoch dabei, daß sich innerhalb der Kurve noch eine Dreieck-, Sägezahn- oder 
Rechteckschwingung befinden kann bzw. ein oszillierendes Rauschen. 


Auf jeden Fall sollten die Parameter sehr gut aufeinander abgestimmt sein. In unse- 
rem Beispiel wird der Ton beim zweiten Abschwellen abgebrochen, da der Zeitraum, 
der durch den Parameter Dauer bestimmt ist, zu Ende war. Eine zu kurze Dauer, 
wie sie ebenfalls in unserem Beispiel dargestellt ist, würde z.B. dafür sorgen, daß der 
Ton noch nicht mal bis zu seiner höchsten Frequenz anschwellen kann. 


Nachdem Sie nun bereits etwas über den Einfluß der Parameter beim SOUND- 
Befehl wissen, wollen wir im folgenden ein paar Beispiele durchspielen, die das 
zeichnerisch Dargestellte weiter verdeutlichen. 


PD ——————— 


Frequenz 
(Parameter) 


Maximal- | 
frequenz 














Zeit 








Dauer zu kurz 


eingestellt | 








Bild 4/4.4-4 Parameter beim SOUND-Befehl (Richtung = 0: zunehmende Klangstufe) 
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Stellen Sie zunächst die Parameter wie folgt ein: 





Wellenform : Rechteck 
Frequenz : 5000 
Stimme = 

Dauer : 300 
Richtung :0 
Maximalfrequenz : 2000 
Stufe : 50 
Impulsbreite : 2000 





Wenn Sie nun die Taste „G“‘ drücken, ertönt ein öfters anschwellender Ton, wie ihn 
vielleicht eine Signalsirene hervorrufen würde. Als erstes wollen wir den Parameter 
Nummer 7 (Stufe) ändern. Zunächst setzen wir ihn auf den Wert 100. Unser Heulen 
geht nun doppelt so schnell vonstatten wie vorher. Ist der Ton vorher fünfmal von 
unten nach oben in der Tonhöhe angeschwollen, so schwillt er jetzt zehnmal an. Den 
gegenteiligen Effekt erreichen Sie, wenn Sie bei Stufe den Wert 10 eingeben: Jetzt 
schwillt der Ton nur einmal an. 


Wenn Sie bei Stufe den Wert 500 eingeben, ergibt sich ein Sound, wie Sie ihn viel- 
leicht von Spielautomaten aus Spielhallen kennen. Etwas schneller wird er natürlich 
noch beim Wert von 1000, und bei einem Wert von 32500 ist kein Unterschied zu 
erkennen. Die Grenze, wo man noch unterschiedliche Töne (ein Oszillieren) hören 
kann, liegt etwa bei einer Stufenhöhe von 3000. Die Stufe ist also für die Steilheit 
(der aufsteigenden Geraden in unserer Zeichnung) des an- bzw. abschwellenden To- 
nes zuständig und bestimmt u.a. zusammen mit der Dauer, wie oft ein Ton an- und 
abschwillt. Kleine Werte bedeuten nach unseren Versuchen also ein langsames An- 
und Abschwellen, große Werte ein — meist nicht mehr hörbares — Vibrieren. 


Setzen wir nun unseren Stufenwert wieder auf 100 und verändern die Richtung, in- 
dem wir ihr den Wert „I“ geben. Wir hören nun keine anschwellenden Töne mehr, 
sondern abschwellende, was sofort einen neuen Geräuscheffekt ergibt. 


Als nächstes ändern wir den Richtungsparameter noch auf den Wert „2“, was einen 
an- und abschwellenden Ton erzeugt. Wenn Sie nun die Stufe wieder auf den Wert 
50 bringen, kommt Ihnen das Geräusch sicherlich bekannt vor. 


Nun probieren Sie die verschiedenen Wellenformen, indem Sie nacheinander die 
Parameter 0, 1 und 3 ebenfalls ausprobieren. Für das Heulen einer (amerikanischen) 
Polizeisirene ist sicherlich die Sägezahn-Wellenform besser geeignet. Bei der Wellen- 
form Rauschen sollte man vielleicht noch etwas mit der Geschwindigkeit des An- 
und Abschwellens heruntergehen und die Stufenzahl eventuell auf den Wert 25 
setzen, was Ähnlichkeit mit dem Geräusch eines brausenden Sturmes hat. 
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In diesem Fall kann man die obere Frequenzgrenze auch etwas höher ansetzen und 
die Stufenzahl wieder auf 100 erhöhen. Wenn Sie nun den Richtungsparameter auf 
den Wert „I“ setzen, die Stufe auf 200 und die Frequenz auf 2000, befinden Sie sich 
mitten in einer Weltraumschlacht. Diesen Effekt können Sie erhöhen, wenn Sie die 
Dauer auf 600 hochsetzen und anschließend durch schnelles Hintereinanderdrücken 
der Tasten 3, 1, RETURN, 3, 2, RETURN, 3, 3, RETURN zu einem wahren 
Weltraum-Inferno werden lassen. Sie haben das Geräusch nun auf allen drei Stim- 
men, und durch die fortlaufende Eingabe auch zeitlich versetzt. 


Wenn Sie jetzt auf Rechteck-Wellenform umschalten, haben Sie auch gleich den 
Gegner. 


Geben Sie folgende Parameter ein: 


Wellenform : Rechteck 
Frequenz : 

Stimme 5 

Dauer : 300 


Richtung : 
Maximalfrequenz : 
Stufe : 
Impulsbreite 





Erkennen Sie das Geräusch? 


Und nun viel Spaß beim Probieren. 


4/4.4.6 


VOL — wie laut soll’s denn sein? 





Der VOL-Befehl soll hier nur der Vollständigkeit halber erwähnt werden. Da die Be- 
fehle PLAY, ENVELOPE, FILTER und TEMPO in gewisser Weise zusammen ge- 
hören, beim PLAY-Befehl hinter einem U auch die Lautstärke angegeben werden 
kann, erübrigt sich hier ein VOL-Befehl weitestgehend. Sinnvoll ist der VOL-Befehl 
jedoch in Zusammenhang mit SOUND. 
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4/4.6 
Mausprogrammierung 


Autor: Rainer König 








Die Maus als Hilfsmittel zur interaktiven Benutzerführung ist heute in aller Munde. 
Erstmals trat sie bei Apple’s LISA auf, ihr folgten die optische Maus von TELE- 
VIDEO und die Maus von Microsoft (hier in Verbindung mit dem Textprocessor 
‚WORD?* der Firma Microsoft). Auch Apple’s MacIntosh erhielt wieder die be- 
reits von LISA her bekannte Maus. Was sind nun aber die Eigenschaften einer 
Computer-Maus? 


Eine Maus ist für den Benutzer nichts anderes als ein Schiebekasten (in der Fach- 
welt heißt das umgedrehte Rollkugel) mit einem oder mehreren Tasten. Indem 
der Benutzer dieses Kästchen auf dem Schreibtisch hin- und herschiebt, kann er 
einen Pfeil oder ein ähnliches „Deutungssymbol“ auf dem Bildschirm entspre- 
chend der Bewegungen der Maus auf seinem Schreibtisch steuern. Mit Hilfe die- 
ses Pfeils kann er beispielsweise Funktionen aus einem Menü in einer sehr ein- 
fachen Weise auswählen: Er bewegt den Pfeil auf den Text (bzw. das Piktogramm) 
der Funktion und drückt auf den Knopf an der Maus. Da der Benutzer in die- 
sem System nur eine Taste drücken muß, sind Fehleingaben weitgehend ausge- 
schlossen. Da er zusätzlich aber auch den Pfeil auf dem Bildschirm im Auge ha- 
ben wird, kann er Reaktionen auf seine Funktionsauswahl auch sehr schnell er- 
kennen. Dadurch ist die Maus das ideale Bedienelement für den ungeübten Com- 
puterbenutzer, da hier eine wesentliche bessere Übersichtlichkeit gegeben ist, 
als bei der manchmal recht verwirrenden Rechnertastatur. 


Allerdings hat das Mauskonzept auch einen kleinen Nachteil: Das Positionie- 

ren der Maus braucht auch eine gewisse Zeit, tastaturgeübte Anwender könnten 
hier mittels Tasteneingaben schneller sein. Da die Maus jedoch hauptsächlich 
für ungeübte Computer-Anwender gedacht ist, fällt dieser Nachteil kaum ins 
Gewicht. 


Im Folgenden wollen wir Ihnen das Wichtigste zum Thema Maus in einem Kurs 
aufzeigen. Da nicht jeder eine Maus besitzt, stellen wir zunächst ein Programm 
vor, das die programmtechnischen Abläufe einer Maus mit dem Joystick simu- 
liert. Als Beispielprogramme sind eine Datenauswertung und ein Zeichenpro- 
gramm vorgesehen. 
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4/4.6.1 
Maussimulation mit dem Joystick 





Die bisherigen „Maus-Systeme“ sind alle für Personal-Computer der oberen Preis- 
klasse konzipiert, was wohl darauf zurückzuführen ist, daß man hierfür einen 
grafikfähigen Computer braucht. Der Commodore 64 liegt zwar preislich weit 
unter den Personal-Computern, hat jedoch alle Voraussetzungen die zum Ein- 
satz der Maus notwendig sind (Joystickanschluß, Grafik, Sprites). Aufgrund die- 
ser idealen Hardwarevoraussetzungen ist die Implementierung einer Maus auf 
dem Commodore 64 nicht weiter schwierig. Die durch die ‚Sprites‘ gegebene 
Möglichkeit Objekte frei auf dem Bildschirm bewegen zu können, reduziert die 
Maus auf dem Commodore 64 auf folgendes System: Man nehme einen Sprite 
(kann wie ein Pfeil aussehen) und steuere diesen mit einer Maus bzw. mit ei- 
nem Joystick auf dem Bildschirm. Damit ist bereits eine Minimal-Maus imple- 
mentiert. 


4/4.6.1.1 
Grundlagen 





Nachdem am Ende des vorigen Abschnittes schon kurz die Problematik der Maus- 
Software aufgezeigt wurde, wollen wir nun ein Maus-Steuerprogramm vorstel- 
len, das auch mit einem Joystick verwendet werden kann. 


Grundvoraussetzung ist natürlich, daß sich das Maus-Maschinenprogramm im 
Speicher befindet, entweder wird es als Maschinenprogramm geladen, oder aber 
von einem BASIC-Programm in den Speicher gePOKEd (siehe Beispiel-Listing). 


Die Ansteuerung der Maus vom Anwenderprogramm aus geschieht über die Be- 
fehle PEEK, POKE und SYS. Dies hat den Vorteil, daß die Maus auch in Pro- 
grammen verwendet werden kann, die später einmal compiliert werden (z.B. mit 
PETSPEED). Für die Anwendung ist allerdings die Kenntnis von einigen wichti- 
gen Adressen notwendig, die hier angegeben werden. 





Teil 4 Kapitel 4.6 Seite 3 





Spezielle Programmierthemen 








4.6 Mausprogrammierung Teil 4: Software-Erstellung 


Das Maus-Programm belegt 512 Bytes ab der Adresse 49152. Dieser Bereich darf 
deshalb vom Anwenderprogramm nicht überschrieben werden. 


Um die Maus mit Parametern zu versorgen, wird ein Mouse-Control-Block (MCB) 
benutzt, der bei der Adresse 49643 beginnt. Folgende Werte werden im MCB 
übergeben: 





MCB+00: Xmin (L,H) 
MCB+02: Xmin 
MCB+03: Xmax (L,H) 
MCB+05: Ymax 











In diese Register wird vom Anwenderprogramm aus geschrieben. Sie definieren 
ein Bildschirmfenster, das die Maus nicht verlassen kann. Die X-Koordinaten 
umfassen 2 Byte, da hier Werte von 0..319 möglich sind (Angabe in Hires-Ko- 
ordinaten, hier ist die linke obere Ecke des Schirms gleich der Koordinate 0,0). 
Xmin, Ymin definieren die linke obere Ecke dieses Fensters, Xmax, Ymax die 
rechte untere Ecke. 


MCB+06: OffsetX 
MCB+07: OffsetY 


Auch diese beiden Register müssen vom Anwenderprogramm aus versorgt Wer- 
den. Sie enthalten den Offset in Rasterpunkten, um den die Pfeilspitze der Maus 
(oder generell der Punkt, mit dem gedeutet wird) von der linken oberen Ecke 
des entsprechenden Sprites entfernt sind. Dies hat die Ursache darin, daß der 
Benutzer die Form der Maus auf dem Bildschirm frei wählen kann. So kann er 
beispielsweise einen Pfeil oder aber ein Fadenkreuz als Deutungssymbol defi- 
nieren. Es ist leicht einsehbar, daß die Pfeilspitze nicht an der selben Stelle in- 
nerhalb des Sprites liegen wird wie der Kreuzungspunkt beim Fadenkreuz. Mit 
Hilfe der Offset-Register wird diese Differenz jedoch wieder ausgeglichen. 





MCB+08: Invert-Flag 











Mit diesem Register kann man vom Anwenderprogramm aus die automatische 
Textinvertierung ein- bzw. ausschalten. Der Wert Null in diesem Register be- 
deutet, daß die Textinvertierung ausgeschaltet ist, jeder andere Wert schaltet sie 
ein. Achtung: Diese Funktion wird durch das Invertieren eines Textes unwirk- 
sam, d.h. dieses Flag wird vom Maus-Programm nach der Invertierung eines 
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Textes auf Null gesetzt. Die Invertierung kann übrigens mit SYS 49547 rück- 
gängig gemacht werden. 


MCB+09: Maus X (L,H) 
MCB+11: Maus Y 








Diese beiden Register sollen vom Anwenderprogramm nur gelesen werden, sie 
enthalten die momentane Position der Maus (in Hires-Koordinaten) auf dem 
Bildschirm. 





MCB-+12: Mausknopf 





Auch dieses Register sollte nur gelesen werden. Es enthält den Status des Maus- 
Knopfes, der Wert Null bedeutet, daß der Knopf gerade nicht gedrückt ist. Will 
man vom Anwenderprogramm auf das Drücken des Knopfes warten, so genügt 
der Befehl WAIT MCB+12,1. 


MCB+13: Textposition relativ zum Bildanfang (L,H) 


Dieses Register hat nur einen Sinn, wenn vorher die automatische Textinvertie- 
rung eingeschaltet wurde. Sie enthalten die Startadresse des invertierten Textes 
relativ zum Bildanfang. Hierbei ist es völlig gleichgültig, auf welche Stelle inner- 
halb des Textes die Maus deutet, es wird der gesamte Text zwischen den zwei 
umschließenden Spaces invertiert und die Anfangsadresse des Textfeldes in die- 
sem Register hinterlegt. Die Länge des invertierbaren Feldes ist jedoch auf 256 
Zeichen begrenzt. 


Nachdem nun der Mouse-Control-Block erklärt wurde, ist es natürlich wichtig 
zu wissen, wie die Maus aktiviert wird. Dazu muß der Anwender erst mal einen 
Sprite definieren, beispielsweise eine Pfeilspitze. Wir verwenden Sprite-0. Es müs- 
sen nun alle zur Sprite-Steuerung wichtigen Register mit Ausnahme des Sprite- 
Enable Registers und der Koordinatenregister im VIC versorgt werden. Danach 
sollte der MCB mit den Offset-Werten und dem Bildschirmfenster belegt wer- 
den. 


Gibt man nun den Befehl SYS 49152 ein, so sollte sich die Maus mit einem am 
Control-Port-2 angeschlossenen Joystick steuern lassen. Hat man zudem die auto- 
matische Textinvertierung eingeschaltet (was auch nachträglich geschehen kann) 
und bewegt die Maus auf ein Textfeld, so sollte dieses beim Drücken auf den Joy- 
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stick-Knopf invertiert werden (d.h. in Negativdarstellung erscheinen). Ein weite- 
res Drücken des Knopfes hat jedoch keine Wirkung, da durch die Invertierung 
die Funktion wieder ausgeschaltet wird (was sehr sinnvoll ist, denn sonst würde 
das Textfeld bei längerem Drücken des Knopfes flackern, da es ständig inver- 
tiert wird). 


Die Maus wird übrigens völlig unabhängig von den restlichen Computer-Ope- 
rationen gesteuert, was durch eine Programmierung über Interrupt ermöglicht 
wurde. So kann man die Maus auf dem Bildschirm bewegen, während der Rech- 
ner beispielsweise den Bildschirminhalt verändert oder sogar während der Rech- 
ner Programme von Diskette liest. Die Geschwindigkeit der Maus liegt bei 60 
Rasterpunkten/Sekunde, damit kann die Maus innerhalb von 6 Sekunden über 
den ganzen Schirm bewegt werden. 


4/4.6.1.2 
Listings 


Zu dieser Beschreibung gehören zwei Listings, einmal der Quellcode für das 
Maus-Programm in einer für den in diesem Buch vorgestellten Assembler ver- 
ständlichen Form, zum anderen ein kleines Demo-Beispiel, welches in BASIC 
geschrieben ist und das Maus-Programm in DATA-Zeilen enthält. Die Listings 
wurden jedoch nicht auf einem Commodore-Drucker erstellt, Cursor-Steuerzei- 
chen tauchen daher nicht in der gewohnten Form auf, sondern als ASCU- 
Zeichen in Breitschrift. Wichtig beim Abtippen des Demo-Listings in BASIC: 
In Zeile 160 bis 180 sind die Spaces zwischen den Worten keine normalen Spa- 
ces, sondern geshiftete Spaces (also SHIFT und Space drücken). Das hat den 
‘Sinn, daß dann der ganze Satz vom Maus-Programm invertiert werden kann, 
da das geshiftete Space einen anderen Bildschirmcode hat als das normale Space. 


Programm-Beschreibung des Assembler-Listings 


Um eine möglichst hohe Geschwindigkeit und zugleich eine Unabhängigkeit 
von anderen Operationen zu erreichen, ist die Maus als Interrupt-Programm ent- 
worfen. 


Der Commodore 64 erzeugt alle 1/60 Sekunden einen Interrupt, mit dem er die 
Tastatur abfragt und eine Software-Uhr weiterschaltet. Da diese Interrupt-Routine 
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über einen Vektor im RAM angesprungen wird ist es nicht weiter schwierig, eine 
eigene Interrupt-Routine einzuschleifen, die zusätzliche Aufgaben (hier die Maus- 
Steuerung) übernimmt. 


Die Routine zum Ein- bzw. Ausschalten der Maus beginnt beim Label TOGGLE. 
Hier werden zuerst einmal ankommende Interrupts gesperrt, da ein Interrupt 
während der Manipulation am IRQ-Vektor den Rechner zum Absturz bringen 
könnte. 


Nun werden die Koordinaten des Maus-Sprite aus den entsprechenden Registern 
des Video-Controllers gelesen und in Hires-Koordinaten umgewandelt. Dies ge- 
schieht durch die folgenden Rechenoperationen: 





MausX: =SpriteX-24+0ffsetX 
MausY: =SpriteY-50+0ffsetY 








Die unterstrichenen Werte (24, 50) sind durch die Hardware bedingt (siehe C 64- 
Handbuch). Nun wird eine Routine namens HOLD aufgerufen, die die Funk- 
tion hat, die Maus innerhalb des definierten Fensters zu halten. Nachdem die 
Koordinaten-Transformation durchgeführt ist, wird das dem Sprite im Sprite- 
Enable-Register entsprechende Bit invertiert. Dadurch wird der Sprite beim ersten 
Aufruf der TOGGLE-Routine eingeschaltet, beim nächsten Aufruf wieder ausge- 
schaltet usw. Nun wird der Interrupt-Vektor auf die Maus-Routine „verbogen“. 
Auch dies geschieht mittels Exclusive-OR-Verknüpfungen, dadurch wird der Vek- 
tor beim ersten Aufruf auf die Maus-Routine gebogen, beim nächsten Aufruf er- 
hält er seinen ursprünglichen Wert usw. Nachdem nun der Interrupt-Vektor er- 
folgreich geändert wurde, werden mit einem CLI-Befehl die Interrupts wieder 
erlaubt. Nun kehrt das Programm in die Aufrufebene (meist BASIC) zurück, 
das Maus-Programm wird nun als Hintergrundprozeß alle 1/60 Sekunden abge- 
arbeitet. 


Nun folgt die bereits erwähnte HOLD-Routine. Hier werden die im MCB be- 
findlichen Maus-Koordinaten mit den Koordinaten des definierten Fensters ver- 
glichen. Sollte sich die Maus außerhalb dieses Fensters befinden, so erhält die 
entsprechende Koordinate den Wert der nächstgelegenen Grenze. Allerdings be- 
wirkt eine Untergrenze (des Fensters) von Null, daß die Maus beim Verlassen 
des Fensters auf der anderen Seite des Schirms wieder erscheint. Dies hat seine 
Ursache darin, daß für die Speicherung der Maus-Koordinaten,nur absolute 
(positive) Werte verwendet werden. Nachdem die Überprüfung auf die Bereichs- 
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grenzen beendet ist, werden die Maus-Koordinaten (die in Hires-Form verliegen) 
wieder in Sprite-Koordinaten umgerechnet. Dies geschieht mit folgenden Rechen- 
operationen: 





SpriteX: =MausX+24-OffsetX 
SpriteY: =MausY+50-OffsetY 











Bei der Umrechnung der X-Koordinate werden die CPU-Register X und Y als 
Zwischenspeicher verwendet. Im ersten Schritt wird die 24 addiert und das Er- 
gebnis in X(L) und Y(H) gepuffert. Nun wird der Offset subtrahiert, das Low- 
Byte kann sofort in den Video-Controller geschrieben werden. Das High-Bit der 
Sprite-Koordinate wird mit Hilfe eines LSR-Befehls in das Carry-Flag übertragen. 
Nun wird das Video-Controller-Register, welches die High-Bits der Sprites ent- 
hält abhängig vom Carry-Flag verändert. 


Dann folgt die eigentliche Maus-Steuerungs-Routine, also das Programmstück, wel- 
ches alle /60-sec ausgeführt wird und die Maus steuert. Die erste Aktion dieser 
Routine ist das Rücksetzen des Maus-Knopf-Flags. Nun wird der Joystick-Port 2 
abgefragt. Als erstes erfolgt die Abfrage, ob der Knopf gedrückt wird. Ist dies 
der Fall, dann wird das Feuerknopf-Flag auf den Wert 255 gesetzt, außerdem 
wird nun das Textinvertierungsflag überprüft. War es gesetzt, so wird das Unter- 
programm CONVERT aufgerufen, welches für die Invertierung des Textes zu- 
ständig ist. Nun folgen die Abfragen auf die vier möglichen Richtungen des Joy- 
sticks. Sollte ein Bit für eine Richtung gesetzt sein, so wird die entsprechende 
Maus-Koordinate manipuliert. Nachdem die Koordinatenmanipulation abgeschlos- 
sen ist, wird wieder die bekannte Routine HOLD aufgerufen, die die Maus in- 
nerhalb des Bildschirmfensters fixiert. Schließlich wird die normale IRQ-Service- 
Routine des C 64 angesprungen. 


Es folgt das bereits erwähnte Programmstück CONVERT. Die Aufgabe dieses 
Unterprogramms ist die Ermittlung der relativen Position der Maus zum Bild- 
schirmanfang, also die Textposition, auf die die Maus gerade deutet. Hierzu wird 
folgende Formel angewendet: 





TextPos: =INT{MausY/8)»40+INT(MausX/8) 








Diese Formel hat ihren Ursprung in der 8*8 Rasterdarstellung der Zeichen. Um 
die Programmierung dieser Formel in Assembler möglichst einfach zu halten, 
wurde folgender Algorithmus verwendet: 
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MausY: =MausY AND 248 








Diese boolsche Verknüpfung entspricht „INT(MausY/8)»8“. Nun wird das Ergeb- 
nis zweimal um ein Bit nach links geschoben, also mit 4 multipliziert. Schließ- 
lich wird das ursprüngliche Ergebnis aufaddiert, somit ist der erste Teil der For- 
mel berechnet. Nun wird das High-Bit der X-Koordinate mittels eines LSR-Be- 
fehls ins Carry transferiert. Im Low-Byte der Koordinate werden die untersten 
drei Bit mittels AND auf Null gesetzt. Dann folgt ein ROR, er schiebt alle Bits 
um eins nach rechts und berücksichtigt dabei auch das höchstwertige Bit im Carry. 
Nach 2 weiteren LSRs ist die X-Koordinate durch 8 dividiert und kann nun auf 
den bereits errechneten Teil der Textposition addiert werden. 


Im nachfolgenden Programmteil wird zu dieser relativen Position die Startadresse 
des Video-RAMs addiert, man erhält die absolute Startadresse des Textes im 
Speicher. Von hier aus wird rückwärts nach dem nächsten Space (Code 32) ge- 
sucht. Enthält die Position selbst schon diesen Code, so wird die Invertierungs- 
routine umgehend verlassen. Die Suche endet sonst spätestens bei der Startadresse 
des Video-RAM’s. Hat man durch das Auffinden des linken Begrenzungs-Space 
den Start des Textblocks gefunden, so werden anschließend alle Zeichen bis zum 
nächsten Space invertiert. Dies geschieht mit einer XOR-Funktion, die auf das 
Bit 7 im Video-RAM angewendet wird. Nach erfolgter Invertierung wird das In- 
vertierungs-Flag gelöscht, um ein Flackern im 60 Hz-Rhythmus zu vermeiden. 
Die eigentliche Invertierungsroutine (ab Label REVERSE) kann auch vom An- 
wendungsprogramm direkt aufgerufen werden, z.B. um einen invertierten Text 
in sein ursprüngliches Aussehen zurückzuverwandeln. 





Das Programmm befindet sich auf der Grundwerksdiskette 
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Programm-Beschreibung des BASIC-Listings 


Dieses Listing ist für alle gedacht, die noch keinen Assembler haben. Zudem 
enthält es ein kleines Demo, aus dem die Programmierung der Maus recht gut 
ersichtlich ist. 


Das Programmlisting gliedert sich in drei Blöcke, der Block bis Zeile 999 ent- 
hält das Hauptprogramm, der Block bis zur Zeile 10000 enthält diejenigen DATA- 
Zeilen, die sowohl die im Programm verwendeten Sprites definieren, als auch 
das Maschinenprogramm für die Maus-Steuerung enthalten. Der letzte Block ent- 
hält zwei Unterprogramme, die jeweils eine Informationsseite für eine Minute 
zur Anzeige bringen. 


Interessant ist für uns jedoch nur der erste Block. In den Zeilen bis 100 werden 
die Sprite-Felder gefüllt. Außerdem wird das Maschinenprogramm aus den DATA- 
Zeilen gelesen und in den Speicher gePOKE(d. Die Zeilen 100 bis 200 bauen den 
Menübildschirm auf, hier ist ein originalgetreues Abtippen die Grundvoraussetzung 
für das Funktionieren des Demoprogrammes. Die Leerzeichen zwischen den Wör- 
tern in den Zeilen 160-180 müssen geshiftet sein (also SHIFT-Space eingeben). Die 
in Breitschrift gedruckten Zeichen sind, wie bereits erwähnt, Cursor-Steuerzeichen, 
ein breites „q“ entspricht z.B. Cursor nach unten. 


Ab Zeile 300 wird es nun interessant. Hier wird nämlich das Fenster definiert, 
in dem sich die Maus später bewegen kann, außerdem der Offset auf die Maus- 
spitze. Nun wird das Knopf-Flag sicherheitshalber auf Null gesetzt und die Maus 
mit einem SYS-Befehl aktiviert. 


Anschließend wird die Textinvertierung erlaubt (POKE MC+8,1) und nun wartet 
das Programm auf das Drücken des Knopfes an der Maus (bzw. am Joystick). 


In Zeile 345 wird die Bildschirmposition, auf die die Maus deutet, ermittelt und 
anschließend wird die Maus ausgeschaltet. 


In den Zeilen 350 bis 360 wird abhängig von der ermittelten Position verzweigt, 
d.h. entweder das Programm beendet, oder es wird eines der Unterprogramme 
aufgerufen. 


Zeigt die Maus auf keinen als Menüpunkt definierten Bildschirmbereich, so wird 
der Maus-Pfeil in Zeile 365 kurzzeitig auf ein „Fragezeichen“ umgeschaltet um 
dem Benutzer die Fehlbedienung zu signalisieren. Das.Programm geht dann 
wieder in den Wartezustand. 
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Sollte das Programm bei Ihnen nicht richtig auf die Maus-Auswahl reagieren 
(Fragezeichen, obwohl ein Menüpunkt angewählt wurde), dann liegt das wahr- 
scheinlich daran, daß Sie beim Abtippen des Menübildschirms einen Fehler ge- 
macht haben. Am einfachsten ist es, wenn man zum Test nun eine Zeile 347 
einfügt, in der die Variable „p“ ausgedruckt wird. Nachdem der Wert für „p“ bei 
Jedem Menüpunkt ermittelt wurde, können die Zeilen 350 bis 360 entsprechend 
berichtigt werden. Danach kann man die Testzeile 347 natürlich wieder entfernen. 


Somit wünschen wir Ihnen viel Spaß mit der Maus. Abschließend möchten wir 
noch auf die Ergänzungsausgaben zu diesem Buch verweisen, in denen weitere 
umfangreiche Anwendungsbeispiele für die Maus aufgeführt sind. 





Dat a-Maus-Dema 








10 pnkeS3281, 1:pokeSg280, diprint "mn 


20 printchr&ciddschrs(89;, "5" 
2 





30 print" Schliessen Sie einen Joystick am" 
40 primt"gq Fort 2 des R ners an und freuen" 
30 print"ceq Sie sich auf ." 

B m sprite 





print" #Ek% Die SUFERMAUS 
’ prinb"uz fuer Ihren Ca 














print ep Copyright 1383 by" 
print "a ZNATHANSOFT Re atories Europe" 
a an ze TeleleteheictetetcteteteteheteTetetetetztetetetetetetetctetetetekeTeteTcTete tech 
a print" Informationen ueber die Maus" 
170 primnt'cy Wichtige Adressen der Maus" 














"intra DES DEMOFFOGRAMMS" 

u ELEEEELLELELFLEFELERFEEEER" 
e nun bitte eine Funktion an" 
Srrem woman 


‚rem xomax 


rem warten auf knopf 
ima+14) 2 sysmS 


gotaloo 
=160250:nextıpoke2Odo, i3:gato 





pPfeil-sprite 
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4/4.6.1.3 


Datenauswertung 





Im Folgenden wollen wir Ihnen ein Datenauswertungsprogramm als Beispiel zur 
Verwendung unserer Joystick-Maus aufzeigen. 


Zweck des Programmes 


Um dieses Programm zu erklären, muß zuerst einmal eine Untersuchung des Hinter- 
srundes abgegeben werden, der zur Erstellung dieses Programms geführt hat. 


Der Autor ist begeisterter Sportschütze, und als solcher natürlich einem Verein 
angeschlossen. Dieser Verein hat folgende Regeln für seine internen Meisterschaf- 
ten, die mit in dieses Programm eingebracht wurden: 


- Jedes Vereinsmitglied hat eine Schützennummer, die zur Identifikation bei 
Namensgleichheit dient. 

- Jeder Schütze kann über das ganze Jahr verteilt so viel Serien (40 Schuß 
im Normalfall) schießen, wie er will. Am Jahresende werden die 20 besten 
Ergebnisse für die Wertung der vereinsinternen Meisterschaft herangezogen. 


Das Programm unterstützt nun die Berechnung der Meisterschaft, indem es alle 
im Jahresverlauf geschossenen Ergebnisse speichert. Selbstverständlich ist eine 
derartige Berechnung nicht erst am Jahresende möglich, sondern jederzeit, da 
man bereits während des laufenden Jahres gerne Vergleichsmöglichkeiten hat. 


Weiterhin lassen sich natürlich alle Ergebnisse auflisten, und, was zur Leistungs- 

kontrolle besonders vorteilhaft ist: Alle Ergebnisse lassen sich auch grafisch 

auswerten. So sind Balken-Grafiken mit den Leistungswerten der einzelnen Mo- 

nate genauso verfügbar wie eine Jahresübersicht, die die Mittelwerte der einzel- 
.nen Monate übersichtlich darstellt. 


Die Dateneingabe erfolgt im Dialog, zudem ist das Programm durch einige Pro- 
grammiertricks fast absturzsicher (Nach Murphy’s Gesetzen gibt es keine voll- 
kommen absturzsicheren Programme). 


Damit das Programm auch von Computer-Laien bedient werden kann, wird die 
Steuerung voll über Menüs abgewickelt. Die Menüpunkte werden über die Maus 
angewählt, somit ist einfachste Bedienbarkeit gewährleistet. 


Das Programm ist daher ein gutes Lehrbeispiel, bei dem vor allem der sinn- 
volle Einsatz der Maus aufgezeigt wird. 
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Programmtechnische Besonderheiten: 


Dieses Programm besteht aus mehreren Teilprogrammen: 


- dem Ladeprogramm 
- dem Maus-Objektprogramm 
- dem eigentlichen Auswertprogramm. 


Das Ladeprogramm hat lediglich die Aufgabe, die einzelnen Programmteile 
(Maus-Objektcode und Auswertprogramm) einzuladen und zu starten. Wer bereits 
das Data-Maus-Demo aus diesem Buch abgetippt hat, kann es ganz einfach zu 
einem Ladeprogramm für eben diesen Zweck umfunktionieren, ansonsten sei auf 
die Beschreibung des Laders verwiesen. 


Das Maus-Objektprogramm ist der Code, der vom Assembler erzeugt wird. Dieses 
Programm enthält also die 512 Bytes Maschinenroutinen, die für die Maus- 
Steuerung notwendig sind. Das Objektprogramm kann als PRG-File auf Disk 
stehen, oder aber als Data-Zeilen im Ladeprogramm. 


Das Auswertprogramm ist schließlich die Anwendung, die vollständig in BASIC 
geschrieben ist. Allerdings ist das interpretierte BASIC nicht gerade sehr schnell. 
Das Programm wurde aber so ausgelegt, daß es von handelsüblichen Compilern 
(z.B. Petspeed 64) compiliert werden kann. Die compilierte Version ist natürlich 
um etliches schneller, beim Aufbauen von Balkengrafiken um den Faktor 20. 


Das Ladeprogramm 


Aus Gründen der Einfachheit beschreiben wir hier nur die Version des Lade- 
programms, welche auch das Maschinenprogramm für die Maussteuerung von Disk 
lädt. 


Maschinenprogramme lassen sich relativ einfach von BASIC-Programmen aus 
einladen, es genügt ein LOAD-Befehl, bei dem als Sekundäradresse eine 1 
angegeben wird. Diese Form des LOAD-Befehls bewirkt, daß das zu ladende 
Progranim exakt an die Stelle geladen wird, die im Programmkopf der Dis- 
kette angegeben ist. 


Ein LOAD-Befehl innerhalb eines BASIC-Programms bewirkt aber zugleich immer 
einen Sprung zur ersten Programmzeile. Das hat den Vorteil, daß man von 
einem BASIC-Programm aus ein anderes BASIC-Programm nachladen kann, 
dieses wird dann automatisch gestartet. Die Variablen des aufrufenden Programms 
werden dabei nicht zerstört, wenn folgende Bedingung eingehalten wird: Das nach- 
geladene Programm darf nicht länger sein als das Programm in dem der LOAD- 
Befehl steht. 
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Da beim Laden von Maschinenprogrammen der BASIC-Speicher nicht verän- 
dert wird, würde ein BASIC-Programm in einer Endlosschleife sein Dasein 
fristen, wenn man nicht programmtechnische Vorkehrungen trifft, die dies ver- 
hindern. 


Aus diesem Grund ist die erste Zeile unseres Ladeprogramms bereits eine IF- 
Abfrage. Die Variable ML signalisiert, ob das Maschinenprogramm bereits ge- 
laden ist. Beim ersten Start des Programms, also unmittelbar nach dem RUN 
hat ML natürlich den Wert Null, das Programm arbeitet also die folgenden Zeilen 
ab. Hier folgt nun bald der Ladebefehl für das Maschinenprogramm, vorher be- 
kommt ML aber noch den Wert 1 zugewiesen. Nachdem das Maschinenprogramm 
geladen wurde, startet der BASIC-Lader (der ja nicht verändert wurde) erneut. 
Nun erkennt er aber, daß das Maschinenprogramm bereits geladen ist und setzt 
seine Arbeit an der richtigen Stelle im Programm fort. 


Als nächstes werden innerhalb des Ladeprogramms die Sprites für die Maus de- 
finiert, eine Aufgabe, wie wir sie bereits vom Maus-Demo her kennen. 


Die Zeilen 90 und 99 bieten nun den eigentlichen Trick. In Zeile 99 wird das 
Auswertprogramm von Disk geladen, hier die compilierte Version (selbstverständ- 
lich kann man auch jeden anderen Namen einsetzen). Da dieses Programm 
den BASIC-Speicher überschreibt, startet es nach dem Laden automatisch (siehe 
Anmerkungen weiter oben). Halt! Jedem wird sicher aufgefallen sein, daß das 
Ladeprogramm um etliches kürzer ist als das Auswertprogramm, und das darf ja 
nicht vorkommen, da sonst keine Variablen übergeben werden. Variablen sollen 
auch gar nicht übergeben werden, aber selbst dann wäre eine solche Vorgehens- 
weise nicht zulässig, da sich hier das geladene Programm ohne weiteres selbst 
zerstören kann. Um nun einen späteren Programmabsturz (durch Selbstzerstörung) 
zu verhindern, wurde die Zeile 90 eingebaut. 


In dieser Zeile wird ein etwas hinterhältiger Trick angewendet, mit dem der BASIC- 
Interpreter überlistet wird. Der BASIC-Interpreter besitzt nämlich Zeiger auf den 
Start und das Ende eines Programms. Der Zeiger auf den Start steht in den 
Speicherstellen 43/44, der Zeiger auf das Ende in den Speicherstellen 45/46. 
Um nun dem BASIC-Interpreter vorzugaukeln, daß er ein sehr langes Programm 
im Speicher hat, muß man einfach den Zeiger auf das Ende etwas manipulieren. 
In unserem Beispiel geschah konkret folgendes: 


Zuerst wurde die Länge des nachzuladenden Programmes ermittelt (Directory 
ansehen). In unserem Fall ist das nachzuladende Programm 72 Blöcke lang. 
Nun wird der Zeiger auf das BASIC-Ende einfach auf einen Wert gesetzt, der 
um 72 Pages (1 Page = 256 Byte) höher ist als der Zeiger auf den Anfang, 
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also mit POKE 46, PEEK (44) + 72. Die nachfolgenden CLR und RESTORE- 
Befehle sorgen dafür, daß alle anderen Zeiger zur Variablenverwaltung mit ver- 
ändert werden, ohne daß man extra POKE-Befehle anwenden muß. 


Mit dieser Methode läßt sich nun von dem relativ kurzen BASIC-Lader ein 
sehr viel längeres Hauptprogramm einladen und automatisch starten. 


Somit können wir zur Beschreibung des Hauptprogrammes übergehen. 


Die Startphase des Programms 


In diesem Programmteil werden alle notwendigen Variablenfelder dimensioniert 
und, soweit erforderlich, mit Werten vorbelegt. So werden Felder für Monatsnamen 
und die zugehörige Anzahl der Tage aufgebaut; dies ist eine Hilfe, um später bei 
der Dateneingabe eventuelle Fehleingaben abzufangen (z.B. 45.03. als Datum). 
Das Feld BZ% enthält die Bildschirmcodes für die Balkengrafik. Wie wir später 
sehen werden, ist so eine Balkengrafik mit 200 vertikalen Abstufungen möglich, 
ohne die hochauflösende Grafik des VIC-Chips programmieren zu müssen. 


Während des Programmstarts wird der Anwender nach dem aktuellen Datum ge- 
fragt, dieses taucht später in der Druckerauswertung wieder auf. Zudem wird die 
Datei mit den Ergebnissen eingelesen. Existiert noch keine Datei, dann wird eine 
neue Datei aufgebaut. 
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Hauptmenü Aufbau und Auswertung 


In den Zeilen 410 bis 462 wird der Bildschirm mit dem Hauptmenü aufgebaut. 
Die variablen BF$ und B$ in den Textzeilen haben folgenden Zweck: Sie ent- 
halten geshiftete Spaces, d.h. beim Anwählen mit der Maus werden sie bei 
eingeschalteter Textinvertierung invertiert. Mit dieser Methode kann man ganze 
Sätze, oder wie hier geschehen, ganze Blöcke mit 3 Bildschirmzeilen invertieren. 
Die Verwendung von Stringvariablen für die geshifteten Spaces hat ihren Grund 
in der Tatsache, daß der später verwendete BASIC-Compiler geshiftete Spaces in 
Texten falsch compiliert, er ersetzt sie durch „+“. Verwendet man hingegen 
Stringvariablen, dann läuft alles wunschgemäß. 


In den Zeilen 470 und 475 wird nun die Maus aktiviert. Es werden die Fenster 
für die Maus definiert, und das Maus-Programm wird gestartet. 


Zeile 476 wartet nun darauf, daß der Maus-Knopf gedrückt wird. Ist dies erfolgt, 
so schaltet Zeile 477 die Maus erst einmal ab. 


In der Zeile 480 wird die Bildschirmposition des Textblockes berechnet, auf den 
die Maus beim Drücken des Knopfes zeigte. In den Zeilen 490 bis 510 wird nun 
entsprechend der angewählten Funktion verzweigt. 


Kommt das Programm bis Zeile 511, so bedeutet dies, daß kein gültiger Menü- 
punkt angewählt wurde (das Programm würde sonst ja verzweigen). Somit wird 
die Maus kurz auf das Fragezeichensymbol umgeschaltet und das Programm geht 
nach Zurückschalten auf das Pfeilsymbol wieder in den Wartezustand über. 


Programmendphase und Datenspeichern 


Die Endsequenz des Programms beginnt bei Zeile 530. In Zeile 531 wird das 
Editierflag EF abgeprüft. Wurden nämlich während des Programmlaufs neue Serien 
eingegeben, dann muß die Datei neu gespeichert werden, wurde hingegen nur aus- 
gewertet, so kann ein Speichern entfallen. 


Ist ein Speichern der Daten notwendig, so geschieht dies in den Zeilen 535 
bis 900. 


An dieser Stelle sei auch kurz der Dateiaufbau beschrieben. Alle Ergebnislisten 
werden in SEQ-Dateien abgelegt. Die einzelnen Einträge sind untereinander mit 
Carriage-Return [CHR$(13)] getrennt. Die Einträge stehen in folgender Reihen- 
folge: 

1. Die Anzahl der Serien, die in der Datei stehen. 

2. Das Auswertungsjahr. Durch die Speicherung des Jahres kann man sich die 

Eingabe bei der Datenerfassung sparen. 
3. Der Name des Schützen. 
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4. Die Schützenklasse (früher war hier einmal das Geburtsdatum angeführt, 
daher der etwas wenig assoziative Name GD$). 
5. Die Schützennummer. 


Ist die Anzahl der Serien größer als Null, so folgt nun eine Aufstellung der 
Serien und des dazugehörenden Datums. Das Datum wird nicht als String 
gespeichert, sondern ist in einer numerischen Variable folgendermaßen codiert: 


Datumszahl = 32 x Monat + Tag 


Der 25.03. wäre also so verschlüsselt: 32x3+25=121. Diese Speichermethode spart 
Platz sowohl auf der Disk, als auch im Rechnerspeicher. 





Editieren der Serientabelle 


Menüaufbau und Auswertung 


Hierzu ist eigentlich nichts Besonderes zu Sagen, auch hier läuft alles wieder 
nach dem bekannten Schema ab: Zuerst wird der Menübildschirm aufgebaut. 
Dann wird die Maus aktiviert, und nach dem Drücken des Knopfes wird abhängig 
von der errmittelten Bildschrimposition des Menüpunktes verzweigt. 


Positionieren des Tabellenzeigers 


Die Editierroutinen verwalten einen Tabellenzeiger ZE. Dieser wird beim Start 
der Editierfunktion auf die Tabellenmitte gesetzt, kann aber mittels Menüauswahl 
noch oben oder unten, oder sogar an den Anfang oder das Ende verschoben wer- 
den. Auch die Eingabe einer Position ist möglich. Zuständig hierfür sind die Zeilen 
11000 bis 15050. Im Anschluß an eine Änderung des Zeigers wird der Tabellenaus- 
schnitt neu im Sichtfenster angezeigt. 


Löschen eines Eintrags 


Mit dieser Funktion kann der Tabelleneintrag gelöscht werden, auf den der Tabel- 
lenzeiger gerade zeigt. Hier wird noch eine Sicherheitsabfrage mit der Maus 
ausgeführt: Erst wenn der Benutzer hier „JA“ anwählt, wird die Löschung vorge- 
nommen. Zudem wird hier das Editflag EF beeinflußt, es bewirkt dann ein Spei- 
chern der Datei beim Porgrammende. 
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Eingeben einer neuen Serie 


Diese Funktion fordert zuerst die Ringzahl an, und gibt hier den Wert O vor. 
Drückt man nun RETURN, so wird die Funktion sofort verlassen, ein Eintrag 
in die Tabelle findet nicht statt. Wird hingegen ein Zahlenwert eingegeben, so 
wird das Datum erfragt. Beim ersten Mal erhält der Benutzer hier die Vorgabe 
„IT.MM.“, später den jeweils zuletzt eingegebenen Wert. Die eingegebene Serie 
wird im Folgenden in die Tabelle einsortiert, hierbei ist das Datum ausschlag- 
gebend. Die Codierung des Datums als Zahl erleichtert hier wiederum die Sor- 
tierung. Bei Strings wäre die Bedingung, daß der 25.03. vor dem 01.04. kommt 
beispielsweise nicht gegeben, bei der Zahlencodierung hat der 01.01. den kleinsten 
Wert, und der 31.12. den größten. Das Programm sucht also die Stelle, an die 
die Serie eingefügt werden muß (Zeilen 16650 bis 16670) und verschiebt alle folgen- 
den Eintragungen um eins nach hinten (Zeilen 16710 bis 16730). Der Tabellen- 
zeiger zeigt dann auf die eingegebene Serie. 


Bei der Eingabe ist noch folgende Besonderheit zu erwähnen: Das Programm 
benutzt nicht den normalen INPUT-Befehl sondern den Umweg über. OPENI,0: 
INPUT# 1,X$: CLOSEI. Der Umweg über eine logische Input-Datei hat den Vor- 
teil, daß beim INPUT# kein Fragezeichen auf dem Schirm ausgegeben wird, 
wie man es vom normalen INPUT her kennt. 


Tabellenausschnitt anzeigen 


Das Programm zeigt einen fünfzeiligen Ausschnitt aus der Tabelle in einem 
Sichtfenster an. Hierfür ist die Routine ab Zeile 17000 zuständig. Die Serie, auf 
die der Tabellenzeiger deutet ist jeweils in der Mitte des Fensters, also die 3. Zeile 
im Fenster. Sollte der Zeiger auf den Anfang oder das Ende deuten, so werden 
die Zeilen darüber oder darunter selbstverständlich mit Leerzeichen gefüllt. Die 
Ausgabe der Daten erfolgt formatiert, die Formatierung wird über Stringfunktionen 
erreicht. Diese Funktionen kosten natürlich viel Zeit, und so kann es durchaus 
sein, daß das Programm hier etwas langsam wird. 


Datenauswertung 


Menüaufbau und Auswertung 


Als Erstes wird hier geprüft, ob die Umsortierung der Serien (nach Ringzahl) 
notwendig ist. Das Programm verwaltet hierzu ein Flag namens SR, dieses 
wird von den Editierfunktionen „Eingeben“ und „Löschen“ gelöscht, und nach 
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erfolgter Sortierung von dieser Routine gesetzt. Immer wenn das Flag gelöscht ist, 
zeigt dies an, daß eine Neusortierung erforderlich ist. Grund für die Umsor- 
tierung ist die Tatsache, daß man zur Auswertung der Vereinsmeisterschaft die 
20 besten Serien heranziehen muß. 


Zugleich ist anzumerken, daß eigentlich nicht das Datenfeld sortiert, sondern 
vielmehr eine sortierte Liste mit Zeigern in das Datenfeld aufgebaut wird. Dies 
hat den Vorteil, daß das Feld nach Verlassen der Auswertfunktion nicht nochmals 
in das Speicherformat (nach Datum sortiert) umsortiert werden muß. 


Nach eventuell erfolgter Sortierung geht es wie gewohnt weiter, ein Menübild- 
schirm wird aufgebaut und mittels der Maus abgefragt. 


Auswerten der Vereinsmeisterschaft 


Hier wird eine Liste der 20 besten Serien auf dem Schirm angezeigt. Gleichzeitig 
werden von den angezeigten Serien Gesamtringzahl und Mittelwert berechnet. 
Schließlich wird noch ein kleines Menüfeld für die Maus definiert, einziger Menü- 
punkt ist hier das Verlassen der Funktion. 


Anzeigen einer Gesamtliste 


Diese Funktion ähnelt sehr stark der Auswertung der Vereinsmeisterschaft. Hier 
werden jeweils 30 Eintragungen auf dem Bildschrim angezeigt, zusätzlich wird ein 
Untermenü aufgebaut, in dem man vorwärts oder rückwärts blättern kann. 


Balkengrafik Monate 


Es wird ein Fenster aufgebaut, welches die Namen der Monate anzeigt. Mit der 
Maus wird der entsprechende Monat ausgewählt, die Programmierung erfolgt nach 
der bereits bewährten Methode. 


Nun wird ein Koordinatensystem errichtet, welches in der vertikalen Achse 
beschriftet ist. Die Beschriftung richtet sich vornehmlich nach dem schlechtesten 
Ergebnis: Ist es beispielsweise 340, so ist die Beschriftung auf dem Niveau der 
horizontalen Achse „320“, also 20 weniger als das Minimum. 


Nun werden die Balken aufgebaut. Dabei ist zu beachten, daß die Balken recht 
bunt sind, jeder Balken bekommt eine andere Farbe, die aus der-Tabelle CO% 
geholt wird. Um einen Balken zu zeichnen, geht man in zwei Schritten vor: 


Gegeben ist die Höhe des Balkens in Bildschirmpunkten, also z.B. 75. 
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Nun berechnet man, wieviel volle Bildschirmkästchen der Balken hoch ist, also 
INT(Höhe/B8). Das Ergebnis wäre in unserem Beispiel der Wert 9. Das bedeutet, 
daß man die Basis des Balkens und die acht darüberliegenden Bildschirmkästchen 
mit dem Wert 160 vollIPOKEd. 160 entspricht einem inversem Leerzeichen. 


Anschließend wird berechnet, wieviel Bildschirmpunkte an Höhe noch fehlen, also 
der Rest der Division Höhe/8. In unserem Fall wäre dies 3. Nun wird das Zeichen 
BZ%(3) an die Stelle über dem letzten 160-er Kästchen gePOKEd. BZ%(3) ent- 
hält nämlich genau das Bildschirmzeichen, welches einem 3 Zeilen hohen Balken 
entspricht. 


Mit dieser Methode ist es möglich, eine Balkengrafik mit Hires-Auflösung (200 
Punkte vertikal) zu programmieren, ohne extra den VIC-Chip umständlich im Hires- 
Mode ansprechen zu müssen. 


Die Routine erhält natürlich auch wieder einen mit der Maus anwählbaren Menü- 
punkt zum Verlassen der Funktion. 


Balkengrafik Jahr 


Hier wird ähnlich vorgegangen wie bei der Monatsgrafik. Es werden allerdings 
dickere Balken hergenommen, zudem wird eine Art 3-D-Darstellung gewählt. Dies 
sieht optisch sehr gut aus, hat aber den Nachteil, daß die Balken nur noch ganze 
Kästchen hoch sein können. Da die Balken jedoch nur Mittelwerte darstellen, 
fällt dieser Nachteil kaum ins Gewicht. 


Auch hier wird die Maus wieder zum Verlassen der Funktion abgefragt. 


Drucken einer Auswertungsliste 


Diese Routine ist speziell auf das System des Autors zugeschnitten und muß 
daher im Bedarfsfall etwas abgeändert werden. Auf folgendem System läuft sie je- 
doch ohne Änderungen: Commodore 64 & Panasonic 1090 Drucker. Der Drucker 
ist über ein Kabel am User-Port angeschlossen, als Treibersoftware wird das Pro- 
gramm der Firma Brockhaus & Müller, Göttingen, verwendet. Ein kompatibles 
Schnittstellenprogramm ist in einer der folgenden Ergänzungen vorgesehen. 


Im Anhang befindet sich ein Beispielausdruck, damit kann man sehr leicht fest- 
stellen, was alles gedruckt wird, und wie man das Programm eventuell an die 
eigenen Erfordernisse anpaßt. - 


Die Druckroutine kehrt selbständig wieder ins Auswertmenü zurück, eine Rück- 
kehr durch Maus-Betätigung ist deshalb nicht notwendig. 
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Aufbauen einer neuen Datei 


Diese Routine wird angesprochen, wenn man während der Startphase versucht 
hat, eine Datei zu laden, die noch nicht existiert. 


Vom Benutzer werden nun die wichtigen Informationen für den Dateikopf er- 
fragt. Im Anschluß daran wird die neue Datei auf Disk gespeichert. Das Programm 
setzt nun beim Hauptmenü seine Arbeit fort. 


Diskettenfehlerbehandlung 


Sollte es bei Diskettenoperationen einmal zu Fehlerzuständen kommen, so gibt 
diese Routine die Fehlermeldung der Disk-Station aus. Der Benutzer sollte dann 
den Fehler beheben (z.B. eine Diskette ins Laufwerk einlegen) und RETURN 
drücken. 


Zeitverzögerung um 1/2 Sekunde 


Diese Routine dient einzig dazu, bei Aufrufen von Menüpunkten mit der Maus 
diese eine kurze Zeit (1/2 sec) im invertierten Zustand zu belassen. Um hohe 
Zeitkonstanz zu gewährleisten, wird hier der 1/60-sec Timer TI abgefragt. Nachdem 
er auf 0 gesetzt ist, wird gewartet, bis er den Wert 30 (= 1/2 sec) erreicht hat, 
dann wird die Routine verlassen. Eine Zeitverzögerung hätte man zwar auch mit 
einer leeren FOR-NEXT-Schleife erzeugen können, aber spätestens nach dem das 
Programm Bekanntschaft mit einem Compiler gemacht hat, wäre jedem aufge- 
fallen, daß dies nicht der optimale Weg ist (Compiler haben die nette Eigenart, 
FOR..NEXT sehr schnell zu machen, der Effekt der Zeitverzögerung ist dann 
nicht mehr gegeben). 
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4/4.7 
Dateiverwaltung für den C 128 





Nach dem Spieleinsatz und der Textverarbeitung werden die Home-Computer heute 
in den meisten Fällen zu Datenverarbeitungsproblemen herangezogen. Sogar Klein- 
betriebe setzen Home-Computer zur Verarbeitung der betriebsinternen Daten ein. 
Durch die immer besser werdenden Hardwareeigenschaften und der allgemeinen 
Aufklärung über die Möglichkeiten von Computer, wächst auch der Bereich der 
Datenverwaltung in viele Einsatzgebiete hinein. 


Während Kleinbetriebe ihre Lagerverwaltung bzw. die Pflege ihrer Kundenstamm- 
daten als häufigstes Einsatzgebiet für einen Rechner betrachten, können im privaten 
Bereich mit einer Dateiverwaltung Dias, Schallplatten, Briefmarken und überhaupt 
alle Sammlungen verarbeitet werden. Aber auch die Adressen von Verwandten und 
Bekannten und deren Geburtstage lassen sich natürlich mit einem Computer 
speichern. Eine nach Geburtstagen sortierte Liste hilft sicherlich, manche peinliche 
Situation zu vermeiden. 


Im Rahmen des Buches „Neue Möglichkeiten mit dem C 64/C 128“ wollen wir 
selbstverständlich auch Dateiverwaltungsprobleme lösen. Wie wir eben erwähnt 
haben, sind diese unterschiedlichster Natur, und es wäre viel zu aufwendig, für 
jedes Problem eine eigene Dateiverwaltung zu schreiben. Auch die Standardsoft- 
ware ist den Weg weg von der speziellen Dateiverwaltung hin zu einer allgemeinen 
Dateiverwaltung gegangen. Diesen Weg wollen wir im Rahmen von Kapitel 4/4.7 
nachvollziehen. 


Aus verschiedenen Gründen bilden wir eine Dateiverwaltung nicht mehr auf dem 
.C 64 ab, sondern bedienen uns dabei eines C 128. Einige der Kriterien sind die 
größere externe Speicherkapazität sowie die Möglichkeit der Verwendung eines 
80-Zeichen-Bildschirms, der in der Regel bei Datenverwaltungen sinnvoller ist als 
ein 40-Zeichen-Bildschirm. Die umfangreichen Floppybefehle (siehe Kapitel 4/3.1.4) 
sind ein weiterer Grund für die Wahl des C 128. Dadurch brauchen wir uns nicht 
so sehr um die Diskettenorganiation unserer Daten zu kümmern. Ein C 128 läßt sich 
schon eher in einem Kleinbetrieb einsetzen als ein C 64. 


Durch die größere Speicherkapazität ist es auch sinnvoller, kompliziertere Zugriffs- 
verfahren als nur über die Nummer des Datensatzes zu verwenden. Dadurch können 
als Zugriffsschlüssel nicht nur relativ kleine Zahlen, sondern auch Namen oder 
Artikelnummern herangezogen werden. 
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Zunächst jedoch einiges zum Aufbau von Kapitel 4/4.7. Im ersten Unterkapitel wer- 
den wir auf theoretische Grundlagen eingehen, wie das Konzept der datenbeschrei- 
benden Variablen, die Binär-Bäume sowie verkettete Listen, aber auch einige Hilfe- 
stellungen werden gegeben, damit das Programm auf den C 64 übertragen werden 
kann. 


Einen großen Raum nehmen die benötigten Unterprogramme ein. Gegenüber den 
anderen in diesem Buch vorgestellten Listings wollen wir die verwendeten Unterpro- 
gramme getrennt vom Hauptprogramm besprechen. Unsere Programmierweise wird 
also hauptsächlich der Bottom-Up-Methode entsprechen, d.h. wir beginnen mit den 
wichtigsten Unterprogrammen und arbeiten uns langsam zu den Hauptprogram- 
men vor. 


Ein weiterer Grund hat uns zu dieser Aufteilung veranlaßt: Die vorgestellten Unter- 
programme können auch in eigenen Programmen verwendet werden, da wir zu 
jedem Unterprogramm die Ein- und Ausgabeparameter sowie verwendete „lokale“ 
Variablen und einiges mehr dokumentieren werden. Betrachten Sie jedes Unterpro- 
gramm als kleines Utility. Gliedern werden wir die Unterprogramme in allgemeine 
Hilfsroutinen, Diskettenroutinen, Bildschirmroutinen, Druckroutinen, Binär- 
Baum-Routinen, Routinen für verkettete Listen und Funktionen. 


Ein weiteres Unterkapitel ist einigen Übersichten zugedacht. Wegen der Komplexität 
der Gesamtdateiverwaltung dienen diese Übersichten dem allgemeinen Verständnis. 
Z.B. werden wir gleichbedeutende Variablen in verschiedenen Programmen einheit- 
lich benennen. Auch die gesamten datenbeschreibenden, listenbeschreibenden und 
etikettenbeschreibenden Variablen — was wir später noch erläutern werden — sind 
in diesem Unterkapitel vorgestellt. 


Kapitel 4/4.7.4 wendet sich dann den Dienstprogrammen zu, ohne die wir unsere 
allgemeine Dateiverwaltung nur schwer handhaben können. 


Weitere Unterkapitel sind den Menüs, Hauptprogrammen, Selektier- und Sortier- 
programmen sowie Druckprogrammen zugedacht. 


In Kapitel 4/4.7.9 werden wir einige Datensatzbeispiele aufzeigen, um Ihnen die 
Einsatzmöglichkeiten der vorgestellten Dateiverwaltung zu demonstrieren. 


Zum Schluß wollen wir Zusatzprogramme hauptsächlich für den kommerziellen Be- 
reich vorstellen, wie z.B. eine Fakturierung, eine Offene-Posten Verwaltung, ein 
Mahnwesen, Möglichkeiten zur Lagerverwaltung sowie computerunterstütztes Be- 
stellwesen. 


Wenden wir uns jedoch den allgemeinen Eigenschaften unserer Dateiverwaltung zu. 
Wie bereits erwähnt, sollen viele Dateiverwaltungsprobleme damit gelöst werden, 
d.h. eine konkrete Beschreibung der verwendeten Datensätze ist nicht gegeben. Um 
einem Begriffswirrwarr vorzubeugen, hier zunächst einige kurze Erläuterungen zu 
den verwendeten Begriffen: 
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Dateiverwaltung Gesamtkomplex eines Datenverwaltungsprogrammes. 





Datensatz Struktur zur Speicherung gleichartiger Daten. Ein Da- 
Record tensatz kann einem Kunden, einem Artikel oder einer 
Schallplatte zugeordnet sein. Der Datensatz sollte im 
Rahmen der Soft- und Hardwaremöglichkeiten das 
durch ihn beschriebene Objekt ausreichend charakteri- 








sieren. 

Datei Unter dem Begriff Datei wollen wir im Folgenden die Zu- 
sammenfassung aller gleichartigen Datensätze ver- 
stehen. 

Datzensatz- Die einzelnen Teile eines Datensatzes werden Element 


element, Item oder Item genannt. Bei einem Datensatz, der eine 
Adresse abbildet, wären z.B. Datensatzelemente durch 
die Begriffe Name, Vorname, Straße, Postleitzahl, Ort, 
Telefon bezeichnet. Generell ist zwischen dem Namen 
der Datensatzelemente (wie vorher aufgezählt) und dem 
Inhalt zu unterscheiden. Auf diese Problematik werden 
wir in Kapitel 4/4.7.1.1 noch näher eingehen. 








Relative Datei, Das Betriebssystem des C 128 — und auch das des C 

Direktzugriffs- 64 mit einigen Tricks — läßt sogenannte relative Dateien 

datei oder Direktzugriffsdateien zu. Im Gegensatz zu sequen- 
tiellen Dateien kann man gezielt auf einen bestimmten 
Datensatz zugreifen. Unsere gesamte Dateiverwaltung 
basiert auf relativen Dateien. 


Diese relativen Dateien benötigen als Zugriffsschlüssel 
eine Datensatznummer, wie wir später noch sehen wer- 
den. Um unsere Dateiverwaltung jedoch auch bei dem 
Zugriffsschlüssel allgemein zu halten, werden wir aus 
dem ersten Element des Datensatzes einen Zugriffs- 
schlüssel errechnen. Dies geschieht mit Hilfe eines be- 
stimmten Suchalgorithmuses. 








Binärbäume Ein Verfahren zum Suchen von Daten, das wir in unse- 
rer allgemeinen Dateiverwaltung verwenden werden. 
Auf die theoretischen Grundlagen werden wir in Kapitel 
4/4.7.1.2 näher eingehen und die praktische Durchfüh- 
rung im Rahmen der Unterprogramme behandeln. 





Verkettete Ein weiteres Verfahren zum schnellen Auffinden von 
Listen Daten. Auch die Theorie der verketteten Listen werden 
wir in einem eigenen Kapitel (4/4.7.1.3) behandeln. 
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Wie Sie sehen, haben wir einiges vor. Natürlich werden wir deshalb das Thema nicht 
in ein oder zwei Ergänzungsausgaben vollständig abhandeln können. Wir werden 
zuerst mit einigen Dienstprogrammen beginnen und das Projekt weiterhin so auf- 
bauen, daß Sie möglichst schnell mit Ihrer Dateiverwaltung arbeiten können. Nach 
den Grundlagen im Hauptprogramm wird das System ständig erweitert. 


Wir beginnen mit dem Konzept der datenbeschreibenden Variablen und einem 
Dienstprogramm zum Anlegen dieser Daten. 
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4/4.7.1 


Theoretische Grundlagen 





Da man zum Verständnis des Gesamtkomplexes auch ein wenig Theorie braucht, 
haben wir diese der handwerklichen Tätigkeit, sprich Programmierung, vorange- 
stellt. Zunächst wollen wir dabei das Konzept der datenbeschreibenden Variablen 
vorstellen, dann auf die theoretischen Grundlagen der Binärbäume und verketteten 
Listen eingehen. Weiterhin wollen wir Ihnen eine Hilfestellung geben, wie Sie das 
vorgestellte Programm auf Ihren C 64 umschreiben können. 


4/4.7.1.1 


Konzept der datenbeschreibenden Variablen 





Wie wir bereits im Vorspann zu Kapitel 4/4.7 erwähnt haben, wollen wir unsere 
Datensatzprobleme unabhängig von der Datenstruktur bewältigen. Wir müssen also 
bei der Programmierung davon ausgehen, daß wir nicht wissen, wie viele Daten- 
elemente ein Datensatz enthält und wie diese selbst strukturiert sind. Sind es Zei- 
chenreihen, Zahlen oder Kalenderdaten? Wie lang dürfen die Zeichenreihen oder 
wie groß die Zahlen sein? 


Unsere Dateiverwaltung muß also für den jeweiligen konkreten Anwendungsfall in 
der Lage sein, die vom Benutzer gewünschten Daten in der gewünschten Art und 
Weise zu speichern. 


Normalerweise würde man z.B. bei einer Adreßverwaltung sechs Datenelemente vor- 
sehen, die die Bezeichnung Name, Vorname, Straße, Postleitzahl, Ort und Telefon- 
nummer haben. Den Datenelementen eines Datensatzes in dieser Dateiverwaltung 
würde man bei Programmierung für dieses konkrete Problem vielleicht die Varia- 
blennamen NA$, VN$, S$, PL$, O$ und TE$ geben. Die Bezeichnung der einzelnen 
Datenelemente am Bildschirm beim Erfassen oder Anzeigen würde dann per Pro- 
gramm mittels eines PRINT-Befehls vorgenommen werden müssen. 
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Will der gleiche Anwender aber auch seine Schallplatten mit einer Dateiverwaltung 
verarbeiten, so müßte er ein weiteres — neues — Programm schreiben, das Daten- 
sätze mit den Elementen Titel, Interpret, Spieldauer und Bemerkungen enthält. Aus 
mnemotechnischen Gründen würden hier vielleicht die Bezeichnung TI$, IN$, SD$ 
und BE$ verwendet. Auch alle PRINT-Ausgaben müßten neu formuliert werden. 


In den oben genannten Fällen beschreiben also Variablen wie NA$, VN$ oder TI$ 
und IN$ die Inhalte eines einzelnen Datensatzes. Diese Stufe gilt es für eine allge- 
meine Dateiverwaltung zu abstrahieren. Die erste Abstraktionsstufe wäre es, die An- 
zahl der Elemente je Datensatz zu verallgemeinern. Was nimmt man her, wenn man 
Daten verarbeiten will, deren Werte bei der Programmierung noch nicht bekannt 
sind: Variablen. 


Bei einer allgemeinen Dateiverwaltung benötigen wir also Variablen, die den Inhalt 
anderer Variablen beschreiben. Neben den eigentlichen zu speichernden Daten der 
Dateiverwaltung muß also vorher ein Schritt erfolgen, in der die Struktur des An- 
wendungsfalles ebenfalls in Variablen festgehalten wird. Dies ist ein kleiner Nachteil 
gegenüber Dateiverwaltungen, die sich mit einem konkreten Problem beschäftigen, 
jedoch wertmäßig nicht mit den Vorteilen zu vergleichen. Statt der Neuprogrammie- 
rung einer Dateiverwaltung brauchen Sie lediglich die allgemeine Dateiverwaltung 
heranzuziehen und eine Datei mit einer neuen Struktur aufzubauen. Dazu schreibt 
man sich sinnvollerweise ein kleines Dienstprogramm, wie wir es in Kapitel 4/4.7.4.1 
vorstellen. 


Im folgenden sollten sie also immer im Hinterkopf behalten, daß wir bei unserem 
Projekt mit zwei verschiedenen — logischen — Variablenebenen arbeiten. Wir un- 
terscheiden logisch zwischen datenbeschreibenden Variablen, und Variablen, die die 
zu verwaltenden Daten aufnehmen. 


Anhand der wichtigsten Variablen für die Datenstruktur in unserer Dateiverwaltung 
wollen wir Ihnen im folgenden kurz die Vorgehensweise aufzeigen. Außer der 
Datenstruktur werden wir in unserem Projekt auch das Aussehen von Listen- und 
Etikettenvariablen flexibel halten, wobei wir uns des gleichen Schemas bedienen. 


Wenn ein Anwender die Datenstruktur für eines seiner Probleme eingeben möchte, 
was müssen wir dann von ihm wissen? Zunächst brauchen wir die Anzahl der Ele- 
mente pro Datensatz. In unserem Fall schen wir hierfür die Variable AW (Anzahl 
der Werte) vor. Weiterhin brauchen wir für jedes einzelne Datensatzelement eine Be- 
schreibung, um die Tätigkeiten am Bildschirm bedienungsfreundlich zu gestalten, 
und um den Listen in den betreffenden Spalten eine Überschrift zu geben. Wir wol- 
len dies als Namen eines Elementes bezeichnen und benutzen die Variable NA$. 


Da jedes Datensatzelement einen eigenen Namen erhält, müssen wir also ein Feld 
NA$(AW) dimensionieren. Außerdem müssen wir von jedem Dafensatzelement 
noch wissen, ob es sich um Zahlen, Zeichenreihen oder Kalenderdaten handelt. 
Kalenderdaten müssen deshalb getrennt aufgeführt werden, da sie weder als Zei- 
chenreihe noch als Zahl in der zu erfassenden Form zu sortieren sind. Außerdem 
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sind hier andere Plausibilitätsprüfungen erforderlich. Für die Art der Daten- 
elemente sehen wir ein Feld AR$(AW) vor, das folgende Einträge enthalten kann: 


: Alphanumerisch (Zeichenreihe) 
i : Ganze Zahlen (Integer) 


: Fließkommazahlen 
: Kalenderdaten 








Wegen der Besonderheit der Fließkommazahlen geben wir bei der Art auch an, um 
wie viele Vor- und Nachkommastellen es sich maximal bei dem gewünschten Eintrag 
handelt. ‘f6.1’ bedeutet dabei, daß die Zahl Werte mit maximal sechs Vorkomma- 
und einer Nachkommastelle hat. 


Für eine korrekte Speicherung wird als letztes noch die Länge jedes einzelnen Da- 
tensatzelementes benötigt, was dann — inklusive der Trennzeichen innerhalb des 
Datensatzes auf der Diskettenstation — die Gesamtlänge des Datensatzes ergibt. 
Beachten sollte man bei der Festlegung der Datenstruktur, daß die Felder für das 
größtmögliche Vorkommen eines Dateninhaltes dimensioniert sein müssen. Dies be- 
deutet nicht, daß man ein Datensatzelement zur Aufnahme eines Straßennamens 
mit 40 Zeichen festlegen muß, weil es solch ausgefallene Straßennamen gibt. Solche 
Ausnahmen lassen sich nicht nur bei Straßennamen sinnvoll abkürzen. Ein vernünf- 
tiger Mittelweg läßt sich also in den meisten Fällen — besonders bei Zeichenreihen 
— finden. Bei Datensatzelementen, die Zahlen beinhalten, sieht die Sache etwas 
anders aus: Wer verzichtet schon gerne auf Umsatz, nur weil der Computer an der 
entsprechenden Stelle keine größeren Zahlen aufnehmen kann? Aber auch für spä- 
tere Änderungen der Datenstruktur wollen wir uns ein Dienstprogramm basteln. 


Postleitzahlen sollten als Zeichenreihen vereinbart werden, da hier kein Vorzeichen 
anfällt und auch kein Rechnen mit diesen Zahlen erforderlich ist. Auch Artikelnum- 
mern, die nur aus Ziffern bestehen, sollten als Zeichenreihe definiert werden. Ins- 
besondere, wenn über die Artikelnummer zugegriffen wird (Zugriffsschlüssel in un- 
serer allgemeinen Dateiverwaltung ist das erste Datensatzelement), muß diese als 
Zeichenreihe deklariert sein. 


‚Bei ganzen Zahlen ist zur gewünschten Größe des absolut möglichen Höchst- 
betrages (9,99,999, .. .) eine weitere Stelle für das Vorzeichen hinzuzufügen. Für 
Eintragungen bis zur Höhe von 999 ist eine Länge von vier Einheiten vorzusehen. 
Die Länge von Kalenderdaten ist generell mit 8 Zeichen (TT.MM.JJ) zu veranschla- 
gen und die Länge von Fließkommazahlen ergeben sich aus der Eingabe des ent- 
sprechenden Elementes AR$(. Zu den Vor- und Nachkommastellen werden hier je- 
weils noch zwei Einheiten für den Dezimalpunkt und das Vorzeichen hinzugezählt. 
Ein Datensatzelement, das maximal 999999,9 enthalten kann, belegt somit eine 
Länge von neun Einheiten. 


Generell werden wir in unserer Dateiverwaltung nur mit Zeichenreihen arbeiten, d.h. 
daß insbesondere auch Zahlen als Zeichenreihe dargestellt werden. Dies vereinfacht 
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das Speichern auf und Lesen von Diskette erheblich, wie wir später noch sehen 
werden. 


Generell ist es in der Datenverwaltung so, daß höchst selten mit Zahlen gearbeitet 
werden muß. Sofern mit den erfaßten Zahlen gerechnet werden soll, werden diese 
über die VAL-Funktion aus der jeweiligen Zeichenreihe ermittelt, und Ergebnisse 
können mittels der Funktion STR$ wieder in eine Zeichenreihe umgewandelt 
werden. 


Die Bedeutung weiterer beschreibender Variablen sind aus den Übersichten in 
Kapitel 4/4.7.3 ersichtlich. 





| ___Teil4 Kapitel 4.7.1.2 Seite 1 








Spezielle Programmierthemen 





4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 


4/4.7.1.2 


Binär-Bäume 





Relative Dateien bieten zwar den Vorteil des Direktzugriffes auf einen speziellen 
Datensatz, um diesen Datensatz nach bestimmten Kriterien aber zu finden, bleibt 
einem normalerweise nichts anderes übrig als eine sequentielle Suche, es sei denn, 
man verwendet spezielle Suchverfahren, die zwar ein Mehr an Programmierarbeit 
benötigen, das spätere Suchen jedoch effizienter gestalten. 


Die bekanntesten Suchverfahren, die in Datenbanken jeglicher Größe verwendet 
werden, sind die Suchbäume und in bestimmten Fällen das Hashing. Für die Daten- 
mengen, die sich mit einem C 128 samt Floppy-Laufwerken speichern lassen, 
reichen Binär-Bäume vollkommen aus. AVL-Bäume sind eine spezielle Form dieser 
Binär-Bäume, die einen gewichteten Binär-Baum (darauf werden wir später noch 
eingehen) zur Grundlage haben. Eine Weiterentwicklung sind die B*-Bäume, die in 
ihren Knoten mehrere Bewertungen aufnehmen. Letztere werden insbesondere bei 
den größten Datenbanken eingesetzt. 


Nachdem Sie jetzt so viele neue Begriffe kennengelernt haben, wollen wir etwas 
Ordnung in dieses Wirrwarr bringen und das Wesen der Suchbäume erläutern. 


Genau wie in der Natur sind auch Suchbäume vielfach verästelt. Binär-Bäume sind 
eine Sonderform, wo bei jeder Teilung nur zwei Zweige entstehen, daher der Name 
Binär-Bäume. Der Stamm teilt sich also nur in zwei Äste, ein Ast nur in zwei 
Ästchen, ein Ästchen nur in zwei Zweige usw. Anders als in der Natur werden aller- 
dings Suchbäume mit der engsten Stelle (Spitze) oben dargestellt und verästeln sich 
nach unten. Auch heißt der grundlegende Eintrag in einem Suchbaum nicht Stamm 
sondern Wurzel. 


Die wichtige Information befindet sich auch nicht auf den Ästen und Zweigen, son- 
dern an den Verteilerstellen, Knoten genannt. Die Verbindungen zwischen den 
Knoten werden durch sogenannte Zeiger dargestellt. Da die Sprache nicht allzuviele 
Möglichkeiten für die Wertigkeit eines Knotens im Baum zur Verfügung stellt 
(Stamm, Ast, Zweig, Blatt) betrachtet man in der Regel immer einen Knoten im 
Binär-Baum und spricht von dessen Vater, der näher an der. Wurzel liegt, und von 
Söhnen, die weiter von der Wurzel entfernt liegen. Da es bei einem Binär-Baum nur 
zwei Söhne geben darf, spricht man auch von einem linken und rechten Sohn. Wel- 
che Bewandtnis es damit auf sich hat, werden wir später erfahren. Hier zunächst 
eine Zusammenfassung der wichtigsten Begriffe: 
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Binär-Baum: Art eines Suchbaumes zum schnellen Auffinden von Daten. 

Wurzel: Erster Eintrag in einem Binär-Baum. Jede Suche beginnt bei der Wurzel. 
Die Wurzel hat keinen Vater. 

Vater: Höherwertiger Knoten im Binär-Baum (liegt eine Stufe näher an der Wur- 
zel). Jeder Knoten — außer der Wurzel — hat genau einen Vater. 

Sohn: Nachfolger eines aktuellen Knotens in Richtung entgegengesetzt der Wur- 
zel. Knoten im Binär-Baum können keinen, einen oder zwei Söhne haben. 

Knoten: Stelle im Binär-Baum die eine Bewertung (Zugriffsschlüssel) enthält. Die 
Zusammenfassung aller Knoten ergibt den Binär-Baum. 

Blatt: Knoten im Binär-Baum ohne Söhne. 

Teilbaum: Teil eines Binär-Baumes, der ab einem bestimmten Knoten alle dessen 
Söhne, Enkel usw. enthält. 

Enkel: Sohn des Sohnes eines Knotens (zwei Ebenen entgegengesetzt der Wur- 
zel). 

Großvater: Vater des Vaters (zwei Ebenen näher zur Wurzel). 

Ebene: Alle Knoten, die von der Wurzel die gleiche Entfernung haben, bilden eine 
Ebene. 

Bruder: Zwei Knoten auf der gleichen Ebene, die den gleichen Vater haben, sind 
Brüder. 

Linker Sohn: Sohn, dessen Bewertung kleiner ist als die des Vaters. 

Rechter Sohn: Sohn, dessen Bewertung größer ist als die des Vaters. 

Knotennummer: Nummer eines Knotens, die mit der Nummer des Datensatzes identisch ist, 
unter der einerseits der Knoten in der Datei gespeichert ist, andererseits 
die Stammdaten zu finden sind. 

Zeiger: Verbindungen zwischen den Knoten eines Suchbaumes, die wir durch Zah- 
len (die Knotennummern) darstellen wollen. Diese Zahlen lassen sich auch 
im Rechner speichern und gestatten uns somit das Abbilden eines Binär- 
Baumes im Rechner. - 

Bewertung: Wert des Knotens im Suchbaum. 

Zugriffsschlüssel: | = Knotenbewertung. Über diesen Zugriffsschlüssel sucht der Anwender 
den gewünschten Datensatz. 

Key: Kurzbezeichnung für den Zugriffsschlüssel. 





In Bild 4/4.7.1.2-1 haben wir das Schema eines Knotens aufgezeigt, wie wir es im 
folgenden verwenden wollen. Als wichtigstes haben wir in der Mitte die Knotenbe- 
wertung eingetragen. In den vier Eckfeldern bringen wir die Knotennummer 
(= Datensatznummer) unter und die Zeiger auf den Vater sowie die Söhne. Der Zei- 
ger auf den Vater wird oben untergebracht, um die bildliche Darstellung zu verein- 
fachen und die beiden Söhne sind entsprechend ihrer Bezeichnung angeordnet. 


Nummer Vaier 


Bewertung 


Linker Sohn | Rechter Sohn 


Bild 4/4.7.1.2-1 Schema eines Knotens im Binär-Baum. 








Teil 4 Kapitel 4.7.1.2 Seite 3 





Spezielle Programmierthemen 








4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 


In den folgenden Kapiteln werden wir die einzelnen Bearbeitungsschritte im Zusam- 
menhang mit dem Binär-Baum aufzeigen. 


4/4.7.1.2.1 


Suchen und Einfügen 





Um einen Binär-Baum zu erhalten, müssen wir zwei grundsätzliche Regeln immer 
beachten: 


1) Die Bewertung eines linken Sohnes muß immer kleiner als die Bewertung des Vaters sein 
und die Bewertung eines rechten Sohnes muß immer größer sein als die Bewertung des 
Vaters. 








2) Jede Bewertung darf nur einmal auftreten (Eindeutigkeit). 





Als Bewertung in unserer allgemeinen Dateiverwaltung verwenden wir immer den 
Eintrag im ersten Datensatzelement. Das erste Datensatzelement ist also immer 
unser Zugriffsschlüssel, was bei dem Festlegen einer Datenstruktur zu berücksich- 
tigen ist. 


Mit diesem Wissen können wir uns nun an das Suchen und Einfügen einer Bewer- 
tung in dem Binär-Baum machen. Grundsätzlich ist jedem Einfügen ein Suchen 
vorauszuschicken, was gleich zwei Zwecke erfüllt: Einerseits wird so sichergestellt, 
daß kein Key doppelt auftritt, andererseits stellen wir durch das Suchen fest, wo der 
neue Eintrag im Baum anzuhängen ist. Die entsprechenden Unterprogramme in 
unserer Dateiverwaltung finden Sie ab Zeile 20000 und 20500 sowie ab 21000. 


Für die folgenden Beispiele wollen wir annehmen, daß als Zugriffsschlüssel/ Bewer- 
tung Namen vorgesehen sind. Mit einem kleinen Hilfsprogramm, was wir später er- 
läutern werden, werden die Daten des jeweils gespeicherten Binär-Baumes im fol- 
genden ausgegeben. . 
Zunächst brauchen wir die Wurzel. Diese wollen wir mit „Schneider Hans Lorenz“ 
benennen. Nach der Erfassung ist in der Datei „Kundenkey“ der in Bild 4/4.7.1.2.1-1 
dargestellte Eintrag vorhanden. 
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4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 
Datei: Kunden Anzahi der Datensätze: 1 
Bewertung Nummer Links Rechts Vater 
Schneider Hans Lorenz 2 0 0 0 


Bild 4/4.7.1.2.1-1 Datei Kundenkey nach Aufnahme der Wurzel 


An dieser Stelle noch gleich eine Anmerkung: Wie Sie vielleicht bei den Programm- 
teilen schon festgestellt haben, müssen wir die aktuelle Anzahl der Datensätze auch 
irgendwo zwischenspeichern. Da es eine Datensatznummer O0 bei den relativen 
Dateien nicht gibt, wählen wir uns dazu den ersten Datensatz aus, d.h. die eigent- 
lichen Datensätze beginnen erst bei der Datensatznummer 2. Dies trifft sowohl auf 
die Dateien <Name>dal und <Name>da2 zu als auch auf die Binär-Baum- 
Datei <Name>key. Unter „Nummer“ finden Sie also sowohl die Nummer des 
Datensatzes als auch die Knotennummer, die identisch sind. Unter „Links“ und 
„Rechts“ finden Sie die Zeiger auf die entsprechenden Söhne und unter „Vater“ den 
Zeiger auf den Vater. 


Wie gesagt, wollen wir die Zeiger durch Zahlen darstellen, die die jeweilige Knoten- 
nummer des Sohnes oder des Vaters angeben. 


Wenn wir nun unser Schema aus Bild 4/4.7.1.2-] heranziehen, erhalten wir den in 
Bild 4/4.1.2.1-2 dargestellten minimalen Binär-Baum, der nur aus der Wurzel be- 
steht. Nicht vorhandene Zeiger wollen wir durch die Zahl Null darstellen. Die Wur- 
zel hat naturgemäß keinen Vater, woraus die Null im entsprechenden Feld resultiert, 
und Söhne sind zur Zeit auch noch nicht vorhanden. 


Bas 
Schneider Hans Lorenz 


Bild 4/4.7.1.2.1-2 Binär-Baum nach Festlegen der Wurzel. 






Diesem Umstand wollen wir nun abhelfen: Der Eintrag ‚„Eberl Werner“ ist in dem 
Baum neu einzufügen. Vorgehensweise: Zuerst suchen, ob dieser Eintrag noch nicht 
vorhanden ist. Im Moment mag Ihnen dies etwas unsinnig scheinen, aber einerseits 
müssen wir wissen, wo der neue Eintrag anzuhängen ist, andererseits ist es eine 
Übung für später. 


Wir beginnen unsere Suche bei der Wurzel. Wir stellen fest, daß die neue Bewertung 
kleiner ist als die der Wurzel. Nach unserer Regel (1) ist also der linke Sohn der Wur- 
zel für den weiteren Verlauf zuständig. Da hier eine Null eingetragen ist, stellen wir 
fest, daß eine Bewertung, die gleich der einzufügenden Bewertung ist, noch nicht 
vorhanden ist. Wir merken uns aber den zuletzt bearbeiteten Knoten (in diesem Fall 
die Wurzel (KI=2)). 
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Außerdem müssen wir die Anzahl der Datensätze (Records) jetzt erhöhen. Bisher 
hatten wir einen Datensatz, nun müssen wir uns zwei Datensätze merken und ver- 
wenden die Variable AR, die wir auf zwei setzen. Da wir den ersten Datensatz nicht 
beschreiben, ist die neue Knotennummer AR+1=3. Wir kennen also jetzt schon 
den Zeiger auf den Vater (2) und die Knotennummer (3). Söhne hat ein neu ange- 
fügter Knoten natürlich nie, da wir nach obigem Schema nur unten am Baum an- 
fügen und nicht zwischendrin. Ein Anfügen mitten im Baum wäre auch programm- 
technisch viel aufwendiger und würde auch mehr Rechenzeit kosten. 


In der Datei <Name>key müssen wir natürlich nicht nur die Daten des neuen 
Knotens eintragen, sondern auch den neuen Knoten als Sohn bei dessen Vater auf- 
hängen. Das schematische Ergebnis sehen Sie in Bild 4/4.7.1.2.1-3 und den Datei- 
auszug in Bild 4/4.7.1.2.1-4. 


Schneider Hans Lorenz 
Em 


Ebert Werner 


Bild 4/4.7.1.2.1-3 Binär-Baum nach Einfügen ’von „Eberl Werner“. 














Datei: Kunden Anzahl der Datensätze: 2 
Bewertung Nummer Links Rechts Vater 
Schneider Hans Lorenz 2 3 0 0 
Eberl Werner 3 0 0 2 











Bild 4/4.7.1.2.1-4 Datei Kundenkey nach Aufnahme von ‚„Eberl Werner“. 


Als nächstes wollen wir die Bewertung „Friese Manfred“ in den Binär-Baum auf- 
nehmen. Dazu durchsuchen wir unseren bisherigen Binär-Baum (Bild 4/4.7.1.2.1-3) 
und stellen fest, daß die neue Bewertung wiederum kleiner ist als die Bewertung der 
Wurzel. Jetzt haben wir bereits aber einen linken Sohn (der für die kleineren Bewer- 
tungen zuständig ist) und prüfen als nächstes diesen linken Sohn. Dort stellen wir 
fest, daß die einzufügende Bewertung größer ist als „Eberl Werner“ und prüfen den 
rechten Sohn (der für die größeren Bewertungen zuständig ist). Hier stellen wir eine 
Null fest und wissen dadurch, daß eine Bewertung „Friese Manfred“ noch nicht im 
Binär-Baum enthalten ist. 


Außerdem merken wir uns die Nummer des zuletzt geprüften Knotens (KI=3), er- 
höhen die Anzahl der Datensätze (AR=3) und fügen den neuen Knoten in den 
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Binär-Baum ein, wie es Bild 4/4.7.1.2.1-5 veranschaulicht. Bei diesem Bild haben wir 
auch die verschiedenen Ebenen angedeutet. In Bild 4/5.7.1.2.1-6 finden Sie den zu- 
gehörigen Auszug von der Diskette. 


ee] 
Schneider Hans Lorenz 


EEE 
ferner 
4 






Ebene 0 












Ebene 1 


0 [4 | 


[55 



















Ebene 2 


Friese Manfred 


Bild 4/4.7.1.2.1-5 Binär-Baum nach Einfügen von „Friese Manfred‘ 





Datei: Kunden Anzahi der Datensätze: 3 
Bewertung Nummer Links Rechts Vater 








Schneider Hans Lorenz 2 3 0 0 
Eberl Werner 3 0 4 2 
Friese Manfred 4 0 3 





Bild 4/4.7.1.2.1-6 Datei Kundenkey nach Aufnahme von „Friese Manfred“ 


Die nächste einzufügende Bewertung soll „Kohl Klaus“ sein. Wir beginnen unsere 
Suche wieder bei der Wurzel und stellen fest, der einzufügende Knoten hat eine klei- 
nere Bewertung. Wir landen wieder bei Knoten 3 und stellen fest, daß hier wiederum 
eine größere Bewertung einzufügen ist, ebenso bei Knoten 4. Das Schema unseres 
neuen Binär-Baumes finden Sie im Bild 4/4.7.1.2.1-7 und den zugehörigen Disket- 
tenauszug in Bild 4/4.7.1.2.1-8. 
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Schneider Hans Lorenz 







Eberl Werner 


3 


4 
Friese Manfred 


Bild 4/4.7.1.2.1-7 Binär-Baum nach Einfügen von „Kohl Klaus“. 






Datei: Kunden Anzahl der Datensätze: 4 
Bewertung Nummer Links Rechts Vater 


Schneider Hans Lorenz 
Eberl Werner 
Friese Manfred 


Kohl Klaus 


Bild 4/4.7.1.2.1-8 Datei Kundenkey nach Aufnahme von „Kohl Klaus“. 














vom 
ooo0ow 
oupo 
POnmo 


Nach dem gleichen Schema fügen wir nun den Eintrag „König Rainer“ ein. Die 
Vorgehensweise sollten Sie anhand von Bild 4/4.7.1.2.1-7 diesmal selbst nachvoll- 
ziehen. Das Ergebnis finden Sie in den Bildern 4/4.7.1.2.1-9 und 4/4.7.1.2.1-10. 
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Bild 4/4.7.1.2.1-9 Binär-Baum nach Einfügen von „König Rainer“. 
















Datei: Kunden Anzahl der Datensätze: 5 
Bewertung Nummer Links Rechts Vater 


Schneider Hans Lorenz 2 3 0 {6} 
Eberl Werner 3 0 4 2 
Friese Manfred 4 0 5 3 
2) 0 6 4 
6 0 0 5 








Kohl Klaus 


König Rainer 





Bild 4/4.7.1.2.1-10 Datei Kundenkey nach Aufnahme von „König Rainer“. “ 


Zur weiteren Übung sollten Sie noch die Einträge „Roth Thomas“ und „Naftanail 
Adrian“ einfügen. Die jeweiligen Ergebnisse finden Sie in den Bildern 4/4.7.1.2.1-11 
bis 4/4.7.1.2.1-14. 
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Bild 4/4.7.1.2.1-11 Binär-Baum nach Einfügen von „Roth Thomas“. 
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Datei: Kunden Anzahl der Datensätze: 6 
Bewertung Nummer Links Rechts Vater 










Schneider Hans Lorenz 
Eberl Werner 

Friese Manfred 

Kohl Klaus 

König Rainer 

Roth Thomas 


NO POM 
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Bild 4/4.7.1.2.1-12 Datei Kundenkey nach Aufnahme von „Roth Thomas“. 


Datei: Kunden Anzahl der Datensätze: 7 

Bewertung Nummer Links Rechts Vater 

Schneider Hans Lorenz 
Eberl Werner 
Friese Manfred 
Kohl Klaus 
König Rainer 
Roth Thomas 
Naftanail Adrian 















@ONODOUPWM 
oRrOo000w 
SONO PRO 
NOUROMO 





Bild 4/4.7.1.2.1-14 Datei Kundenkey nach Aufnahme von ‚‚Naftanail Adrian“. 


Wenn Sie sich jetzt den Binär-Baum betrachten, so werden Sie sagen, was soll der 
Binär-Baum, das gleiche erreiche ich auch, wenn ich die Datendatei sequentiell nach 
dem gewünschten Schlüssel durchsuche. Stimmt! Ein sequentielles Durchsuchen der 
Datendatei ist sogar noch schneller, da das Verwalten der Zeiger wegfällt. In beiden 
Fällen haben wir eine mittlere Zugriffszahl von 4, da sieben Einträge linear durch- 
sucht werden. ; 


Die mittlere Zugriffszahl resultiert aus der Summe der Zugriffe für die einzelnen 
Datensätze dividiert durch deren Anzahl. Aber bisher hatten wir auch den Spezial- 
fall, daß immer an dem schon bestehenden Teilbaum ein Knoten angefügt wurde. 


Ergänzen wir nun unseren Binär-Baum um den Eintrag „Strapko Peter“. Bereits bei 
der Wurzel stellen wir fest, daß dieser Eintrag größer ist und deshalb dort als rechter 
Sohn angehangen wird. Obwohl wir jetzt den achten Eintrag in die Datei haben, 
wird dieser Eintrag mit nur zwei Zugriffen gefunden. Bei einer sequentiellen Suche 
hätten wir jetzt eine mittlere Zugriffszahl von 4,5, durch den Binär-Baum hat sich 
jedoch unsere vorherige Zugriffszahl auf 3,75 verringert. Den neuen Binär-Baum 
und den Auszug aus der Binär-Baum-Datei finden Sie in den Bildern 4/4.7.1.2.1-15 
und 4/4.7.1.2.1-16. 
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Bild 4/4.7.1.2.1-13 Binär-Baum nach Einfügen von ‚Naftanail Adrian“. 
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Bild 4/4.7.1.2.1-15 Binär-Baum nach Einfügen von „Strapko Peter“. 
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Datei: Kunden Anzahl der Datensätze: 8 
Bewertung Nummer Links Rechts Vater 


Schneider Hans Lorenz 
Eberl Werner 

Friese Manfred 

Kohl Klaus 

König Rainer 

Roth Thomas 

Naftanail Adrian 
Strapko Peter 
























OONDTPRWID 
SOoDOoooow 
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Bild 4/4.7.1.2.1-16 Datei Kundenkey nach Aufnahme von „Strapko Peter“. 


Als nächstes ergänzen wir den Eintrag „Dietz Sigrid‘. Die zugehörigen Abbildungen 
finden Sie in Bild 4/4.7.1.2.1-17 und Bild 4/4.7.1.2.1-18. Die neue Bewertung ist klei- 
ner als die Wurzel, also gehen wir wieder auf den linken Sohn über. Da die neue 
Bewertung auch kleiner als „Eberl Werner“ ist, muß auch hier der linke Sohn in 
Anspruch genommen werden. 

















Datei: Kunden Anzahl der Datensätze: 9 
Bewertung Nummer Links Rechts Vater 
Schneider Hans Lorenz 2 3 9 0 
Eberl Werner 3 10 4 2 
Friese Manfred 4 0 5 3 
Kohl Klaus 5 0 6 4 
König Rainer 6 0 7 5 
Roth Thomas Te 8 0 6 
Naftanail Adrian 8 0 0 7 
Strapko Peter 9 0 0 2 
Dietz Sigrid 10 0 0 3 





Bild 4/4.7.1.2.1-18 Datei Kundenkey nach Aufnahme von „Dietz Sigrid“. 


Mit den letzten beiden Eintragungen hat also die Ebenenzahl des Binär-Baumes 
nicht zugenommen. Die mittlere Zugriffszahl würde jetzt bei einer sequentiellen 
Durchsuchung schon 5 betragen und bei unserem Binär-Baum hat sie weiter auf 
3,67 abgenommen. Selbst wenn wir jetzt noch zwei ungünstige Fälle heranzichen 
und „Strauß Marga“ und „Turba Wolfgang“ in den Baum einfügen (die entspre- 
chenden Bilder finden Sie unter den Nummern 4/4.7.1.2.1-19 bis 4/4.7.1.2.1-22), so 
verbessert sich das Verhältnis der mittleren Zugriffszahlen von 6,0 bei der sequen- 
tiellen Durchsuchung auf 3,82 bei unserem Suchbaum. 
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Bild 4/4.7.1.2.1-17 Binär-Baum nach Einfügen von „Dietz Sigrid‘. 
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Bild 4/4.7.1.2.1-19 Binär-Baum nach Einfügen von „Strauß Marga“. 
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Datei: Kunden Anzahl der Datensätze: 10 
Bewertung Nummer Links Rechts Vater 


Schneider Hans Lorenz 
Eberl Werner 

Friese Manfred 

Kohl Klaus 

König Rainer 

Roth Thomas 

Naftanail Adrian 
Strapko Peter 

Dietz Sigrid 

Strauß Marga 
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Bild 4/4.7.1.2.1-20 Datei Kundenkey nach Aufnahme von „Strauß Marga“. 
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Bild 4/4.7.1.2.1-21 Binär-Baum nach Einfügen von ‚Turba Wolfgang“ 
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Datei: Kunden Anzahl der Datensätze: 11 
Bewertung Nummer Links Rechts Vater 
Schneider Hans Lorenz 2 3 9 0 
Eberl Werner 3 10 4 2 
Friese Manfred 4 6) 5 3 
Kohl Klaus 5 0 6 4 
König Rainer 6 0 7 5 
Roth Thomas 7 8 0 6 
Naftanail Adrian 8 0 0 7 
Strapko Peter 9 0 11 2 
Dietz Sigrid 10 0 0 3 
Strauß Marga 11 0 12 9 
Turba Wolfgang 12 0 0 11 





Bild 4/4.7.1.2.1-22 Datei Kundenkey nach Aufnahme von ‚Turba Wolfgang“. 


In unserem Fall haben wir es mit einem unregelmäßigen Binär-Baum zu tun. Der 
Aufbau des Binärbaumes ist auch direkt von der Reihenfolge der Eingabe abhängig, 
wie wir später an einem extremen Beispiel noch aufzeigen wollen. 


In unserem Fall haben wir Blätter (Knoten ohne Söhne) in unterschiedlichen 
Ebenen. Sind alle Blätter auf maximal zwei Ebenen verteilt, so spricht man auch 
von einem AVL-Baum, der natürlich beim Suchen den Idealfall darstellt. 


Wird bei einem AVL-Baum beim Einfügen noch ein Blatt in eine zusätzliche dritte 
(Blatt-)Ebene befördert, so muß allerdings im AVL-Baum eine Umstrukturierung 
vorgenommen werden, so daß wieder alle Blätter auf zwei Ebenen verteilt sind. 
Diese Umstrukturierung ist sehr rechenzeitaufwending und nur dann sinnvoll, wenn 
aufgrund seltener Eingaben sehr häufige Suchabfragen gefordert sind, was insbe- 
sondere bei Informationswiedergewinnungssystemen oder kommerziellen Daten- 
banken der Fall ist. 


In unserem Fall wollen wir uns dieser Mühe nicht unterziehen, da wir aufgrund der 
Speicherkapazität unserer Floppy-Laufwerke auch keine Bäume mit allzu großen 
Tiefen (vielen Ebenen) erreichen werden. Trotzdem läßt sich — durch Zufall — 
auch bei Binär-Bäumen eine solche Anordnung erreichen. Vielleicht kann man dem 
Zufall auch etwas auf die Sprünge helfen, wenn man seine Daten in geschickter 
Reihenfolge eingibt. Um entartete Bäume — wie wir zum Schluß noch einen auf- 
zeigen werden — in einen halbwegs vernünftig aufgebauten Binär-Baum umzuwan- 
deln, stellen wir später noch ein Hilfsprogramm vor. 


Betrachten wir uns die Zugriffszahlen bei Binär-Bäumen gegenüber einer sequen- 
tiellen Durchsuchung anhand des günstigsten Falles. Dies wäre ein AVL-Baum mit 
Blättern in maximal zwei verschiedenen Ebenen, die natürlich direkt aufeinander 
folgen. In diesem Falle spricht man auch von einem ausbalancierten Baum. Die fol- 
gende kleine Tabelle zeigt Ihnen die maximale Zugriffszahl aufgrund vorgegebener 
Datensatzanzahl. 
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maximale maximale 
Anzahl Zugriffe bei sequentieller Zugriffe bei balanciertem 
Datensätze Durchsuchung Binär-Baum 
1 1 1 
bis 3 3 2 
bis 7 7 3 
bis 15 15 4 
bis 831 31 5 
bis 63 63 6 
bis 127 127 7 
bis 255 255 8 
bis 511 511 9 
bis 1024 1024 10 
bis 2047 2047 11 











Besonders bei großen Bäumen lohnt es sich also, da man — wie im letzten Fall — 
den Aufwand um fast den Faktor 200 reduzieren kann. Mehr als 2000 Datensätze 
wird wahrscheinlich die Floppy des C 128 nicht fassen, außer man benutzt ganz 
kurze Datensätze. 


Da man jedoch nicht immer vom Idealfall ausgehen kann, haben Studien ergeben, 
daß man die mittlere Anzahl von Zugriffen in einem Binär-Baum mit 2 x Yn/2 an- 
geben kann, wobei n die die Anzahl der Datensätze angibt. Der Teil 2 x yn gibt 
dabei die Anzahl der Ebenen im Binär-Baum an. In einem Binär-Baum mit 10000 
Einträgen sind also unter realistischen Bedingungen im Mittel nur ca. 100 Such- 
zugriffe auszuführen. 


Eigene Überprüfungen an Binär-Bäumen mit 1000 bis 2000 Datensätzen haben er- 
geben, daß jeweils ein Drittel aller Knoten zwei Söhne aufweist, ein weiteres Drittel 
nur einen Sohn und das letzte Drittel Blätter sind. 


Ein schlechtes Beispiel für einen Binär-Baum hatten wir nach den ersten Einträgen, 
wo die Anzahl der Knoten gleich der Anzahl der Ebenen war. Versuchen Sie nun 
mal einen neuen Baum aufzubauen, indem Sie die Einträge in folgender Reihen- 
folge eingeben: 

Dietz Sigrid 

Eberl Werner 

Friese Manfred 

König Rainer 

Kohl Klaus 

Naftanail Adrian 

Roth Thomas 

Schneider Hans Lorenz 

Strapko Peter 

Strauß Margaret 

Turba Wolfgang 


Sie erhalten dabei einen entarteten Binär-Baum in seiner schlimmsten Form. Das 
Ergebnis haben wir in Bild 4/4.7.1.2.1-23 dargestellt. Anhand des Beispieles schen 
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Bild 4/4.7.1.2.1-23 Beispiel für einen entarteten Binär-Baum 


Schneider Hans Lorenz 


BEE GEHN 
on | 


Teil 4: Software-Erstellung 


oo | % | 








[oo jo | 





Teil 4 Kapitel 4.7.1.2 Seite 21 





Spezielle Programmierthemen L 








4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 


Sie schon, daß also bei einer Übernahme von Daten in eine Dateiverwaltung auf 
Computer, die mit Binär-Baum arbeitet, ein Vorgehen nach einer Kartei oder über- 
haupt in alphanumerischer Form nicht sehr ratsam ist. 


4/4.71.2.2 


Löschen von Knoten 





Wenn ein Datensatz gelöscht wird, muß natürlich auch dessen Knoten aus dem 
Suchbaum entfernt werden. Dies ist nicht ganz so einfach, wie wir im folgenden 
noch sehen werden. 


Grundsätzlich sind beim Löschen eines Knotens drei Fälle zu unterscheiden: 


a) Der zu löschende Knoten hat keinen Sohn 
b) Der zu löschende Knoten hat einen Sohn 
c) Der zu löschende Knoten hat zwei Söhne 






Unser Fall a) ist offensichtlich der einfachste. Das Blatt wird einfach vom Ast „ab- 
gepflückt“, wobei wir natürlich die „Wunde“ verschließen müssen, d.h. den Eintrag 
auf den entsprechenden Sohn beim Vater auf „0“ setzen. In unserem Beispiel-Binär- 
Baum aus Bild 4/4.7.1.2.1-21 wollen wir dazu den Knoten ‚„Turba Wolfgang“ ent- 
fernen. Das Ergebnis brauchen wir hier nicht explizit darzustellen, da es aus Bild 
4/4.1.1.2.1-19 ersichtlich ist. Dies ist natürlich der einfachste Fall. Bei unserem 
Fall b) müssen wir schon etwas mehr Arbeit aufwenden. 


Wenn ein Knoten nur einen Sohn hat, können wir ihn auch direkt aus dem Binär- 
Baum entfernen, jedoch müssen wir dessen Sohn bei seinem Vater wieder anfügen. 
In unserem Beispiel-Binär-Baum (nach der vorangegangenen Löschung) wollen wir 
den Eintrag „König Rainer‘ entfernen. Dazu ist beim Knoten mit der Bewertung 
„Kohl Klaus“ als rechter Sohn die Bewertung „Roth Thomas‘ anzuhängen und ent- 
sprechend beim letztgenannten Knoten der Zeiger auf den Vater richtig zu stellen. 
Die Bilder 4/4.7.1.2.2-la und 1b stellen diesen Sachverhalt schematisch dar. Beim 
Vater des zu löschenden Sohnes wird dessen Enkel und neuer Sohn natürlich nicht 
an einer beliebigen Stelle angenommen, sondern an der, wo der gelöschte Knoten 
angehangen hat. 
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Bild 4/4.7.1.2.2-1a Löschen eines Knotens (hier „König Rainer“)Inach Fall b) 
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Bild 4/4.7.1.2.2-1b Binär-Baum nach erfolgter Löschung (siehe 1a) 
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An dieser Stelle wollen wir noch eine Maßnahme erläutern, die direkt nichts mit der 
Handhabung der Binär-Bäume zu tun hat, aber bei unserem Programm verwendet 
wird: Der gelöschte Knoten und dessen zugehöriger Datensatz belegen natürlich 
Speicherplatz auf der Diskette, da die Datensatznummer in diesem Falle nicht mehr 
angesprochen werden kann. Hier ist es sinnvoll, den letzten Datensatz in der Datei 
an die freiwerdende Stelle zu holen, was in unserem Programm die entsprechenden 
Unterprogramme übernehmen. Natürlich erhält der nach vorne geholte Knoten 
dadurch eine andere Knotennummer, die entsprechend geändert werden muß, 
Außerdem müssen bei den beiden Söhnen und dem Vater die Zeiger auf die neue 
Nummer eingetragen werden. 


In unserem Beispiel wird der letzte Datensatz (‚Turba Wolfgang“ wurde schon ge- 
löscht), also „Strauß Marga“ als sechster Datensatz (und natürlich auch mit 
Knotennummer 6) eingesetzt. In Bild 7/4.7.1.2.2-2 haben wir auch diese Änderung 
durchgeführt. Wohlgemerkt hat diese Änderung nichts direkt mit der Baumbearbei- 
tung, jedoch mit der Speicherplatznutzung und Speicherplatzersparnis zu tun. 
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Bild 4/4.7.1.2.2-2 Binär-Baum mit geänderter Nummer bei Knoten „Strauß Marga“ 
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Kommen wir nun zu unserem schwierigsten Fall: c). Wenn ein Knoten gelöscht wer- 
den soll und zwei Söhne hat, läßt sich die vorher beschriebene Verfahrensweise 
natürlich nicht anwenden. Selbst wenn der Vater des zu löschenden Knotens nur den 
zu löschenden Knoten als Sohn hat, lassen sich beide Söhne des zu löschenden 
Knotens nicht dort anhängen, da die andere Freistelle nicht genutzt werden kann. 
Ist z.B. der zu löschende Knoten bei seinem Vater rechts aufgehangen, so kann der 
linke Sohn des zu löschenden Knotens nicht als linker Sohn des Vaters angehangen 
werden, da dann unsere Regel (1) verletzt wäre. Naturgemäß sind alle Bewertungen 
in dem Teilbaum, von dem der zu löschende Knoten die Wurzel darstellt, in diesem 
Fall größer als die des entsprechenden Vaters. Würde nun der linke Sohn des zu 
löschenden Knotens als linker Sohn des Vaters verwendet, so wäre der linke Sohn 
größer, was natürlich nicht sein darf, da er sonst nie mehr gefunden würde. 


Die einzige Lösungsmöglichkeit für unseren Fall c) ist es, ihn auf einen der Fälle a) 
oder b) zurückzuführen. Dazu muß der Knoten mit einem Blatt oder einem Knoten, 
der nur einen Sohn hat, vertauscht werden. Aber welchen Knoten zieht man dazu 
heran? 


Der auszutauschende Knoten muß auf jeden Fall größer als der linke Sohn des zu 
löschenden sein und kleiner als dessen rechter Sohn. Es gibt zwei Möglichkeiten, 
einen Knoten, der beide Bedingungen erfüllt, zu finden: Entweder man nimmt den 
größten Knoten im Teilbaum des linken Sohnes oder den kleinsten Knoten im Teil- 
baum des rechten Sohnes, vom zu löschenden Knoten aus gesehen. Auch die Vor- 
gehensweise dazu ist recht einfach: Man geht entweder vom linken Sohn des zu 
löschenden Knotens aus ausschließlich nach rechts oder vom rechten Sohn des zu 
löschenden Knotens aus immer nach links. 


In unserem Beispiel wollen wir den Knoten ‚„Eberl Werner“ löschen. Wenn wir 
dessen linken Sohn nehmen, so haben wir gleich ein Blatt und brauchen die Suche 
nicht weiter fortzuführen. Wir können also einfach den Knoten „Dietz Sigrid“ ge- 
gen den Knoten „Eberl Werner“ austauschen. Anschließend könnten wir den Kno- 
ten „Eberl Werner‘ wie unter Fall a) beschrieben abtrennen. 


Wir wählen jedoch den anderen Weg und gehen über den rechten Sohn des zu 
löschenden Knotens. Auch hier wird uns die Sache recht einfach gemacht, da wir 
bei dem Eintrag „Friese Manfred“ im linken Bereich suchen müssen, und hier eben- 
falls nichts vorhanden ist. Wir wählen also für unser Beispiel den Tausch „Eberl 
Werner“ gegen „Friese Manfred“ und erhalten einen Baum, wie er in Bild 
4/4.7.1.2.2-3 dargestellt ist. 
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Bild 4/4.7.1.2.2-3 Binär-Baum nach Tausch von „Eberl Werner“ gegen „Friese Manfred“ 


An dieser Stelle sollten Sie sich davon überzeugen, daß der Baum immer noch Regel 
(1) genügt, wenn wir den Knoten „Eberl Werner“ schlußendlich entfernt haben, wie 
es in Bild 4/4.7.1.2.2-4 der Fall ist. 
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Bild 4/4.7.1.2.2-4 Binär-Baum ohne ‚‚Eberl Werner“ 





Selbst das Löschen der Wurzel ist möglich, wie wir es im folgenden kurz besprechen 
wollen. Eine Möglichkeit wäre es, im rechten Teilbaum den am weitesten links 
stehenden Knoten zum Vertauschen heranzuziehen. Da der Eintrag „Strapko Peter“ 
keinen linken Sohn hat, könnte dieser gleich mit der Wurzel vertauscht werden. 


Wir wollen Ihnen aber auch zeigen, daß das Verfahren über „größere Strecken“ 
funktioniert und uns für den linken Teilbaum entscheiden. Im linken Teilbaum 
brauchen wir den Eintrag, der am weitesten rechts steht, also den größten Wert im 
„kleineren“ Teilbaum. Wir gehen also über „Friese Manfred“ zu „Kohl Klaus“ und 
„Roth Thomas“. Dies ist der am weitesten rechts stehende Knoten, da die Bewer- 
tung „Naftanail Adrian“ bereits wieder kleiner ist. Wenn wir nun „Schneider Hans 
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Lorenz“ mit „Roth Thomas“ vertauschen, wie es in Bild 4/4.7.1.2.2-5 dargestellt ist, 
so ist unsere Ordnung im Baum immer noch erhalten, bis auf den kleinen Schön- 
heitsfehler, daß der Eintrag „Schneider Hans Lorenz“ unserer Regel (1) nicht ent- 
spricht. 















ee] 
2 2] 9] 


Far 








BEE EEE 


















igrid 


BEE BEN 


BEE 


Pe 












ze 
[5 Io | 










BEEIBERE 
0 


Bild 4/4.7.1.2.2-5 Binär-Baum nach Tausch von „Schneider Hans Lorenz‘ gegen „Roth Thomas“ 


Denn diese Bewertung befindet sich im linken Teilbaum von der Wurzel aus ge- 
sehen, wo nur Einträge kleiner als die Wurzel sein dürfen. Äber diesen wollten wir 
sowieso löschen, woraus sich der Binär-Baum aus Bild 4/4.7.1.2.2-6 ergibt. Auch 
hier haben wir den Fall c) wieder auf den Fall b) zurückgeführt. 





Teil 4_ Kapitel 4.7.1.2 Seite 30 





Spezielle Programmierthemen 








4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 






Roth Thomas 
2 









Ee 
0 





BEWERZE 


2 
Peter 
ee] 


BEE 

















5 | 
I Adrian 


er ee 


Bild 4/4.7.1.2.2-6 Binär--Baum ohne „Schneider Hans Lorenz“ 





Umbenennen einer Knotenbewertung 


Das Umbenennen einer Knotenbewertung kann mehrere Auswirkungen haben. 
Einerseits muß sich der Platz des Knotens im Binär-Baum durch die Änderung der 
Knotenbewertung (gleich Zugriffsschlüssel) nicht unbedingt ändern, andererseits — 
was am häufigsten der Fall ist — wird eine Neuplazierung im Baum erforderlich. 
Dies stellt mitunter den kompliziertesten Vorgang bei der Handhabung der Binär- 
Bäume dar. 


Am einfachsten ist noch, wenn man diesen Knoten, gegebenenfalls auch mit Ver- 
tauschen, löscht und den Knoten mit der Neubewertung in den Binär-Baum neu ein- 
fügt. Bei der Programmierung ist hier sehr große Vorsicht geboten, da £inige Knoten 
an dem „Bäumchen-wechsel-dich-Spielchen“ beteiligt sein können. 


In diesem Fall muß beim Löschen allerdings berücksichtigt werden, daß hier kein 
freier Datensatz genutzt werden kann. 
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414.7.1.2.3 


Sortierte Drucklisten 





Mit dem Suchen und Einfügen sowie Löschen von Knoten sind eigentlich alle we- 
sentlichen Bearbeitungsmöglichkeiten am Binär-Baum aufgezeigt. Der Binär-Baum 
bietet jedoch noch eine weitere Möglichkeit, nämlich wenn man eine — nach dem 
Zugriffsschlüssel sortierte — Liste drucken möchte. Ein Sortieren wie in den ande- 
ren Fällen wird nämlich dann überflüssig. Übrigens das Sortierprogramm Heap- 
Short benutzt einen Binär-Baum zum Sortieren. Man braucht nur die Knoten in der 
alphanumerisch richtigen Weise zu durchlaufen, was durch die genormte Struktur 
recht einfach ist. 


Für das folgende Beispiel wollen wir nicht auf den schon stark dezimierten Knoten 
aus dem letzten Kapitel zurückgreifen, sondern auf den „voll erblühten‘‘ Baum aus 
Bild 4/4.7.1.2.1-21. 


Erkennen Sie schon die Vorgehensweise? Nach unserer Definition sind alle Bewer- 
tungen im linken Teilbaum unterhalb der Wurzel kleiner als die Bewertung der Wur- 
zel und im rechten Teilbaum entsprechend größer als die Bewertung der Wurzel. 
D.h. wir müssen zuerst den linken Teilbaum bearbeiten, dann die Wurzel und dann 
den rechten Teilbaum. 


Betrachten wir uns jetzt den linken Teilbaum. Von diesem der linke Teil ist wieder 
kleiner als die Wurzel dieses Teilbaumes und diese Wurzel ist wiederum kleiner als 
alle Einträge im rechten Teilbaum. 


Jetzt erkennen Sie sicherlich schon die Periodizität. Sie müssen erst so weit wie mög- 
lich links im Baum heruntergehen und finden dort die Bewertung des ersten auszu- 
druckenden Knotens. In unserem Fall ist es der Eintrag „Dietz Sigrid“. Als nächstes 
‚muß überprüft werden, ob vom gerade ausgegebenen Eintrag ein rechter Teilbaum 
existiert, der natürlich zuerst bearbeitet werden muß. In unserem Falle liegt dies 
nicht vor und wir können zum Vater übergehen und drucken die Daten zum Knoten 
„Eberl Werner“. 


Da hier ein rechter Teilbaum vorhanden ist, wird dieser nun zur Bearbeitung fällig. 
Wir lesen die Wurzel dieses Teilbaumes und stellen fest, daß kein linker Sohn vor- 
handen ist. Also steht die Wurzel dieses Teilbaumes („Friese Manfred“) zum 
Drucken an. In dieser Weise bearbeiten wir auch noch die Bewertungen „Kohl 
Klaus“ und „König Rainer“. 


Beim Knoten „Roth Thomas“ stellen wir fest, daß ein linker Sohn existiert und 
geben zunächst diesen aus, und dann die Bewertung „Roth Thomas“. Nun können 
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wir uns bis zur Wurzel „hochangeln‘, die als nächstes zum Drucken ansteht. Der 
Rest läßt sich für Sie leicht nachvollziehen. 


Generell gehen wir für unser erstes Element von der Wurzel aus soweit nach links 
— und nie nach rechts — wie möglich. Dieser Knoten wird als erstes bearbeitet, 
worauf der rechte Teilbaum dieses Knotens folgt. Also immer zuerst links, dann 
rechts. Der Vater von zwei Teilbäumen wird nach dem linken und vor dem rechten 
Teilbaum behandelt. 


Wenn wir also eine Ebene nach oben steigen, wird der erreichte Knoten verarbeitet, 
wenn wir von links kommen. Wenn wir von rechts kommen, wird er einfach über- 
gangen und wir gehen weiter nach oben. 


Da wir in unseren Listprogrammen nicht nur nach dem Zugrifsschlüssel sortieren 
wollen, erübrigt sich diese Vorgehensweise in den meisten Fällen. Jedoch haben wir 
ein solches Unterprogramm in unserer allgemeinen Dateiverwaltung eingebaut, um 
die Datenstammblätter geordnet ausgeben zu können. Außerdem läßt sich auf diese 
Weise auch der korrekte Aufbau eines Binär-Baumes prüfen, wie wir in einem Hilfs- 
programm noch zeigen werden. 


Die Vorgehensweise beim Ausdrucken haben wir in Bild 4/4.7.1.2.3 verdeutlicht. 
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König Rainel 






Naftanail Adrian 


Bild 4/4.7.1.2.3 Schema bei der sortierten Ausgabe von Binär-Bäumen 
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Die entsprechenden Unterprogramme für die Behandlung der Binär-Bäume finden 
Sie in unserer Unterprogrammsammlung ab Zeile 20000 (ohne Diskettenzugriff) 
und ab Zeile 25000 (mit Diskettenzugriff). Beschrieben werden die Unterprogramme 
in den Kapiteln 4/4.7.2.3 und 4/4.7.2.4. 
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4/4.7.3 


Übersichten 





Da der gesamte Komplex der allgemeinen Dateiverwaltung sehr umfangreich und 
damit auch relativ unübersichtlich ist, wollen wir Ihnen in diesem Kapitel einige 
Übersichten in die Hand geben, die das Arbeiten mit den Programmen, die Pro- 
grammierung sowohl als auch die Konzeption dokumentieren. Dabei stellen wir zu- 
nächst im ersten Unterkapitel den Zusammenhang zwischen allen Programmen 
dieser Dateiverwaltung dar. Es folgt eine Übersicht der verwendeten Datendateien 
und einer Beschreibung aller Variablen, die immer sinngleich in allen Programmen 
verwendet werden. In diesem Zusammenhang wollen wir von globalen Variablen 
sprechen. 


Als nächstes folgen Zusammenstellungen über die datenstrukturbeschreibenden 
Variablen, der listenbeschreibenden und etikettenbeschreibenden Variablen. Auch 
eine Übersicht über alle verwendeten Unterprogramme wird im Rahmen dieses 
Kapitels gegeben. 


414.7.3.1 


Programmstruktur 





An dieser Stelle möchten wir den Zusammenhang zwischen allen in diesem Teil vor- 
gestellten Programmen verdeutlichen. Bild 4/4.7.3.1-1 zeigt diesen Zusammenhang 
schematisch. Neben den von uns erstellten Programmen können Sie weitere Ihrer 
Programme sehr einfach in dieses Schema einbinden. 
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Hauptmenü 





1 - Datenverwaltung 

2 - Dienstprogramme 

3 - Kommerzielle Programme 
4- 

5- 

6= 

7- 

8- 

9- Ende 
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Dienstprogramme 





Kommerzielle Programme 





Be 
1- <Name 1> bearbeiten 


1- <Name 1> bearbeiten 
2- <Name 2> bearbeiten 
39- <Name 3> bearbeiten 
4- <Name 4> bearbeiten 
5- <Name 5> bearbeiten 
6- <Name 6> bearbeiten 
7- <Name 7> bearbeiten 
8- <Name 8> bearbeiten 
9- Ende 


Bearbeitungsmenü 


1- <Name> erfassen 

2- <Name> anzeigen/ 
ändern 

3- <Name> löschen 

4- <Name> selektieren, sor- 
tieren, löschen 

5- <Name> Etiketten 
drucken 

6- <Name> Stammblatt 
drucken 

7- <Name> Stand/Daten- 
sätze anzeigen 

8 - Datum ändern 

9- Ende 
















Selektier- und Sortier- 
kriterien erfassen 








1- DATANL 
2 - DATAEND(n) 
3 - DATAEND{u) 
4 - DATDRUCK 
5-LIAEND 
6-LIDRUCK 
7-ETAEND 
8-ETDRUCK 
9 - BACKUP 
10-KEY 
11 - MAINT 
e-Ende 








Etiketten drucken 





Listen ausgeben 


1 - Fakturieren 

2 - Offene Posten 

3 - Mahnwesen 

4 - Lagerverwaltung 
5 - Bestellwesen 
6- 

Te 

8- 
9-Ende 






























Bild 4/7.3.1.1 
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Allem voran stellen wir ein Hauptmenü, das zwischen den drei großen Bereichen 
Datenverwaltung, Dienstprogramme und kommerzielle Programme verzweigt. Die 
Menüpunkte 4, 5, 6, 7 und 8 stehen dabei zu Ihrer freien Verfügung. Um möglichst 
schnell durch die Menüs voranzukommen, werden wir dabei noch einige Tricks ver- 
wenden. Mehr dazu in Kapitel 4/4.7.5. 


Wenn Sie im Hauptmenü den Punkt 1 (Datenverwaltung) anwählen, so kommen Sie 
zu den Anwenderprogrammen, mit denen die Daten selbst verwaltet werden können. 
Dem eigentlichen Bearbeitungsmenü ist ein Dateienmenü vorgeschaltet, mit dem Sie 
aus den zur Verfügung stehenden Dateien auswählen können. Mit dem Dateien- 
menü können Sie also zwischen Kunden, Artikeln, Vertretern oder Offene-Posten 
wählen, oder aber zwischen Schallplattendaten, Briefmarken oder Dias. Dieses 
Dateienmenü werden wir mit einer Art Automatik ausstatten, so daß Sie die jeweils 
auf den angelegten Disketten befindlichen Dateien angezeigt bekommen. 


Mit dem angeschlossenen Bearbeitungsmenü wählen Sie die Arbeitsschritte zur 
Datenpflege aus. Das Bearbeitungsmenü ist in das Hauptprogramm der Datenver- 
waltung integriert und ruft somit für die wichtigsten Bearbeitungsvorgänge keine 
weiteren Programme auf. Lediglich die Druckroutinen und das Erfassen der dazu 
benötigten Daten wurde aus dem Hauptprogramm ausgelagert. 


Der nächste große Bereich wird durch die Dienstprogramme gebildet. In der Haupt- 
sache handelt es sich in unserem Fall um Programme, die datenbeschreibende 
Variablen beeinflussen. Es handelt sich hier um Daten, die die Struktur der Anwen- 
derdaten beschreiben. Bei den Dienstprogrammen können Sie selbstverständlich 
eigene Programme ebenso einbinden. 


Den letzten Bereich bilden die kommerziellen Programme, d.h. Programme, die auf 
die verwalteten Daten zurückgreifen. Es handelt sich also um eine hierarchische 
Struktur, angeführt von vier Menüprogrammen. 


414.7.3.2 


Datendateien und Programmdateien 





Neben der Kenntnis der allgemeinen Programmstruktur muß man natürlich auch 
wissen, mit welchen Dateien man es zu tun hat. Generell müssen wir hier zwischen 
Datendateien und Programmdateien unterscheiden. Beschäftigen wir uns zunächst 
mit den Datendateien. 
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Datendateien 





Typ rel : Relative Datei/Direktzugriffsdatei 
Typ segq: Sequentielle Datei 








Name Typ Inhalt Bemerkung 
Datum seq Akt. Tages- Die sequentielle Datei ‘Datum’ be- 
datum steht lediglich aus dem aktuellen 


Tagesdatum. Sie wird im Programm 
‘HAUPTMEN’ beschrieben und ge- 





löscht. 
<Name>dal | rel Stamm- Gegebenenfalls erster Teil wenn 
daten <Name>da2 existiert. Sie wird vom 
(erster Teil) Dateiverwaltungshauptprogramm be- 


schrieben und gelesen, gegebenen- 
falls werden auch Datensätze ge- 








löscht. 
<Name>da2 | rel Zweiter Teil Nicht immer vorhanden, was von 
der Stamm- der vorgegebenen Datenstruktur ab- 
daten hängt. Diese Daten werden ebenfalls 


vom Dateiverwaltungshauptprogramm 
gelesen, geschrieben und einzelne 
Datensätze werden gelöscht. 











<Name>dir | seq strukturbe- Diese Datei wird bei der Festlegung 
schreibende der Datenstruktur beschrieben und 
Variablen von den Dateiverwaltungsprogram- 
men ausgelesen. 
<Name>eti seq Etiketten- Diese Datei wird von den entspre- 
format chenden Dienstprogrammen angelegt 


und geändert und vom Druckpro- 
gramm zum Etikettendruck aus- 
gelesen. 





<Name>key | rel Suchbaum Die Datei <Name>key enthält den 
Binärbaum, der zum Auffinden der 
Datensätze aufgrund des in Kapitel 
4/4.7.1.2 beschriebenen Verfahrens 
benötigt wird. (Siehe auch Kapitel 
4/4.7.2.5 Binär-Baum-Routinen.) 


<Name>/Ii seq Listen- Die Datei wird durch die entsprechen- 
be- den Dienstprogramme angelegt und 
schreibende geändert und vom Programm zum 
Variablen Drucken der Listen gelesen. 




















Teil 4 Kapitel 4.73 Seite 5 





Spezielle Programmierthemen 








4.7 Dateiverwaltung für den C 128 Teil 4: Software-Erstellung 





Datendateien 


Typ rel : Relative Datei/Direktzugriffsdatei 
Typ seq: Sequentielle Datei 











Name Typ Inhalt Bemerkung 
<Name>se seq Selektier- Vor dem Drucken einer Liste wer- 
kriterien den die Selektierkriterien erfaßt und 





in <Name>se abgelegt, wo sie vom 
Druckprogramm aufgerufen werden. 


<Name>so seq Sortierkriterien, siehe Selektierkriterien 
<Name>vi rel Stammdaten der ersten verketteten Liste 











<Name>v9 Stammdaten der neunten verketteten Liste 








Durch <Name> ist jeweils der Name der Dateigruppe gekennzeichnet. Dieser 
kann vom Anwender frei gewählt werden, sofern er zwölf Zeichen nicht überschrei- 
tet. Werden z.B. Kundendaten verwaltet, so existieren auf der Diskette — ohne Be- 
rücksichtigung eventuell vorhandener verketteter Listen — folgende Dateien: 


— Kundendal 
— Kundenda2 (bei Verwendung einer Doppeldatei) 
— Kundendir 

Kundeneti 


Kundenkey 
Kundenli 
Kundense 
Kundenso 





Je nach Anzahl der verwendeten verketteten Listen sind auch noch die Dateien 
Kundenvl bis Kundenv9 vorhanden. 


: Werden Dias mit der Dateiverwaltung bearbeitet, so existieren dementsprechend die 
Dateien: 





— Diasdal 
— (Diasda2) 
— Diasdir 
— Diaseti 
— Diaskey 
— Diasli 

— Diasse 
— Diasso 
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Es ist sicherzustellen, daß vor dem Anlegen einer neuen Dateistruktur keine der ge- 
nannten Dateien auf Diskette existiert. 


Nun zu den Programmdateien. Auch diese wollen wir wieder in einer Übersicht zu- 
sammenstellen. 


Programmdateien 





Menüprogramme 

HAUPTMEN Hauptmenü, das zu den Bereichen Datenverwal- 
tung Dienstprogramme und kommerzielle Pro- 
gramme verzweigt. 

DATEIMEN Hier werden alle zur Bearbeitung möglichen Da- 
teien dem Anwender automatisch angezeigt. 
DIENSTMEN Menü der Dienstprogramme, insbesondere der 
Programme zur Verwaltung der datenbeschreiben- 
den Variablen. 

SONSTMEN Menüprogramm für weitere Anwenderprogramme, 


insbesondere die im Rahmen dieser Dateiverwal- 
tung vorgestellten kommerziellen Programme. 


Verwaltungsprogramme 


HAUPTPROGRAMM | der Dateiverwaltung mit den Bereichen Erfassen 
und Ändern der Daten sowie einiger Nebenfunk- 
tionen inklusive dem Bearbeitungsmenü. 


SELSORT Programm zur Erfassung der Selektier- und Sor- 
tierkriterien vor einem Listen- bzw. Etikettenaus- 
druck. 

LISTDRUCK Ausdruck der Daten in Listenform, wobei eine 
gewünschte Listenform noch angewählt werden 
kann. 


ETIDRUCK Ausdruck von Etiketten. 


Dienstprogramme 


DATANL Programm zum Anlegen der strukturbeschreiben- 
den Variablen 

DATAEND Programm zum Ändern der strukturbeschreiben- 
den Variablen (nur Stammdaten) 

DATAENDV Programm zum Ändern der strukturbeschreiben- 
den Variablen (verkettete Listen) 


DATDRUCK Kontrollausdruck der strukturbeschreibenden 
Variablen 
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Programmdateien 



































Dienstprogramme 

ETAEND Programm zum Erfassen und Ändern der etiketten- 
beschreibenden Variablen 

ETDRUCK | Kontrollausdruck der etikettenbeschreibenden Variablen 

LIAEND Programm zum Erfassen und Ändern der listen- 
beschreibenden Variablen 

LIDRUCK Kontrollausdruck der listenbeschreibenden Variablen 

BACKUP Dienstprogramme zur Datensicherung 

KEY Restaurieren des Binär-Baumes und andere Utilities 

MAINT Programm mit direktem Zugriff auf relative Dateien 








Datenverarbeitende Programme 
FAKTUR 


Fakturierprogramm 





OFFPOST 


Offene-Postenverwaltung 





MAHN 


Mahnwesen 





LAGER 


Lagerverwaltung 





BESTELL 





Bestellwesen 





Bild 4/4.7.3.2-1 zeigt noch eine Übersicht zwischen den Datendateien und Pro- 
grammdateien, woraus hervorgeht, welches Programm auf welche Datei schreibend, 
lesend oder löschend zugreift. Beim Löschen ist noch zwischen dem Löschen der 
gesamten Datei und dem Löschen eines einzelnen Datensatzes (nur bei relativen 
Dateien) zu unterscheiden. 


In der Tabelle wurden dafür folgende Abkürzungen verwendet: 








— Lesender Zugriff 

— Schreibender Zugriff 

— Löschen eines einzelnen Datensatzes (Record) 
— Löschen der gesamten Datei 


l 

s 
r 
d 
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414.1.3.3 
Verwendete Variablen von allgemeiner Bedeutung 





Es gibt einige Variablen, die ziehen sich durch sehr viele der benötigten Programme 
oder sie tauchen in einem Programm sehr häufig auf. Bis auf die Hilfsvariablen 
werden die genannten Variablen ausschließlich mit dem im folgenden aufgeführten 
Sinn verwendet. Die Übersicht der Variablen von allgemeiner Bedeutung stellt ein 
weiteres Glied in der Programmdokumentation dar. Aus Gründen des besseren 
Überblicks werden die Variablen nicht nach Sinngruppen geordnet, sondern alpha- 
betisch aufgeführt. 





Temporäre Variable, die nur kurzzeitig verwendet wird, um ein 
Zeichen von der Tastatur einzulesen. 

AO Da zwei Bildschirmseiten zur Anzeige der einzelnen Datensatz- 
elemente am Bildschirm vorgesehen sind, bildet AO ein Merker, 
welche Bildschirmseite gerade aktuell ist. 






























A Anzahl der Datensatzelemente, die in der ersten Bildschirmmaske 
_| angezeigt werden. Ai kann Werte 1 und 20 annehmen. 

A2 Entsprechend A1 für die zweite Bildschirmseite, gegebenenfalls 0, 1 
wenn alle Datenelemente der ersten Bildschirmmaske angezeigt 
werden. 

A6 Da die Datensatzlänge bei den Commodore-Floppys auf 252 


Zeichen begrenzt ist, wir aber auch Datensätze mit größerer Länge 
verwalten wollen, werden die Elemente eines logischen Datensat- 
zes (Datensatz, wie ihn der Anwender sieht) nach Benutzervorgabe 
in zwei physikalische Dateien aufgeteilt. A6 gibt an, wieviel Daten- 








satzelemente in der ersten Datei (<Name> dat) vorhanden sind. 
| A7 Siehe A6, jedoch für die zweite Datei, sofern vorhanden 
(<Name>da2) 
AR$ ARt eines Datensatzelementes, das gerade im Rechner bearbeitet 


wird. Insbesondere enthält AR$Werte aus dem Feld AR$(). AR$ 

kann folgenden Inhalt haben: 

a:Datensatz enthält alphanumerische Zeichen 

d:Datensatz enthält Kalenderdatum 

i :Datensatz enthält ganze Zahlen (Integer) 

f :Datensatz enthält eine Dezimalzahl, wobei die Anzahl der 
Vor(x)- und Nachkommastellen (y) in der Form fx.y ze 
ist. 
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ARS(AW) 





Feld, was als Daten die ARt aller Elemente eines Datensatzes ent- 
hält (siehe AR$) 

































































AW Anzahl der Werte (Datensatzelemente) eines Datensatzes. Gegebe- 
nenfalls wird der Wert von AW noch in den Variablen A6 und A7 
getrennt mitgeführt (siehe dort) 

CD$ Zeichenreihe aus 25x ‘Cursor nach unten’ (Cursor Down) 

DA$ TagesDAtum in der Form TT.MM.JJ. Der Wert von DA$ wird aus 
der Datei ‘Datum’ ausgelesen. 

DB$ Zeichenkette aus Grafikzeichen für den Strich über der Titelzeile 

DUS$ Zeichenreihe aus Grafikzeichen zum Unterstreichen der Titelzeile 

ET Anzahl der vorgegebenen ETikettendruckmuster 

l,J Laufvariablen 

IH$ Aktueller InHalt eines Datensatzelementes 

IH$(AW) Daten eines Datensatzes getrennt nach Datensatzelementen. Der 
Index stellt eine Ordnung auf die Datensatzelemente dar. 

IH%(VL) | Die Zeiger auf die verketteten Listen sind nichts anderes als eine 
Datensatznummer. Die Zeiger auf das erste Element der verketteten 
Listen zu einem bestimmten Datensatz wird in diesem Datensatz 
selbst abgelegt (für den Anwender nicht ersichtlich), und deshalb 
ebenso Datensatzelemente, wie die Anwenderdaten auch. 
Physikalisch sind die Zeiger am Ende des Datensatzes angebracht 
und werden jeweils in das Feld IH%(VL) übernommen. 

KL Länge des Zugriffsschlüssels (Key-Length). Außer dem eigentlichen 
Zugriffsschlüssel (erstes Element des Datensatzes) werden weitere 
Daten für die Zeiger benötigt. Siehe dazu auch die Kapitel 44.7.1.2 
und 4/4.7.25 

LA LAenge eines Datensatzelementes in Zeichen (zur Erinnerung: 
Auch Zahlen werden als Zeichenreihen gespeichert) 

LA(AW) Die einzelnen Längen für alle Elemente eines Datensatzes. 

LD Länge der ersten Datendatei (Länge des Datensatzes), siehe auch 





A6 
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LE Länge der zweiten Datendatei (siehe auch A6) 
LW LaufWerksnummer unter der die Datendateien (siehe Kapitel 


4/4.73.2) zu finden sind. Die 0.a. Dateien dürfen nicht auf ver- 
schiedene Laufwerke verteilt werden. 























NA$ NAme (Bezeichnung) des aktuellen Datensatzelementes 

NA$(AW) | Name (Bezeichnungen) aller Einträge in den Datensatz 

NM$ HauptNaMe einer Dateigruppe (siehe Kapitel 4/4.7.3.2). NM$ darf 
die Länge von zwölf Zeichen nicht überschreiten. 

sP$ Zeichenreihen aus Leerzeichen (SPaces) 

ST$ Zeichenreihe aus (Binde)STrichen. ST$ wird ausschließlich beim 


Drucken verwendet. 


VI$S(VL,5) | In VI$(VL,5) werden die Inhalte aller Verketteten Listen (jeweils ein 
Datensatz aus einer verketteten Liste) festgehalten. Der zweite 
Parameter zeigt auf das entsprechende Element des Datensatzes, 
und der erste Index gibt die Nummer der verketteten Liste an. 
VI$(VL,5) ist das Analogon zu IH$(AW). 


VL Anzahl der verketteten Listen 














Weitere globale Variablen sind in den folgenden drei Unterkapiteln aufgeführt. 


4/4.7.3.4 


Datenstrukturbeschreibende Variablen 





Die in diesem und den folgenden beiden Unterkapiteln vorgestellten Variablen 
haben wir — bis auf die wichtigsten — bewußt aus der Aufzählung der Variablen 
mit allgemeiner Bedeutung herausgehalten, da ihre Wirkung besser zu verdeutlichen 
ist, wenn sie im Zusammenhang dargestellt sind. Aus diesem Grunde ist der Zusam- 
menhang auch grafisch dargestellt. Die Darstellung für die datenstrukturbeschrei- 
benden Variablen finden Sie in Bild 4/4.7.3.4-1. 
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Zum Konzept der datenstrukturbeschreibenden Variablen sei auf Kapitel 4/4.7.1.1 
verwiesen. Generell benötigen wir die strukturbeschreibenden Variablen sowohl für 
den Stammdatensatz als auch für jede der verketteten Listen, die ja jede für sich 
auch eine eigene Datei darstellen. Als wichtigstes Element ist hier die Anzahl der 
Werte (Elemente) jeden Datensatzes zu nennen. Weiterhin benötigen wir einen 
Namen für jeden Eintrag sowie dessen Typ und Länge. Im Stammdatensatz müssen 
weiterhin Zeiger auf die ersten Einträge der zugehörigen verketteten Listen vorhan- 
den sein, und jeder dieser Listen wollen wir auch noch einen eigenen Namen geben. 
Daraus resultieren die in der folgenden Aufsicht angeführten Variablen: 





ARS(AW) In AR$(AW) sind die Typen der einzelnen Datensatzelemente festge- ] 
halten (zur näheren Beschreibung des Inhalts von AR$(AW) siehe 
Kapitel 4/4.7.3.3). 


AW Anzahl der Elemente eines Datensatzes. Damit ist der gesamte logi- 
sche Datensatz gemeint, wie er vom Anwender verwendet wird. Die 
Trennung in zwei physikalische Dateien wird berücksichtigt, in- 
dem in AW die Anzahl der Elemente in der ersten Datendatei 
(<Name> dat) als Nachkommastellen zugeordnet sind. Die Nach- 
kommastellen werden später mit 100 multipliziert und der Variablen 
A6 (siehe Kapitel 4/4.7.3.3) zugewiesen. A7 errechnet sich dann aus 
der Differenz zwischen AW und A6. Ist der Wert von AW eine Inte- 
gerzahl, so wird nur auf eine physikalische Datei zurückgegriffen. 
Einige Beispiele: 


AW 





27,14: Ein Datensatz enthält insgesamt 27 Elemente, 
davon 14 in der ersten physikalischen Datei 
AW = 12: Es wird nur eine physikalische Datei benötigt, die 
alle zwölf Datensatzelemente enthält 
AW = 14,7 : Zwei physikalische Datendateien, wo beide je 
7 Datensatzelemente enthalten 


LA(Aw) erfaßt die Längen der einzelnen Datensatzelemente, wobei zu be- 
rücksichtigen ist, daß alle Einträge als Zeichenreihe zu speichern 
sind. Für maximal sechsstellige Zahlen beträgt die Länge sieben, 
da das Vorzeichen mitberücksichtigt werden muß und — sofern es 
sich um Dezimalzahlen handelt, ist zur Anzahl der Vor- und Nach- 
kommastellen noch eine 2 zu addieren (Vorzeichen und Dezi- 
malpunkt) 
NAS(AW) Enthält die Beschreibungen aller Elemente eines Datensatzes. Aus 
Gründen des Bildschirmaufbaus darf die Länge der einzelnen Ein- 
träge von NA$(AW) zwanzig nicht übersteigen. - 
j VA(VL,5) Entsprechend der Variablen LA(AW) gelten die Inhalte von VA(VL,5) 
für die Länge der einzelnen Datenelemente in den verketteten 


Listen. | 
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Beschreibende Variablen 


Stammdatensalz 








AN 


Anzahl 
der 
Elemente 














win 
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HS, ins) | IHSAW) | Zeiger Zeiger Zeiger VLS{) vis | vis(1,2) \ VISVW 2” 
Inhalt des Inhalt des Inhalt des auf auf auf Name der Inhalt des Inhatt des Inhalt des 
ER an: fo Eited Ye ersten ersten Elementes | zweiten Elementes Vw.ten Elementas 
elementes | elementes elementes Joe IB a Liste in der ersten Liste | in der ersten Liste der ersten Liste 
NAS (1) NAS(2) fi f NAS(AW) VNS{L) VNS(12) \ VNSCuW) 
Name des Name des Name des Name des Name des Name des 
ersten zweiten A-ten ersten Elementes zweiten Elementes Vw-ten Elemenles 
Elements Elemens Elements in der ersten Liste in der ersten Liste in der ersten Liste 
ARS (1) ARS(2) ARS{AW) VAS(1A) VAS{1,2) VAS(LyW 
Typ des Typ des Typ des Typ des Typ des Typ des 
ersten zweiten Alten ersten Elementes | zweiten Elementes vwten Elementes 
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Elements | Elemens | Elements in der ersten Liste el IL der ersten Liste in der ersten Liste 
Daten der zweiten bis Daten der zweiten DS (VLien Lision _ ten Listen 
www 
Anzahl der 
Elemente in der 
YLiten Liste 
vLsvi) VIS(YL„) vistvua) T visvuwwn 
IL 22... 00.8 Name Innalt des Inhalt des Inhalt des 
der ersten Elements | zweiten Eiementes Wien 
VL-4en Liste in der VL-ien in der VL-ten Liste in der VL-ien Liste 
VNS(YLA) VNS{VL,2) VNS(VLIWIVO) 
Name des Name des Name des 


vas(vL,t 


vAasıVL.2) 


VASLVLYWIVLI 





Typ des 
ersien Elementes 
in der VL-ten Liste 


Typ des 
zweiten Elementes 
in der Vi-ten Liste 


Typ des 
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in der VL-ten Liste 





VAS(VLA 
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Länge des 
ersten Elementes 
in der VL-ten Liste 
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Länge des 
zweiten Elementes 
in der VL-ten Liste 


Länge des 
vw-ten Elementes 
in der VL-ten Liste 








Bild 4/4.7.3.4-1 Schematische Darstellung der strukturbeschreibenden Variablen 
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Bild 4/4.7.3.6: Schema der Etikettenbeschreibenden Variablen 
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VAS(VL,5) Das Pendant zu AR$(AW) in der Standarddatei bildet VA$(VL,5) bei 
den verketteten Listen. Der erste Index gibt die Nummer der verket- 
teten Liste an und der zweite Eintrag die Nummer des Datensatz- 
elementes. 


VL Gibt die Anzahl der konfigurierten verketteten Listen an. Beachten 
Sie bitte, daß für jede verkettete Liste im Standarddatensatz Platz 
freigehalten werden muß für einen Zeiger auf das erste Element 
der verketteten Liste. Im Prinzip ist die Anzahl der verketteten 
Listen nur durch die größtmögliche Datensatzlänge (und das bei 
zwei physikalischen Dateien!) begrenzt, jedoch haben wir software- 
mäßig ihre Zahl auf neun beschränkt. Außerdem lassen wir je ver- 
kettete Liste nur maximal fünf Datensatzelemente zu, was wohl in 
den allermeisten Fällen ausreichen wird. Generell ist es auch mög- 
lich, an eine verkettete Liste weitere verkettete Listen anzuhängen, 
jedoch wollen wir innerhalb unserer Dateiverwaltung davon ab- 
sehen, da es sich hierbei schon um sehr spezielle Anwendungs- 
gebiete handelt. 


| VL$(VL) Speichert die Namen der einzelnen verketteten Listen. 


VN$(VL,5) Ist das Analogon zu NA$(AW) für die verketteten Listen. Auch hier 
bezeichnet der erste Index wieder die Nummer der verketteten 
Liste und der zweite Index die Nummer des Eintrages. 


VW(VL) In AW hatten wir die Anzahl der Datensätze in der Stammdatei fest- 
gehalten. Dies müssen wir auch für jede einzelne verkettete Liste 
durchführen, was für.uns die Variable VW(VL) erledigt. 


























Generell haben wir für verkettete Listen Variablennamen gewählt, die mit einem V 
beginnen und deren zweiter Buchstabe korrespondiert zu dem — meistens auch 
zweiten Buchstaben — des entsprechenden Variablennamens für die Stammdatei. 


414.735 


Listenbeschreibende Variablen 





Genauso, wie wir bei der Dateiverwaltung vorgehen, werden wir es auch bei einem 
Teilbereich, den gedruckten Listen, tun. Auch hier soll der Benutzer der Dateiver- 
waltung selbst festlegen können, wie seine Listen aussehen sollen, und welche Anga- 
ben sie enthalten. Dies zwar nur in eingeschränktem Umfang, aber doch so, daß sich 
alle Informationen auf fast beliebige Art und Weise zusammenstellen lassen. Im fol- 
genden eine Aufzählung der wichtigsten Variablen aus diesem Bereich, deren Zu- 
sammenhang aus Bild 4/4.7.3.5-1 ersichtlich ist. 
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der letzten Liste 


LI {LI,LIG(LN) 


Datenelement- 
nummer für die 
letzte Spalte in 
in der letzten Liste 
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zweiten Spalte .-- 
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Summentyp der -.. 
zweiten Spalte -.. 

in der ... 
letzten Liste - 


LUS {LI,LIYKLI)) 


Überschrift der 
letzten Spalte 
in der 
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in der 
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Bild 4/4.7.3.5-1: Schematische Darstellung der listenbeschreibenden Variablen 


Spezielle Programmierthemen 





Teil 4 Kapitel 4.7.3 Seite 17 














4.7 Dateiverwaltung für den € 128 Teil 4: Software-Erstellung 


Die listenbeschreibenden Variablen werden in der Datei (Namejli abgelegt. 











Li 


Anzahl der Listversionen, die prinzipiell nicht begrenzt ist. 















LI(LI,AW) 





LI$(LI) 


LI%(LI) 





LU$(LI,AW) 










SU$(LI,AW) 













Bei den ausgedruckten Listen soll jeder Anwender selbst entscheiden können, 
welche Datensatzelemente in welcher Reihenfolge gedruckt werden. Der Listen- 
ausdruck ist naturgemäß spaltenweise, wobei in jeder Spalte der Inhalt eines Da- 
tenelementes aufgezeigt wird. Für jede Liste muß also gespeichert werden, wel- 
ches Datensatzelement in welcher Reihenfolge ausgedruckt werden soll. Dafür 
steht uns der zweite Index in LI(LI,AW) zur Verfügung. Da im ungünstigsten Fall 
alle Datensatzelemente ausgedruckt werden sollen, muß die Matrix LI(,) im zwei- 
ten Index entsprechend groß (AW) dimensioniert werden. Der erste Index gibt die 
Nummer der Liste an (siehe L]). 


















Für eine anwendergerechte Bedienerführung ist es unerläßlich, daß die Listen 
nicht nur eine Nummer sondern auch Namen erhalten, mit denen man sie unter- 
scheiden kann. Diese Namen werden in LI$(LI) abgespeichert. 









Durch LI(LI,AW) ist noch nicht festgelegt, wieviel Elemente die niedrigere Liste 
letztendlich enthält. Diese Zahl wird in LI%(LI) gespeichert. 


Generell wollen wir die Bezeichnungen der einzelnen Datensatzelemente zur Li- 
stenüberschrift heranziehen, jedoch dem Anwender abweichende Überschriften 
ermöglichen. Für jede der verschiedenen Listen (erster Index) werden die Über- 
schriften zu den einzelnen Spalten (zweiter Index) in LU$(LI,AW) abgelegt. 


Natürlich gibt es viele Anwendungsfälle, bei denen nicht nur einfach die Informa- 
tionen der einzelnen Datensätze ausgedruckt werden sollen, sondern diese auch 
aufzusummieren sind. 

SU$(LI,AW) gibt einenen Hinweis auf die Summationsart. Entweder werden Inte- 
gerzahlen (I) oder Fließkommazahlen (F) oder gar nicht summiert. Im letzten Fall 
enthält der zuständige Eintrag in der Matrix SU$(,) eine leere Zeichenreihe. Für 
jede Liste (erster Index) und jede Spalte in der Liste (zweiter Index) wird die Art 
der Summation festgehalten. 








414.1.3.6 


Etikettenbeschreibende Variablen 





Neben dem Ausdruck normaler Computerlisten wollen wir dem Benutzer unserer 
allgemeinen Dateiverwaltung auch die Möglichkeit in die Hand geben, Etiketten 
nach seinen Wünschen zu drucken. Dabei greifen wir wieder auf unser bewährtes 
Schema zurück und lassen den Anwender die Struktur seiner Etiketten selbst be- 
stimmen. In diesem Kapitel stellen wir die wichtigsten dazu benötigten Variablen 


vor. 





Teil 4 Kapitel 4.7.3 Seite 18 








Spezielle Programmierthemen 





4.7 Dateiverwaltung für den C 128 


Teil 4: Software-Erstellung 


Der Druck von Etiketten innerhalb unseres Programmsystems ist nicht nur auf das 
Anschreiben von Kunden beschränkt, sondern hängt hauptsächlich von der Art und 
Größe der verwendeten Etiketten beim Anwender ab. Artikelbeschriftungen, Preis- 
auszeichnungen, Übersichten über Tonband- und Datenkassetten, Tonbänder und 
Schallplatten und viele andere Bereiche lassen sich mit dem Programm zum Aus- 
druck von Etiketten sehr leicht erledigen, da die Daten ja schon in unserer Dateiver- 
waltung vorhanden sind. Die Inhalte der nachfolgenden Variablen finden Sie in der 
Datei (Name) etc. 





Breite der Etiketten in Zeichen gemessen 








Lesen 
EL(ET,AW) 


Länge eines einzelnen Eintrages beim Druck auf ein Etikett. Im ersten Index wird 
die Nummer des Etikettenformates und im zweiten Index die Nummer des Daten- 
satzelementes angegeben. Eventuell sind die Daten noch auf das vorgegebene 
Maß abzuschneiden oder mit Leerzeichen auf die gewünschte Länge aufzufüllen. 








ENS(ET) 





ER(ET) 


ESHET,AW) 






Wie bei unseren verschiedenen Listenversionen auch, sollen die Etikettenversio- 
nen jeweils einen eigenen Namen erhalten, der in EN$() gespeichert ist. 


Im Privatbereich werden sicherlich nur einbahnige Etiketten verwendet, im kom- 
merziellen Bereich sind jedoch sehr häufig mehrbahnige Etikettenbögen in Ver- 
wendung. Liegen z.B. vier gleichartige Etiketten nebeneinander, so spricht man 
von vierbahnig. Die Anzahl der Bahnen für jede einzelne Etikettenversion wird in 
vorgenannter Variable festgehalten. Die Speicherung der Anzahl der Bahnen ist 
besonders wichtig, da bei mehreren Schreibzeilen pro Etikett, mit den normalen 
Druckern nicht zuerst ein Etikett vollständig gedruckt werden kann, sondern die er- 
sten Zeilen aller nebeneinander liegenden Etiketten gleichzeitig auszudrucken 
sind. 


Die meisten Matrixdrucker lassen verschiedene Schriftarten (Unterstreichen, Fett- 
schrift, Breitschrift), teilweise sogar verschiedene Zeichensätze zu. In der Regel 
wird das Umschalten zwischen verschiedenen Schriftarten / Zeichensätzen durch 
ein Steuerzeichen dem Drucker übermittelt. Um die Eigenschaft der Drucker nut- 
zen zu können, können nach jedem Eintrag im Etikett Steuerzeichen angegeben 
werden. Diese werden in ES$(,) abgelegt. Im Druckprogramm für Etiketten werden 
wir später noch eigene ’Steuerzeichen’ kreieren, die die an den Drucker zu über- 
gebenden Daten innerhalb des Rechners noch umformen. 





ET 


Anzahl der Etikettenversionen. Analogon zu LI bei den Listversionen und VL für 
die verketteten Listen. ET muß als erstes bekannt sein, um die anderen Variablen 
in diesem Zusammenhang entsprechend dimensionieren zu können. 






1 





ET(ET,AW) 


ja 


Dieses zweidimensionale Feld entspricht der Variablen LI(LI,AW) bei den Listver- 
sionen. Hier werden für alle Etikettenversionen (erster Index) die Datensatzele- 
mente (zweiter Index) in der Reihenfolge ihres Erscheinens auf dem Etikett einge- 
tragen. 





| ET%LET) 


Anzahl der jeweiligen Einträge bei der im Index angegebenen Etikettenversion. 








EZ(ET) 












Damit Etiketten der unterschiedlichsten Höhen verwendet werden können, wird in 
EZ{ET) die Anzahl der Schreibzeilen je Etikett festgehalten. Die Ränder am oberen 
und unteren Rand der Etiketten werden dabei mitgerechnet. “ 










Eine grafische Übersicht der etikettenbeschreibenden Variablen finden Sie in Bild 


4/4.7.3.6. 
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4/5 
Maschinensprache 





4/5.2 
Assemblerkurs 





In diesem Kapitel werden Grundlagen und Befehlsstruktur der Assemblerpro- 
grammierung auf dem Commodore 64 vorgestellt. Die Assemblersprache ist die 
Muttersprache eines Computers, also die Sprache, die direkt vom Computer aus- 
geführt werden kann. 


4/5.2.1 


Grundlagen der Assemblerprogrammierung 





Alle Programme, die auf Ihrem Computer ausgeführt werden, werden von der 
CPU abgehandelt. So ist der BASIC-Interpreter des C64 auch nur ein Programm, 
wie zum Beispiel eine Textverarbeitung. Wenn sie also einen Basic-Befehl ein- 
geben, so wird durch diesen Befehl ein kleines Programm gestartet. Eine CPU 
versteht nämlich keine Sprachen wie BASIC, PASCAL, FORTH oder andere, 
sondern nur eine speziell für die CPU festgelegte Folge von Bitmustern. Daraus 
ergibt sich auch, warum Assemblerprogramme (= Programme die in der Sprache 
der CPU geschrieben sind) um vieles schneller sind als Basic-Programme: die 
CPU kann das Programm direkt abarbeiten und muß nicht erst einen Befehl 
erkennen, das zugehörige Programm suchen und schließlich abarbeiten (d.h. einen 
Befehl interpretieren). Daher lohnt es sich, die Sprache der CPU zu lernen. 


Bevor man sich jedoch mit der Sprache der CPU beschäftigen kann, muß man 
sich erst einmal ansehen, aus welchen Komponenten die CPU 6510 besteht. 
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4/5.2.1.1 
Die CPU 6510 





Das Herz des Commodore 64 ist die CPU 6510 (CPU= Zentraleinheit/engl.: cen- 
tral processing unit). Dieser Baustein steuert alle Abläufe im Computer. Die CPU 
6510 ist eine leicht modifizierte Variante der CPU 6502, welche neben der Z-80 eine 
der weitverbreitetsten Zentraleinheiten ist. Man findet sie in den Computern von 
Commodore, Atari, Apple und anderen. Die 6510 entspricht in ihrem Befehls- 
satz genau der 6502. Die CPU 8502 des C 128 ist ebenfalls nur eine modifi- 
zierte 6502. Daher gelten die Aussagen über die 6510 auch für die 8502 des C 128. 
Der C 128 hat jedoch zusätzlich eine Z-80 CPU eingebaut, die im CP/M Mode 
in Funktion gesetzt wird. Im 64’er Modus und im 128’er Modus arbeitet er mit 
der 8502. 


4/5.2.1.2 
Das Registermodell der CPU 6510 





Die CPU 6510 besteht aus fünf 8-Bit-Registern und einem 16-Bit-Register. 




















Prozessorstatusregister {PSR) 
Akkumulator {Akku) 
X-Register X 
Y-Register 69) 
Stackpointer (SP) 
Adresszähler (16 bit) (PC) 








Zunächst enthält die CPU einen Befehlszähler PC, der die Adresse des nächsten 
zu holenden Befehles enthält. Er ist 16-Bit breit d.h. man kann mit ihm 2!°=65536 
(=64K) verschiedene Adressen ansprechen. 
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Speicher 
PC —— | Befehl 

















Dann gibt es ein 8-Bit breites Rechenregister, den Akkumulator (Akku). Über den 
Akkumulator werden alle arithmetischen und logischen Befehle ausgeführt. Mit 
dem Akkumulator lassen sich die Zahlen 0-255 oder —128 bis +127 darstellen 
(siehe auch Kapitel über Zahlendarstellung). 


Zwei weitere Register, X und Y genannt, sind besonders für die Adressierungs- 
arten interessant. Mit ihnen werden Tabellen verwaltet, wobei die Register als 
Offset zum aktuellen Element benutzt werden. Dies bedeutet, daß das Register 
die Tabelleneinträge zählt, und sich die Adresse des Tabelleneintrages aus der 
Adresse des Tabellenanfangs addiert mit dem Inhalt des Registers ergibt. Daher 
werden X und Y Indexregister genannt. Auf die Indexregister kann man nur Ope- 
rationen zum Laden, Speichern und Zählen anwenden. 


Ein weiteres 8-Bit Register ist der Stackpointer (SP) (Stackpointer= Stapelzeiger). 
Er dient als Zeiger auf eine der Speicherstellen im Bereich $0100 bis $01FF. Dieser 
Bereich hat somit eine besondere Bedeutung. Hier können Rücksprungadressen 
und andere Werte abgelegt werden. Dazu gibt es zwei Operationen: 


- Pusch speichert den Wert und vermindert dann den Stackpointer; 
- Pull erhöht erst den Pointer und ließt dann den Wert. 
Sie können sich den Stack als einen Stapel Zeitungen vorstellen. Mit Pusch le- 


gen Sie eine Zeitung oben auf den Stapel und mit Pull nehmen Sie die obere 
Zeitung wieder herunter. 


Der zuletzt auf den Stapel gelegte Wert wird als erstes wieder gelesen! 
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Pusch: Pult: 
Wert 
ER Wert 
Wert 3 
Wert 2 
Wert 1 
Wert auf Stapel Wert vom Stapel 
legen holen 











Als letztes Register betrachten wir das Prozessorstatusregister (PSR). Es ist eben- 
falls 8-Bit breit, jedoch haben hier die einzelnen Bits eine bestimmte Bedeutung. 
Die Bits werden daher als Flags, Flaggen oder Merker bezeichnet. 


Bit 0: Carry Flag (C) 


Dieses Bit setzt die CPU auf ‚I‘, wenn bei einer arithmetischen Operation ein 
Übertrag entsteht. Bei der Subtraktion wird das Bit umgekehrt genutzt: Es wird 
auf ‚0° gesetzt, falls ein Unterlauf auftritt. 


Bit 1: Zero Flag (Z) 
Dieses Bit setzt die CPU auf ‚I‘, wenn eine Operation Null ergibt. 


Bit 2: Interrupt Flag (D 


Wird dieses Bit gesetzt, so werden Unterbrechungsanforderungen auf der IRQ 
Leitung des Prozessors ignoriert. 


Bit 3: Dezimal Flag (D) 
Ist dieses Bit gesetzt, arbeitet die CPU im Dezimal Modus. 


Bit 4: Break Flag (B) 
Wird von der CPU nach einem Break-Befehl gesetzt. 


Bit 5: Unbenutzt 
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Bit 6: Overfiow Flag (V) 


Wird von der CPU gesetzt, wenn bei einer arithmetischen Operation mit vor- 
zeichenbehafteten Zahlen ein Fehler entsteht. 


Bit 7: Negativ Flag 


Wird von der CPU gesetzt, wenn sich bei einer Operation ein negatives Ergeb- 
nis ergibt. 


(Abweichungen von den Regeln werden später bei den einzelnen Befehlen be- 
trachtet.) 


Das Prozessorstatusregister ist also folgendermaßen organisiert: 








PSR - Bit 76 


543 2 10 
Ivl-Telolıjzlel 





4/5.2.1.3 
Die Hardware Vektoren RESET, IRQ und NMI 





Nun wissen wir zwar wie die CPU aufgebaut ist, aber woher weiß die CPU nun, 
was sie zu tun hat? Betrachten wir also einmal, was nach dem Einschalten des 
Computers passiert. Beim Einschalten wird von einer Elektronik ein Signal auf 
eine spezielle Leitung, die RESET Leitung (Reset=Rücksetzen) gelegt. Dieses 
Signal erkennt die CPU. Sie lädt nun den Programmzähler PC mit dem Inhalt 
der Speicherzellen $FFFC und $FFFD. In diesen Speicherstellen muß also die 
Startadresse eines Programms stehen. Im C64 ist es die Adresse der Reset-Routine, 
deren Aufgabe es ist, den Bildschirm zu löschen, den Speicher zu testen und 
schließlich den BASIC-Interpreter (oder ein Modul) zu starten. 


Es gibt aber noch zwei weitere Leitungen, die die CPU zu bestimmten Aktionen 
veranlassen. Es sind dies die Leitungen NMI und IRQ. Beide Leitungen sind Unter- 
brechungsanforderungen. Liegt an einer Leitung eine Unterbrechungsanforderung 
an, so unterbricht die CPU das laufende Programm, bringt die Adresse und das 
Prozessorstatusregister auf den Stapel (Stack) und springt in das Programm, des- 
sen Startadresse sie in den Speicherstellen $FFFA/$FFFB bei NMI bzw. $FFFE/ 





Teil 4 Kapitel 5.2 Seite 6 





Maschinensprache/Assembler 








5.2 Assemblerkurs Teil 4: Software-Erstellung 


$FFFF bei IRQ findet. Nach Beendigung des Programms, holt sich die CPU 
und PC und das Prozessorstatusregister wieder vom Stapel, und fährt mit der 
Programmausführung genau an der Stelle fort, an der sie unterbrochen wurde. 


Im C64 wird die IRQ-Leitung dazu benutzt, alle 60stel Sekunde die Uhrzeit 
zu erhöhen und die Tastatur abzufragen. Die NMI-Leitung wird nur für die 
RS 232 C-Schnittstelle benutzt. 


Der Unterschied zwischen der IRQ und der NMI-Leitung besteht darin, daß 
man der CPU verbieten kann, auf die IRQ-Leitung zu reagieren. Dies wird durch 
das Interrupt Flag im Prozessorstatusregister erreicht. Wird dieses Bit gesetzt, 
ignoriert die CPU die IRQ-Leitung. Die Reaktion auf die NMI-Leitung kann nicht 
verboten werden. 


Unser Computermodell sieht also wie folgt aus: 


$0000 


Speicher 
CPU 


SP > 


Pc — 


Akku Befehle 
x & 
Y “ Daten 


PSR 


T— 


NMI IRQ RESET 














$FFFF 
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4/5.2.1.4 
Der Prozessorport der 6510 





Alles bisher gesagte gilt sowohl für die CPU 6502 als auch für die 6510. Wo liegt 
nun aber der Unterschied? Von der technischen Seite gesehen, hat die 6510 eine 
Reihe von Unterschieden. Diese interessieren uns als Programmierer nicht beson- 
ders. Für uns gibt es eigentlich nur einen Unterschied: Die Verwendung der 
Speicherstellen $0000/$0001. Bei der 6502 sind dies ganz normale Speicherstellen. 
Bei der 6510 ist hier jedoch ein 6-Bit Port realisiert. Das heißt, die CPU hat 6 
frei programmierbare Leitungen, die im C64 jedoch eine bestimmte Funktion 
haben (siehe auch 2/2.1.6 PLA). Uber die Speicherstelle $0000 werden die Lei- 
tungen eingelesen bzw. Signale auf die Leitungen gelegt und über die Speicher- 
stelle $0001 festgelegt, ob es sich um eine Eingabeleitung (Bit=0) oder Ausgabe- 
leitung (Bit=1) handelt. Dabei müssen die höherwertigen zwei Bit auf 0 (= Ein- 
gang) gelegt werden, da die 6510 intern die beiden oberen Bit für die RDY und 
die NMI-Leitung benutzt. 











Prozessorport: 
Bit er 88, 8: A 3 od 
$0000 | | Datenregister 
$0001 0 | 0 | Richtungsregister 























Alle Leitungen finden im Commodore 64 Verwendung. Eine Modifikation der 
Daten kann daher zu einem Systemabsturz führen. Der Computer kann dann nur 
noch durch kurzes Ausschalten wieder zum Arbeiten gebracht werden. Der Pro- 
zessorport ermöglicht aber auch auf die 64K-Byte Speicher unseres Computers 
zuzugreifen, da über die unteren drei Bit die Speicheraufteilung gesteuert wird. 
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4/5.2.2 
Die Programmierung der CPU 





Nachdem die CPU als Baustein ausgiebig betrachtet wurde, werden wir uns jetzt 
der Programmierung der CPU zuwenden. Wir werden uns daher zunächst die 
Programm- und Befehlsstruktur ansehen. 


4/5.2.2.1 
Einführung 





Einiges können wir aus dem bisher gesagten bereits über die Programmierung 
der CPU ableiten: 


1. Das Programm muß als Folge von Bitmustern im Speicher liegen. 


2. Befehle werden sich auf die Register Akku, X, Y etc. beziehen (abgesehen von 
Sprungbefehlen). 


Wir wollen uns im Folgenden eine kleine Auswahl von Befehlen ansehen, die 
unsere CPU ausführen kann. 


Ein häufiger Befehl heißt: Lade den Akku. Er hat das Bitmuster 10101001 oder 
hexadezimal $A9. Seine Funktion ist recht einfacht: der Inhalt der nach dem 
Befehl folgenden Speicherstelle wird in den Akku übertragen. Also lädt die Folge 
$A9 $4E den Akku mit dem Wert 78 (=$4E). Nun ist es aber äußerst lästig im- 
mer ‚lade den Akku‘ oder gar $A9 zu sagen, wenn man den Akku laden will. 
‚Lade den Akku‘ ist zu lang, und ‚$A9 sagt nichts über den Befehl aus. Man 
führt deshalb Abkürzungen ein, die man sich leicht merken kann (sogenannte 
mnemotechnische Bezeichnungen). 


Will man ein Register laden, so schreibt man LD für laden und A’für Akku. So- 
mit haben wir die Befehle LDA (lade Akku), LDX (lade X-Register) und LDY 
(lade Y-Register). Da man Register im allgemeinen nicht nur laden, sondern 
auch speichern will, benötigt man Store- (Speicher) Befehle: STA, STX und STY. 
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In Bitmusterdarstellung entspricht STA 10001101 ($ 8D). Nun muß noch die Adresse 
folgen. Da eine Adresse 16 Bit hat, muß diese in den folgenden zwei Byte stehen. 
Die 6510 verlangt, daß bei einer Adresse zuerst der niederwertige Teil, und dann 
der höherwertige folgt. 


Nehmen wir zum Beispiel einmal an, daß Sie den Buchstaben ‚B‘ in die linke 
obere Ecke des Bildschirms bringen wollen. In BASIC können Sie das mit POKE 
1024,2 erreichen. In Maschinensprache funktioniert das genauso. Wir laden zu- 
erst eines der Register Akku, X oder Y mit 2 und speichern den Wert dann ab. 


Also: LDA 2 
STA 1024 


oder in Bitmusterschreibweise $A9 $02 $8D $00 $04 (1024=$0400). 


An diesem Beispiel kann man auch erkennen, daß unser bisheriges System, Ma- 
schinenprogramme in für uns lesbarer Form darzustellen, noch unzureichend ist. 
Man kann (und will) mit LDA nämlich nicht nur Werte, die direkt hinter dem Be- 
fehl stehen in den Akku laden, sondern auch die Werte aus einer beliebigen 
Speicherzelle. Wie unterscheidet man dies? Üblich ist, das LDA 2 den Wert in 
der Speicherstelle mit der Adresse 2 meint, wie ja auch bei STA 1024 die Spei- 
cherstelle gemeint ist. Um anzuzeigen, daß der Wert direkt dem Befehl folgt, 
stellen wir ihm ein ‚# voran: LDA #2. In der Bitmusterschreibweise ist die Sache 
schwieriger. Hier wird LDA #2 wie gehabt mit $A9 $02, aber LDA 2 mit $A5 
$02 übersetzt. Diese Schreibweise wollen wir im Folgenden aber nicht weiter be- 
trachten. Wenn Sie diese Codes interessieren, so schlagen Sie sie bitte in der 
Tabelle nach. 


4/5.2.2.2 
Beispiel Addition 





Als nächstes wollen wir in einem Beispiel zwei Zahlen addieren. Die 6510 kennt 
nur einen Additionsbefehl: ADC (add with carry / addiere mit Übertrag). Er 
addiert zum Inhalt des Akkumulators den Operanden (d.h. den direkt folgenden 
Wert oder den Inhalt einer Speicherstelle) und das Carry-Bit des Prozessorstatus- 
registers. Um zwei Zahlen addieren zu können, muß also zunächst des Carry- 
Bit des PSR auf Null gesetzt werden. Dies tut der Befehl CLC (Clear Carry). 
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Der umgekehrte Befehl zum Setzen des Carry-Bit heißt übrigens SEC (SEt Carry). 
Ebenso gibt es analoge Befehle zum Setzen und Löschen der PSR-Bits D,I und 
V: CLD, CLL CLV, SED und SEI, auf die wir in Kapital 4/5.2.4 noch zu spre- 
chen kommen. Das folgende kleine Programm berechnet nun die Summe des In- 
halts der Speicherstelle $C000 mit der Zahl 100 und speichert den Wert wieder 
in die Speicherstelle $C000: 





CLC Carry-Bit auf 0 setzen 
LDA $C000 Inhalt der Speicherzelle $C000 in den Akku bringen 
ADC #100 Akku+100+Carry-Bit in den Akku bringen 





STA $C000 Akkuinhalt wieder in $C000 abspeichern 





Da der Akkumulator aber nur 8-Bit breit ist und er nur Zahlen von 0 bis 255 
oder von -128 bis +127 annehmen kann, müssen wir betrachten, was bei Über- 
schreitung des Bereichs passiert. 


Angenommen wir arbeiten nur mit ganzen Zahlen. Dann kann der Akku Zahlen 
von 0 bis 255 darstellen. Ist der Inhalt von $C000 also kleiner als 156 geht alles 
gut. Es entsteht kein Übertrag, also bleibt das Carry-Bit (welches bekanntlich 
einen Übertrag anzeigt) auf Null. Ist der Inhalt von $C000 größer als 155 z.B. 
160, so erhalten wir als Ergebnis 160+100=260. Im Akku steht jedoch nur 4, da 
er nur 8 Bit zur Verfügung hat (260-256=4) und das Carry-Bit ist auf Eins gesetzt. 


Eine 16-Bit Addition sieht also wie folgt aus: - 





CLC Übertrag löschen 

LDA $C000 Zahl 1 niederwertiger Teil in Akku 

ADC $C002 + Zahl 2 niederwertiger Teil 

STA $C004 Als niederwertiger Teil Ergebnis speichern 

LDA $C0001 Zahl 1 höherwertiger Teil in Akku. Hier wird das Carry 
nicht gelöscht, um den richtigen Übertrag zu erhalten 

ADC $C003 + Zahl 2 höherwertiger Teil + Übertrag 

STA $C005 Als höherwertiger Teil Ergebnis speichern 








Wobei die Zahlen in $C000/$C001 bzw. $C002/$C003 und das Ergebnis in $C004/ 
$C005 gemäß der 6510-Reihenfolge abgespeichert sind. 


Bei vorzeichenbehafteten Zahlen geht man genauso vor. Hier ist jedoch zu be- 
achten, daß das höchstwertigste Bit (egal ob 8 oder 16-Bit Zahl) das Vorzeichen 
der Zahl darstellt. Ein Übertrag in diese Stelle bei der Addition hat deshalb eine 
Verfälschung des Vorzeichens zur Folge, sodaß das Ergebnis falsch ist. Tritt die- 
ser Fall ein, setzt die CPU das V-Bit im PSR auf Eins, sonst auf Null. Um dies 
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noch einmal zu verdeutlichen ein Beispiel: Die Zahlen 64 und 70 sollen addiert 
werden. Dies geschieht wie folgt: 


01000000 + 64 
+ 01000110 ++ 7% 
oder dezimal 
= 10000110 = - 122 FALSCH 


Die Subtraktion funktioniert genauso, nur heißt hier der Befehl SBC statt ADC 
(subtract with carry) und das Carry-Bit wird genau umgekehrt genutzt (d.h. Carry 
= ] bedeutet kein Übertrag). Ein 16-Bit Subtraktionsprogramm sieht dann so aus: 





SEC Übertrag löschen 

LDA $C000 Zahl 1 niederwertiger Teil in Akku 

SBC $C002 _-— Zahl 2 niederwertiger Teil 

STA $C004 Als niederwertiger Teil Ergebnis speichern 


LDA $C001 Zahl 1 höherwertiger Teil in Akku 
SBC $C003 _- Zahl 2 höherwertiger Teil — Übertrag 
STA $C005 Als höherwertiger Teil Ergebnis speichern 





Wobei die Zahlen wieder in $C000/$C001 bzw. $C002/$C003 und das Ergebnis in 
$C004/$C005 gemäß der 6510-Reihenfolge abgespeichert sind. 


4/5.2.2.3 
Beispiel Zeichensatz 





Wir wollen uns noch ein zweites Beispiel ansehen, bei dem wir den Zeichensatz 
des C64 auf dem Bildschirm anzeigen. Dazu werden wir folgendermaßen vor- 
gehen: Der C 64 hat einen Zeichensatz von 256 Zeichen, die von 0 bis 255 nu- 
meriert sind. Dies sind genau die Nummern, die ein Register darstellen kann. 
Das X-Register dient uns daher als Zähler. Diese Nummer übertragen wir dann 
in den Akku und speichern es auf den Bildschirm. Dann wird der Inhalt des X- 
Registers erhöht, bis wir wieder auf Null landen. 
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Zuerst brauchen wir aber ein paar neue Befehle: 


Der Befehl, der den Inhalt des X-Registers in den Akku bringt heißt TXA (trans- 
fer X into accumulator). Weiter stellt uns der 6510 die Transportbefehle TAX, 
TAY, TSX, TXS und TYA zur Verfügung, wobei S den Stackpointer bezeichnet. 


Dann gibt es noch den Befehl INX (increment X) der das X-Register um 1 er- 
höht (INY erhöht entsprechend das Y-Register). Es gibt auch das Gegenteil: DEX 
(decrement X) bzw. DEY der das X bzw. Y-Register um 1 erniedrigt. 


Damit können wir bereits einen Versuch wagen: 





LDX #0 X-Register mit Null laden 

()  TXA X-Register in den Akku übertragen 
STA 1024,X Auf den Bildschirm bringen 
INX X Register erhöhen 





In der dritten Zeile steht STA 1024,X. Dies bedeutet, daß der Wert im Akku in 
die Speicherstelle geschrieben werden, die die Adresse 1024+Inhalt des X-Registers 
hat. Die CPU 6510 ist in der Lage diesen Befehl auszuführen. Also wird Zeichen 0 
in 1024+0, Zeichen 1 in 1024+1 etc. gespeichert. Ein direktes STX 1024,X geht mit 
der CPU 6510 jedoch nicht! Ebenso gibt es keinen Befehl INA! 


Etwas fehlt aber noch in unserem Programm. Nach dem Erhöhen des X-Registers 
müssen wir an der mit (x) bezeichneten Stelle weitermachen, falls das X-Register 
ungleich Null ist, oder anders ausgedrückt bei der Erhöhung des X-Registers 
das Ergebnis nicht Null war. Wir brauchen also den Befehl ‚springe wenn das 
Z-Bit im PSR gleich Null ist‘ oder kurz BNE (branch on not equal to zero). Als 
Argument verlangt der BNE-Befehl die Sprungweite (d.h. die Anzahl der zu über- 
springenden Byte) als vorzeichenbehaftete 8-Bit Zahl. Man kann mit ihm also 
maximal —126 bis +129 Byte springen (zwei Byte zählt der Befehl, daher von —128+2 
bis +127+2). Daher müssen wir unser Programm doch wieder in Bitmusterdarstel- 
lung betrachten, um die Sprungweite ausrechnen zu können: 








$a2 $00 LDX#0 X-Register mit Null laden 

$8a TXA X-Register in den Akku übertragen 

$9d $00 $04 STA 1024,X Auf den Bildschirm bringen 

$e8 INX X Register erhöhen 

$do $f9 BNE -7 Sprung zum TXA Befehl, falls X ungleich Null 
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Damit haben wir unser Ziel erreicht, aber wir mußten dabei wieder auf Bitmuster- 
ebene arbeiten. Dies wollen wir in Zukunft vermeiden. Wir werden deshalb das 
Sprungziel mit einem frei gewählten Namen bezeichnen und bei dem Sprungbe- 
fehl einfach den Namen angeben. In unserem Beispiel sieht das dann so aus: 





LDX #0 X-Register mit Null laden 
SCHLEIFE: TXA X-Register in den Akku übertragen 
STA 1024,X Auf den Bildschirm bringen 
INX X Register erhöhen 
BNE SCHLEIFE Sprung zum TXA Befehl, falls X ungleich Null 











Nachdem wir uns nun soviel mit Theorie beschäftigt haben, wollen wir auch 
das Programm einmal von Basic aus ausführen. Da das Programm unabhängig 
von der Startadresse ist, wählen wir hier willkürlich $C000. Wir müssen nun die 
Bitmuster von Basic aus in den Speicherbereich ab $C000 bringen. Dazu werden 
die Bitmuster in einer DATA-Zeile dezimal abgelegt, da Basic nur Dezimalzah- 
len kennt. Dann werden in einer FOR...NEXT-Schleife die Werte gelesen und mit 
POKE in den Speicherbereich gebracht. Dann muß das Programm noch gestartet 
werden. Dies wird mit dem Befehl SYS49152 erreicht ($C000=49152). Das ent- 
sprechende BASIC-Programm sieht dann wie folgt aus: 


1 PRINT CHR$(147);: FOR A=0 TO 300: PRINT “.“;: NEXT 
2 FOR A=49152 TO 49161: READ W: POKE A,W: NEXT 


3 SYS 49152 
4 DATA 162,0,138,157,0,4,232,208,249,96 
5 REM =$A2,$00,$58A,$59D,$00,6504,$E8,$D0,$F9,$60 








Das Programm beinhaltet noch zum Schluß den Befehl RTS (= $60), der den 
Rücksprung zu Basic veranlaßt, aber für das Verständnis des Programms im Mo- 
ment unwichtig ist. Die Zeile 1 dient nur zum Füllen des Farbspeichers, denn 
ohne Farbe sieht man auf dem C 64 bekanntlich nichts. 


Starten Sie nun das Programm mit RUN. 
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4/5.2.2.4 
BCD-Arithmetik 





Die CPU 6510 kann noch etwas ganz besonderes: BCD Arithmetik (BCD= binary 
coded decimal). Um in BCD-Darstellung arbeiten zu können, müssen wir das 
Dezimal-Bit D im PSR mit dem Befehl SED setzen. Die Befehle ADC und SBC 
arbeiten nun in BCD-Arithmetik. Das bedeutet, daß in jedem Byte eine zweistel- 
lige Dezimalzahl von 00 bis 99 dargestellt werden kann (packed BCD). Also neh- 
men je vier Bit (= ein Nibble) eine der Zahlen 0 bis 9 auf. 


Beispiel: die Zahl 35 wird binär als 00100011, aber in BCD als 00110101 dargestellt. 
1311 5! 


Die Befehle ADC und SBC arbeiten nun bei gesetzten D-Bit völlig problemlos 
mit dieser Zahlendarstellung. Sie werden wie wir es gewohnt sind verwendet. Also: 


8-Bit Addition 8-Bit Subtraktion 
CLC SEC 


LDA Zahl 1 LDA Zahl 1 
ADC Zahl 2 SBC Zahl 2 
STA Ergebnis STA Ergebnis 





Zur Verdeutlichung noch ein Zahlenbeispiel: 


16 00010110 
+45 + 01000101 
oder binär: 


=6l = 01100001 
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4/5.2.3 
Die Adressierungsarten der 6510 





Mit Adressierungsart bezeichnet man die Art, durch die der Operand eines Be- 
fehls ermittelt wird. Drei Adressierungsarten haben wir bereits in unseren Bei- 
spielen kennengelernt. 


4/5.2.3.1 


Implizierte Adressierung 


Bei der implizierten Adressierung ist die Adressierungsart bereits im Befehl ent- 
halten (impliziert). Beim 6510 sind dies ausschließlich Befehle, die keinen Operan- 
den benötigen, also z.B. DEY, CLC usw. Diese Befehle belegen alle genau ein 
Byte Speicherplatz. 


4/5.2.3.2 


Adressierung des Akkumulators 





Bei der Akkumulator-Adressierung ist der Inhalt des Akkumulators der Wert, 
auf den der Befehl angewendet werden soll. Bei der 6510 gibt es nur die Befehle 
ASL, LSR, ROL und ROR die in dieser Adressierungsart möglich sind. Die Be- 
fehle arbeiten jedoch auch in anderen Adressierungsarten. In Assembiern wird 
diese Adressierung häufig mit ASL A oder einfach mit ASL ohne Operand ge- 
kennzeichnet. 
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4/5.2.3.3 
Unmittelbare Adressierung 





Bei der unmittelbaren Adressierung folgt der Datenwert direkt dem Befehl. Diese 
Adressierungsart wird mit einem ‚#° gekennzeichnet (z.B. LDA #33, um den Ak- 
kumulator mit 33 zu laden). 





Speicher: Befehl 





Operand 
4/5.2.3.4 
Absolute Adressierung 





Hier folgt dem Befehl nicht der Datenwert, sondern die Adresse, in der der Da- 
tenwert steht. Da eine Adresse 16-Bit breit ist, muß sie in den zwei dem Befehl 
folgenden Byte abgelegt sein. Der Prozessor verlangt, daß der niederwertige Teil 
zuerst abgelegt wird. In Assemblerschreibweise wird diese Adressierungsart nicht 
gekennzeichnet (z.B. LDA $2A12). Hier wird also an der fehlenden Kennzeichnung 
die Adressierungsart erkannt. 





Speicher 
Befehl 
Adresse | Adresse niederwertiger Teil 
Adresse | Adresse höherwertiger Teil 





» 
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4/5.2.3.5 


Indiziert-absolute Adressierung 





Bei dieser Adressierung setzt sich die Adresse des Datenwertes aus zwei Werten 
zusammen. Zu der hinter dem Befehl angegebenen Adresse wird der Inhalt des 
X oder des Y Registers vorzeichenlos addiert. Dies ergibt die Adresse unter der 
der Datenwert abgelegt ist. Die Assemblerschreibweise ist LDA adresse, X bzw. 
LDA adresse, Y. Diese Adressierungsart wird verwendet um Tabellen zu ver- 
walten. Dabei wird als Adresse die Startadresse der Tabelle angegeben und das X- 
(bzw. Y-) Register als Zeiger auf einen Tabellenwert benutzt. Es können so Tabellen 
mit bis zu 256 Werten verwaltet werden. 


4/5.2.3.6 
Indirekte Adressierung 





Bei der indirekten Adressierung wird als Operand eine Adresse adrl angegeben. 
Unter dieser Adresse steht in zwei Byte gemäß der 6510-Reihenfolge wieder eine 
Adresse adr2. Diese Adresse ist die Adresse für die Ausführung des Befehls. 
In Assemblerschreibweise wird die Adresse adrl in Klammern angegeben. Also 
z.B. JMP ($8003). Die indirekte Adressierung ist nur bei dem Befehl JMP erlaubt. 


Beispiel: Die CPU tritt auf den Befehl JMP ($C000) und die Adressen $C000 und 
$C001 seien wie folgt belegt: 


-$C000: 834 
$C001: $12 


Dann passiert folgendes: Die CPU holt die Adresse, die unter $C000 abgelegt 
ist, also $1234 und springt zu dieser Adresse (JMP $1234). 
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Speicher: | Befehl 

adr 1 

adr 1 Inhalt von adr 1 holen 
adr 1: adr 2 

adr 2 

A Inhalt ist Sprungziel 
adr 2: | Ziel 
4/5.2.3.7 


Zero-Page Adressierung 


Teil 4: Software-Erstellung 


Die Zero-Page-Adressierung ist eine Kurzform der absoluten Adressierung. Die 
ersten 256 Adressen (d.h. die Adressen $0000 bis $00FF) können mit dieser Kurz- 
form adressiert werden. Dabei wird statt der gesamten Adresse nur der nieder- 
wertige Teil angegeben, da der höherwertige Teil immer $00 ist. Diese Adressie- 
rungsart belegt daher nur zwei statt drei Byte zusammen mit dem Byte, für den 
Befehl gerechnet, und ist wesentlich schneller. Der Assembler erkennt die Form im 
allgemeinen selbständig. Eine einheitliche Kennzeichnung bei den Assembler, wo 
dies nicht der Fall ist, gibt es leider nicht. 


4/5.2.3.8 


Zero-Page indiziert 





Diese Adressierungsart entspricht der Indiziert-absoluten Adressierung (4/5.2.3.5). 
Jedoch werden für die Adressen $0000-$00FF wieder nur zwei ‚Byte benötigt 
(Befehlsbyte und ein Byte Adresse). 
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4/5.2.3.9 
Zero-Page indiziert/indirekt 





Bei dieser Adressierungsart werden die indirekte und die indizierte Adressierung 
miteinander verknüpft. Dabei bietet die 6510 zwei Möglichkeiten: 





Vorindizierung: Assemblersyntax: LDA (adı,X) | 





Zu der angegebenen Zero-Page-Adresse adr wird der Inhalt des X-Registers vor- 
zeichenlos addiert: Dies ergibt eine Adresse adr2, die in der Zero-Page stehen 
muß. Unter dieser Adresse steht die Adresse adr3 des Datenwertes. Die Adresse 
muß als 16-Bit Adresse gemäß der 6510 Reihenfolge in der Zero-Page stehen. 
Diese Adressierungsart funktioniert nur mit dem X-Register. 


Nachindizierung: | Assemblersyntax: LDA (adr,Y) 


Unter der angegebenen Zero-Page-Adresse adr muß eine 16-Bit Adresse adr2 ge- 
mäß der 6510 Reihenfolge stehen. Zu dieser Adresse wird der Inhalt des Y-Re- 
gisters vorzeichenlos addiert. Das Resultat ist die Adresse adr3 des Datenwertes. 
Diese Adressierungsart funktioniert nur mit dem Y-Register. 





4/5.2.3.10 
Relative Adressierung 





Hier wird als Adresse eine 8-Bit Distanz angegeben. Die Adresse errechnet sich 
dann nach der Formel: 





Adresse = Programmzähler + Distanz 








wobei die Distanz eine vorzeichenbehaftete Zahl ist. Diese Adressierungsart wird 
nur bei bedingten Sprungbefehlen benutzt (z.B. BNE, BEQ, BVC etc.). Daher 
ergibt sich die maximale Sprungweite von —126 bis +129 (siehe auch Beispiel 
Zeichensatz). Einem Assembler wird einfach die Adresse mitgeteilt, zu der man 
springen will. Er errechnet die Distanz automatisch. 
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4/5.2.4 
Mnemonics — Die Befehle der 6510 





Nachdem in den Beispielen bereits viele Befehle der CPU 6510 mit ihrem mnemo- 
technischen Bezeichnungen vorgestellt wurden, folgt nun eine Gesamtliste der Be- 
fehle. Die Befehle sind dabei in logisch zusammengehörige Gruppen eingeteilt. 


Zur weiteren Verdeutlichung sind zu den Befehlen kleine Basic-Unterprogramme an- 
gegeben, welche die Befehle simulieren. Diese Programme werden später zu einem 
Simulationsprogramm für 6510 Maschinenprogramme zusammengebunden (vgl). 
Kapitel 4/5.2.6). In den Programmen wird davon ausgegangen, daß die Adresse des 
Operanden in der Variablen AD, und der Wert, der unter dieser Adresse steht, in 
der Variablen WE bereits von einer Programmablaufsteuerung abgelegt wurden. 


Alle Mnemonics werden in Teil 11 nochmals in einer Tabelle zusammengefaßt. 


Die Basicprogramme verwenden folgende Variablen: 


| erbte | ımnatt | Bedeutung 


AC 0..255 Akkumulator 
































0..255 X-Register 
0..255 Y-Register 
0..255 Statusregister 
0..255 Stackpointer 
0..255 Array zur Simulation des Stackbereichs 
0..1 Negativ Flag 
0..1 Overflow Flag 
0.1 Break Flag 
0..1 Dezimal Flag 
0..1 Interrupt Flag 
0..1 Zero Flag 
0.1 Carry Flag 
0..255 Wert des Operanden 
0..65535 Adresse des Operanden 5 
0..255 Operationscode des Befehls (Opcode) 
0..65535 Programmzähler 
AM%(255) 1..12 Enthält die Nummer der Adressierungs- 






art des Operationscodes 
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Die Adressierungsarten wurden wie folgt durchnumeriert: 


Nr. 


{ 
2 
3 
4 
5 
6 
T. 
8 
9 


Adressierungsart 


Akkumulator oder Implizit 
Unmittelbar 
Relativ 
Indirekt 
(Indirekt,X) 
(Indirekt),Y 
Absolut 
Zero-Page 
Absolut,X 
Zero-Page,X 
Absolut,Y 
Zero-PageY 








4/5.2.4.1 


Lade- und Speicherbefehle 





Die Befehle dieser Gruppe dienen dem Laden und Speichern der Register der CPU. 
Sie sind in den Beispielen bereits behandelt worden. 


LDA — LoaD Accu with memory 


Dieser Befehl gehört zu den am häufigsten benötigten Befehlen. Der Akkumulator 
wird mit dem Inhalt der angegebenen Speicherzelle geladen. Die Flaggen Z (zero) 
und N (negativ) werden entsprechend dem geladenen Wert gesetzt. Alle anderen 
Flaggen bleiben unverändert. 


Folgende Adressierungsarten sind erlaubt: 


Unmittelbar LDA #Wert 

Absolut LDA Adresse 

Absolut,X LDA Adresse,X 

Absolut,Y LDA Adresse, Y z 


Zero-Page LDA Zero 
Zero-Page,X LDA Zero,X 
(indirekt,X) LDA (Zero,X) 
(indirekt), Y LDA (Zero),Y 
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Basic-Programm: 





1220 REM ** LDA * 
1230 AC=WE 
1240 N=—{AC > 127):2=—(AC=0):RETURN 





LDX — IoaD X-Register with memory 


Das X-Register wird mit dem Inhalt der angegebenen Speicherzellen geladen. Die 
Flaggen Z (zero) und N (negativ) werden wieder entsprechend dem geladenen Wert 
gesetzt. Der Befehl entspricht also dem LDA-Befehl, nur, daß statt des Akkumula- 
tors das X-Register als Zielregister verwendet wird. 


Erlaubte Adressierungsarten: 











Unmittelbar LDX Wert 
Absolut LDX Adresse 
Absolut,Y LDX Adresse,Y 





Zero-Page LDX Zero 
Zero-PageY _LDX Zero,Y 





Basic-Programm: 


1250 REM ** LDX ** 
1260 XR=WE 
1270 N=—(XR > 127):Z2=—(XR=O):RETURN 





LDY — LoaD Y-Register with memory 


Entspricht dem Befehl LDA, jedoch wird das Y-Register mit dem Inhalt der angege- 
benen Speicherzelle geladen. Die Flaggen Z (zero) und N (negativ) werden entspre- 
chend dem geladenen Wert gesetzt. 


Erlaubte Adressierungsarten: 











Unmittelbar LDY Wert 
Absolut LDY Adresse 
Absolut,X LDY Adresse,X 
Zero-Page LDY Zero 
Zero-Page,X LDY Zero,X 








Basic-Programm: - 


1280 REM ** LDY ** 
1290 YR=WE 


1300 N=—(YR > 127):Z=—(YR=0): RETURN 
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STA — STore Accu in memory 


Der Inhalt des Akkumulators wird unter der angegebenen Adresse abgelegt. Dies 
ist die Umkehrung des LDA-Befehls, mit dem der Akkumulator geladen wird. 


Es werden keine Flaggen manipuliert. 
Erlaubte Adressierungsarten: Basic-Programm: 


Absolut STA Adresse 1920 REM ** STA ** 
Absolut,X STA Adresse,X 1930 POKE AD,AC:RETURN 
Absolut,Y STA Adresse, Y 


Zero-Page STA Zero 





Zero-Page,X _STA Zero,X 
(indirekt),X) STA (Zero,X) 
(indirekt) Y STA (Zero),Y 





STX — STore X-Register in memory 


Der Inhalt des X-Registers wird unter der angegebenen Adresse abgelegt. Der Befehl 
entspricht dem STA-Befehl, jedoch wird das X-Register verwendet. Außerdem sind 
die erlaubten Adressierungsarten gegenüber dem STA-Befehl stark eingeschränkt. 
Auch hier werden keine Flaggen manipuliert. 


Erlaubte Adressierungsarten: Basic-Programm: 


Absolut STX Adresse 1940 REM ** STX 
Zero-Page STX Zero 1950 POKE AD,XR:RETURN 
Zero-Page,Y STX ZeroY 








STY — STore Y-Register in memory 


Entspricht dem STX-Befehl, jedoch wird hier der Inhalt des Y-Registers unter der 
angegebenen Adresse abgelegt. Flaggen werden ebenfalls nicht manipuliert. 


Erlaubte Adressierungsarten: Basic-Programm: 


Absolut STY Adresse 4960 REM ** STY * 
Zero-Page_  SIY Zero 1970 POKE ADYR:RETURN 
Zero-Page,X STY Zero,X no ö ie 
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4/5.2.4.2 


Zählbefehle 





Die Befehle dieses Abschnitts dienen zum Erhöhen oder Erniedrigen von Registern 
oder Speicherstellen um eine Einheit. Sie dienen also zum Zählen und zur Schleifen- 
bildung. Im Beispiel Zeichensatz (4/5.2.2.3) finden Sie eine Anwendung. 

DEC — DECrement memory 


Der Inhalt der angegebenen Speicherstelle wird um eine Einheit vermindert. Wird 
dabei der Wert Null erreicht, wird das Zero-Flag gesetzt. Bei negativen Ergebnissen 
wird das N-Flag gesetzt. Alle anderen Flaggen bleiben unverändert. 


Erlaubte Adressierungsarten: Basic-Programm: 


Absolut DEC Adresse 950 REM ** DEC ** 
Absolut,X DEC Adresse,X 960 WE=WE—1:IF WE<O THEN WE=255:POKE AD,WE 


Zero-Page DEC Zero 970 PONE AB, WE:N=—{WE > 127):2=—(WE=0):RETURN 
Zero-Page,X DEC Zero,X 


DEX — DEcrement X-Register 


Hier wird der Inhalt des X-Registers um eine Einheit vermindert. Da der DEC- 
Befehl nur im Speicher arbeitet, sind für die Register die Spezialbefehle DEX und 
DEY nötig. Die Flaggen werden wie bei dem DEC-Befehl gesetzt. 


Erlaubte Adressierungsarten: Basic-Programm: 


nur implizit 980 REM ** DEX * 
990 XR=XR—i:IF XR<O THEN XR=255 








1000 N=—{XR > 127):2=—({XR=0): RETURN 


DEY — DEcrement Y-Register 


Entspricht dem DEX-Befehl. Hier wird jedoch der Inhalt des Y-Registers um eins 
vermindert. Für den Akkumulator existiert kein Decrement-Befehl. Die Flaggen 
werden ebenfalls wie beim DEC-Befehl gesetzt. 


Erlaubte Adressierungsarten: Basic-Programm: 
nur implizit 
1010 REM ** DEY * 
1020 YR=YR—1:1IFYR<OTHENYR=255 


1030 N=—({YR>127):Z=:{YR=0):RETURN 














INC — INCrement memory 


Der Inhalt der angegebenen Speicherstelle wird um eine Einheit erhöht. Wird dabei 
der Wert Null erreicht, wird das Zero-Flag gesetzt. Bei negativen Ergebnissen wird 
das N-Flag gesetzt. Der INC-Befehl ist die Umkehrung des DEC-Befehls. 
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Erlaubte Adressierungsarten: 


Absolut INC Adresse 
Absolut,X INC Adresse,X 


Zero-Page INC Zero 
Zero-Page,X INC Zero,X 





Basic-Programm: 








1070 REM ** INC ** 
1080 WE=(WE+1) AND 255:POKEAD.WE 
1090 N=—(WE > 127):Z=-(WE=0): RETURN 





INX — INcrement X-Register 

Analog zu den Decrement-Befehlen existieren bei den Increment-Befehlen auch zwei 
Befehle für das X- und Y-Register. Bei dem INX-Befehl wird der Inhalt des X- 
Registers um eine Einheit erhöht. Wird dabei der Wert Null erreicht, wird das Zero- 
Flag gesetzt. Bei negativen Ergebnissen wird das N-Flag gesetzt. 

Erlaubte Adressierungsarten: 

nur implizit 

Basic-Programm: 


1100 REM ** INX ** 
1110 XR=(XR+1) AND 255 


1120 N=-(XR > 127):2=-(XR=0):RETURN 





INY — INcrement Y-Register 


Entspricht dem INX-Befehl. Hier wird jedoch der Inhalt des Y-Registers um eine 
Einheit erhöht. Die Flaggen werden wie beim INC-Befehl gesetzt. Ein Befehl zum 
Erhöhen des Akkumulators existiert, analog zu den Decrement-Befehlen nicht. 
Erlaubte Adressierungsarten: 

nur implizit 

Basic-Programm: 





1130 REM ** INY ** 
1140 YR=(YR+1) AND 255 


1150 N=-(YR > 127):Z=-(YR=0):RETURN 





Das folgende Beispiel tauscht die Daten der Bildschirmseite des C 64 mit dem Spei- 
cherbereich ab $C100. Es schaltet also bei jedem Aufruf zwischen zwei Bildschirm- 
seiten um. 
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.eg2 ;Zwischenspeicher 
.eq 251 ‚Zeiger auf Originalbildschirm 
.eq 253 ;Zeiger auf Speicher 
.eq $400 ;Originalbildschirm 
.eq $c100 ‚Speicher 
.ba $c000 ‚Basisadresse 
.0S ‚Ausgabe in das RAM 
da #<bild1 ;Zeigeri auf Org. Bild 
dx = >bildt 
sta zeigeri 
stx zeigeri+1 
Ida # <bild2 ;Zeiger2 auf Speicher 
dx #>bild2 
sta zeiger2 
stx zeiger2+1 
Idx 44 ;4 Seiten a 256 Byte 
dy #0 ‚Seitenindex 
transfer: da (zeigeri),y ;Originalwert.. 
sta temp ;merken 
Ida (zeiger2),y ;Speicherwert.. 
sta (zeiger1),y ;in Bildschirm 
da temp ;Originalwert.. 
sta (zeiger2),y ‚in Speicher 
iny ‚nächstes Byte 
bne transfer 
inc zeiger 1+1 ‚nächste Seite 
inc zeiger 2+1 
dex 
rts 





Die verwendeten Pseudo-Befehle ’.BA’,’.OS’ und ’.EQ’ sind vom verwendeten 
Assembler abhängig. Die hier angegebenen Befehle gelten für den in diesem Buch 
verwendeten Assembler und sind im Kapitel 4/6.4.2.6 beschrieben. 
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415.2.4.3 


Logische Befehle 





Dieses Kapitel beinhaltet die logischen Befehle der CPU 6510. Es gibt neben den 
Grundfunktionen UND, ODER und EXCLUSIVE-ODER Befehle zum Rechts- und 
Linksschieben, sowie einen Bit-Testbefehl. Logische Befehle arbeiten ausnahmslos 
mit dem Akkumulator zusammen. 


Für die Und ( AND ), oder (OR ) und Exclusive-Order ( XOR ) Funktion ist hier 
noch einmal die Wahrheitstabelle angegeben: 











AND — AND accu with memory 


Der Inhalt des Akkumulators wird bitweise mit dem Inhalt der angegebenen Spei- 
cherstelle Und-verknüpft. Das Ergebnis steht im Akkumulator. Ist das Ergebnis der 
Operation Null, wird das Zero-Flag gesetzt. Bei einem negativen Ergebnis wird das 
Negativ-Flag gesetzt. Alle anderen Flaggen bleiben unverändert. 


Beispiel: 
Akku: 10101101 
Speicher: 00001111 
Ergebnis: 00001101 


Erlaubte Adressierungsarten: 














Unmittelbar AND Wert 
Absolut AND Adresse 
Absolut,X AND Adresse,X 
Absolut,‘Y AND Adresse,Y 





Zero-Page AND Zero 
Zero-Page,X AND Zero,X 
{indirekt,X) AND (Zero,X) 
(indirekt),Y AND (Zero),Y 
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Basic-Programm: 


270 REM ** AND ** 
280 AC=(AC AND WE) 


Teil 4: Software-Erstellung 


290 N=-—({AC>127):2=—(AC=0) 


300 RETURN 








ASL — Arithmetiec Shift Left 


Der Inhalt des Akkumulators oder der angegebenen Speicherstelle wird bitweise um 
eine Stelle nach links geschoben. Das höchstwertigste Bit wird in das Carry-Bit 
übertragen. In das niederwertigste Bit wird eine Null eingeschoben. Dies entspricht 
einer vorzeichenlosen Multiplikation mit zwei. Ist das Resultat eine Null, so wird 
das Zero-Flag gesetzt. Bei einem negativen Ergebnis wird das Negativ-Flag gesetzt. 
Die anderen Flaggen bleiben unverändert. 





Bt 76543210 























BBR= 








Mit Hilfe dieses Befehles kann man auch die häufig benötigte Multiplikation mit 
10 einfach erreichen: 





MULT 10:ASL 








Akkumulator ASL 
Absolut ASL Adresse 
Absolut,X ASL Adresse,X 


Zero-Page ASL Zero 
Zero-Page,X ASL Zero,X 





Basic-Programme: 


;Akku * 2 


STA HELP ;Ergebnis merken 
ASL ‚ergibt Akku * 4 
ASL ‚ergibt Akku * 8 
CLC 


ADC HELP ;Akku * 8 + Akku * 2 
; = Akku * 10 









Erlaubte Adressierungsarten: 














310 REM ** ASL ** 


320 IFAM%(OP)< > 1THEN340 


330 AC=AC*2:C=—(AC>255):AC=AC AND 255 
:Z=—{AC =0):N=—(AC > 127): RETURN:REM ASL AKKU 

340 WE=WE*2:C = —(WE>255):WE=WE AND 255 
:Z=—(WE =0):N=—(WE> 127): REM ASL ADRESSE 


350 POKEAD,WE:RETURN 
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BIT — BIT Test 

Dieser Befehl dient zum Testen der Bits der angegebenen Speicherstelle. Er wird im- 
mer dann eingesetzt, wenn im Programm Flaggen im Speicher getestet werden 
sollen. 

Der Bit-Befehl löst folgende Aktionen aus: 


— Der Akkumulator und der Inhalt der Speicherstelle werden Und-verknüpft. 
Das Zero-Flag Z wird gesetzt, falls das Ergebnis Null ist. 


— Bit 6 der Speicherstelle wird in das V-Flag übertragen. 
— Bit 7 der Speicherstelle wird in das N-Flag übertragen 


Erlaubte Adressierungsarten: 


Absolut BIT Adresse 
Zero-Page BIT Zero 


Basic-Programm: 


480 REM ** BIT ** 
490 N=-(WE>127):V=(WE AND 64)/64 


500 Z=-((AC AND WE)=0) 
510 RETURN 





Da der Bit-Befehl nur Flaggen, aber keine Register beeinflußt, wird er auch häufig 
für den folgenden Programmiertrick benutzt: 


EINS: LDA #1 ;Akku :=1 
.BY $2C ;Code für BIT absolut 














ZWEI:  LDA #2 ‚Akku :=2 
STA SPEICHER ;Akku speichern 





Der hier verwendete Pseudo-Befehl ’.BY $2C’ legt den Hexadezimalwert $2C in ei- 
nem Byte im Speicher ab (vgl. Kapitel 4/5.4.2.6). Er ist abhängig von dem verwende- 
ten Assembler und kann daher in fremden Programmlistings anders aussehen. 


Je nachdem, ob die Routine bei EINS oder ZWEI angesprungen wird, wird 1 oder 
2 in der Speicherstelle SPEICHER abgelegt. 


Das funktioniert so: 

— Wird die Routine bei ZWEI angesprungen, ist alles klar. 

— Wird die Routine bei EINS angesprungen, wird zunächst der Akku mit 1 gela- 
den. Dann stößt die CPU auf den Code $2C und führt den Bit-Befehl aus. Als 
Adresse werden die folgenden zwei Byte benutzt, in denen der Befehl ’LDA +2’ 
steht. Nach dem Bit-Befehl wird also beim Befehl ’STA SPEICHER?’ weitergear- 
beitet. Da der Akku immer noch 1 enthält, wird eine 1 in SPEICHER abgelegt. 
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EOR — Exclusive-OR accu with memory 


Der Inhalt des Akkumulators wird bitweise mit dem Inhalt der angegebenen Spei- 
cherstelle Exclusive-Oder-verknüpft. Das Ergebnis steht im Akkumulator. Mit die- 
sem Befehl können genau bestimmte Bits im Akkumulator umgedreht werden. Bei 
einer Null als Ergebnis wird das Zero-Flag gesetzt. Bei einem negativen Ergebnis 
wird das Negativ-Flag gesetzt. Die anderen Flaggen werden nicht verändert. 


Beispiel: 


Akku: 10101101 


Speicher: 00001111 
Ergebnis: 10100010 (die letzten vier Stellen sind umgedreht) 





Da die CPU 6510 leider keinen NOT-Befehl zum Umdrehen aller Bits kennt, muß 


dieser durch den Befehl ’EOR #$FF’ ersetzt werden. . 
Mit dem EOR-Befehl können auch zwei Bitmuster vertauscht werden. Stehen die 


Bitmuster unter der Adresse A bzw. B, so vertauscht die folgende Befehlsfolge die 
beiden Bitmuster: 


;A:= AEORB 


;B:= AEORB 
;‚A:= AEORB 





Um die Arbeitsweise deutlich zu machen ist hier noch ein Zahlenbeispiel angegeben: 


Befehl A Akku 


Startwerte 10101010 11001100 00000000 
LDA A 10101010 11001100 10101010 
EORB 10101010 11001100 01100110 





STAA 01100110 11001100 01100110 
EORB 01100110 11001100 10101010 
STAB 01100110 10101010 10101010 
EOR A 01100110 10101010 11001100 
STAA 11001100 10101010 11001100 








Erlaubte Adressierungsarten: 












Unmittelbar  EOR #Wert 
Absolut EOR Adresse 
Absolut,X EOR Adresse,X 
Absolut, Y EOR Adresse, Y 
Zero-Page EOR Zero 
Zero-Page,X EOR Zero,X 
(indirekt,X) EOR (Zero,X) 
(indirekt), Y EOR (Zero),Y 
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Basic-Programm: 


1040 REM ** EOR ** 
1050 AC=((AC AND NOT WE) OR (WE AND NOT AO)) 


1060 N =-{AC > 127):2=-(AC = 0): RETURN 





LSR — Logical Shift Right 


Der Inhalt des Akkumulators oder der angegebenen Speicherstelle wird bitweise um 
eine Stelle nach rechts geschoben. Das niederwertigste Bit wird in das Carry-Bit 
übertragen. In das höchstwertigste Bit wird eine Null eingeschoben. Dies entspricht 
einer vorzeichenlosen Division durch zwei, und ist die Umkehrung des ASL-Befehls. 
Ist das Ergebnis Null, wird das Zero-Flag gesetzt. Ein negatives Ergebnis kann bei 
diesem Befehl nicht erreicht werden, da Bit 7 immer auf Null gesetzt wird. Daher 
wird auch das Negativ-Flag immer gelöscht. Andere Flaggen werden nicht ver- 
ändert. 


Bt 76543210 


| 






































Erlaubte Adressierungsarten: 


Akkumulator LSR 

Absolut LSR Adresse 
Absolut,X LSR Adreesse,X 
Zero-Page LSR Zero 
Zero-Page,X  LSR Zero,X 





Basic-Programm: 


REM ** LSR ** 
IF AM%(OP)< >1 THEN 1350 
C=AC AND 1:AC = INT (AC/2):REM LSR AKKU 


N=-(AC> 127):Z=-{AC = 0): RETURN 
C=WE AND 1:WE = INT (WE/2):POKEAD,WE:REM LSR ADRESSE 
N=-(WE> 127):Z=-(WE = 0): RETURN 





ORA — OR Accu with memory 


Der Inhalt des Akkumulators wird bitweise mit dem Inhalt der angegebenen Spei- 
cherstelle ODER-verknüpft. Das Ergebnis steht im Akkumulator. Mit diesem Be- 
fehl können genau bestimmte Bits im Akkumulator gesetzt werden. Die Flaggen 
werden wie bei dem AND-Befehl gesetzt. 
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Beispiel: 

Akku: 10101101 

Speicher: 00001111 

Ergebnis: 10101111 





Erlaubte Adressierungsarten: 











Unmittelbar ORA FWert 
Absolut ORA Adresse 
Absolut,X ORA Adresse,X 
Absolut, Y ORA Adresse, Y 





Zero-Page ORA Zero 
Zero-Page, X ORA Zero,X 
(indirekt,X) ORA (Zero,X) 
(indirekt), Y ORA (Zero),Y 





Basic-Programm: 








1390 REM ** ORA ** 
1400 AC=AC OR WE 
1410 N=-(AC> 127:Z=-(AC = 0):RETURN 






ROL — ROtate Left one bit 


Der Inhalt des Akkumulators oder der angegebenen Speicherstelle wird bitweise 
um eine Stelle nach links geschoben. In das niederwertigste Bit wird das Carry-Bit 
übertragen. Das höchstwertigste Bit wird danach in das Carry-Bit übertragen. Ist 
die Carry-Flagge gelöscht, entspricht der Befehl dem ASL-Befehl. Ist das Ergebnis 
der Operation Null, wird das Zero-Flag gesetzt. Bei einem negativen Ergebnis wird 
das Negativ-Flag gesetzt. Die anderen Flaggen bleiben unverändert. 





Bt 765432210 


1 EELLEEER 
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Mit Hilfe dieses Befehles kann man auch mehr als 8-Bit-Werte linksschieben: 





MULT: ASL WERT ‚erste 8-Bit schieben 
ROL WERT+1  ;Bit 8-15 schieben 


ROL WERT+2  ;Bit 16-23 schieben 


WERT: .BY 0,0,0 ;24-Bit-Wert 





Der Befehl ’.BY’ in dem Beispiel ist ein Pseudo-Befehl (vgl. Kapitel 4/5.4.2.6). Er 
hat hier die Aufgabe drei Byte mit Null zu füllen. In diesen drei Byte wird der 
24-Bit-Wert angenommen. 


Erlaubte Adressierungsarten: 





Akkumulator ROL 
Absolut ROL Adresse 
Absolut,X ROL Adresse,X 


Zero-Page ROL Zero 
Zero-Page,X ROL Zero,X 





Basic-Programm: 






REM ** ROL ** 

1510 IF AM%(OP)<>1 THEN 1540 

1520 AC=AC*2+C:C=—(AC>255):AC = ACAND255 
:REM ROL AKKU 

1530 N=—(AC> 127):2=—(AC =0):RETURN 

1540 WE=WE*24+C:C=—(WE>255):WE=WEAND 255 
:REM ROL ADRESSE 

1550_N=—{(WE> 127}:2= —(WE = 0):POKEAD,WE:RETURN 










ROR — ROtate Right one bit 


Der Inhalt des Akkumulators oder der angegebenen Speicherstelle wird bitweise um 
eine Stelle nach rechts geschoben. In das höchstwertigste Bit wird das Carry-Bit 
übertragen. Das niederwertigste Bit wird danach in das Carry-Bit übertragen. Bei 
gelöschter Carry-Flagge entspricht dies dem LSR-Befehl. Die Flaggen werden wie 
beim ROL-Befehl gesetzt. 





Bt 76543210 


LEEREN 


n 
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Analog zum ROL-Befehl kann man mit Hilfe dieses Befehls auch mehr als 8-Bit- 
Werte rechtsschieben: 


DIVU: LSR WERT +2 ‚Bit 16-23 rechtsschieben 
ROR WERT +1 ‚Bit 8-15 rechtsschieben 
ROR WERT ;Bit 0-7 rechtsschieben 


WERT: .BY 0,0,0 ;‚24-Bit-Wert 





Hier wird wieder der Pseudo-Befehl ’.BY’ eingesetzt, um Platz für den 24-Bit-Wert 
zu schaffen (vgl. ROL-Befehl). 


Erlaubte Adressierungsarten: 


Akkumulator ROR 

Absolut ROR Adresse 
Absolut,X ROR Adresse,X 
Zero-Page ROR Zero 
Zero-Page,X ROR Zero,X 





Basic-Programm: 


REM ** ROR ** 

IF AM%(OP)< >1 THEN 1600 

H=AC AND 1:AC = INT (AC/2) + C*128 
:C=H:REM ROR AKKU 


N=—{AC> 127):2=—{AC = 0): RETURN 
H=WE AND 1:WE=INT (WE/2)+C*128 

:C=H:REM ROR ADRESSE 

N =—(WE > 127):2= —(WE =0):POKEAD,WE:RETURN 





415.2.4.4 


Transferbefehle 





Die Transferbefehle gehören mit zu den einfachsten Befehlen der CPU 6510. Sie die- 
nen zum Transport von Daten zwischen zwei Registern der CPU. Eine Übersicht 
über die Möglichkeiten der Transferbefehle soll die folgende Grafik bieten: 
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|| 


Akkumulator Y-Register 


























Stackpointer X-Register 

















| 








TAX — Transfer Accu into X-Register 
Der Inhalt des Akkumulators wird in das X-Register übertragen. Die Flaggen Z 
(zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 







1980 REM ** TAX ** 
1990 XR=AC!Z=—(XR=0):N=—(XR > 127): RETURN 





TAY — Transfer Accu into Y-Register 


Der Inhalt des Akkumulators wird in das Y-Register übertragen. Die Flaggen Z 
(zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. Der Be- 
fehl entspricht also dem TAX-Befehl, nur daß das Y-Register Ziel der Operation ist. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 







2000 REM ** TAY ** 
2010 YRA=AC:Z=—(YR=0):N=—(YR>127):;RETURN 





TSX — Transfer Stackpointer into X-Register 

Der Inhalt des Stackpointers (SP) wird in das X-Register übertragen. Die Flaggen 
Z (zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. Dies 
ist die einzige Möglichkeit, den Wert des Stackpointers zu lesen. 
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Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


2020 REM ** TSX ** 


2030 XR=SP:Z=-(XR = 0):N =-(XR > 127): RETURN 





TXA — Transfer X-register into Accu 


Der Inhalt des X-Registers wird in den Akkumulator übertragen. Die Flaggen Z 
(zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. Dies 
ist die Umkehrung des TAX-Befehls. Die Befehle TAX und TXA können z.B. zur 
Zwischenspeicherung des Akkumulators in dem X-Register verwendet werden. 
Häufig soll aber auch auf dem X-Register (oder Y-Register) ein logischer oder arith- 
metischer Befehl angewendet werden. Da diese Befehle nur mit dem Akkumulator 
zusammenarbeiten, muß der Inhalt erst in den Akkumulator mit TXA transpor- 
tiert, dann im Akkumulator verarbeitet, und schließlich mit TAX wieder in das X- 
Register zurückgebracht werden. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


2040 REM ** TXA ** 





2050 AC=XR:Z=-{AC =0):N =-(AC > 127): RETURN 


TXS — Transfer X-register into Stackpointer 


Der Inhalt des X-Registers wird in den Stackpointer übertragen. Die Flaggen Z 
(zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. Dies 
ist die einzige Möglichkeit, dem Stackpointer einen Wert zuzuweisen. Jedes Lesen 
oder Schreiben des Stackpointers geht also immer nur über das X-Register. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


2060 REM ** TXS ** 


2070 SP=XR:Z=-(SP=0):N =-(SP > 127):RETURN 
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TYA — Transfer Y-register into Accu 


Der Inhalt des Y-Registers wird in den Akkumulator übertragen. Die Flaggen Z 
(zero) und N (negativ) werden entsprechend dem übertragenen Wert gesetzt. Dies 
ist die Umkehrung des TAY-Befehls. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


2080 REM ** TYA ** 


2090 AC=YR:Z=-(AC =0):N=-{AC > 127): RETURN 





4/5.2.4.5 
Arithmetische Befehle 








Als arithmetische Befehle kennt die CPU 6510 nur die Addition und Subtraktion. 
Diese können aber sowohl im gepackten BCD-Modus, als auch im Binär-Modus 
arbeiten. 


ADC — ADd with Carry 


Der Inhalt der angegebenen Speicherstelle und das Carry-Bit wird zum Akkumula- 
tor addiert. Bei einem Übertrag wird das Carry-Bit gesetzt. Das Overflow-Flag 
wird gesetzt, wenn der Bereich für eine vorzeichenbehaftete Zahl überschritten 
wird. Ist das D-Flag gesetzt, arbeitet der Befehl in BCD-Arithmetik. Ergibt sich als 
Ergebnis Null, wird das Zero-Flag gesetzt. Bei einem negativen Ergebnis wird das 
Negativ-Flag gesetzt. Beispiele für die Addition finden Sie in den Kapiteln 
4/5.2.2.2 und 4/5.2.2.4. 


Erlaubte Adressierungsarten: 














Unmittelbar ADC FWert 





Absolut ADC Adresse 
Absolut,X ADC Adresse,X 
Absolut, Y ADC Adresse, Y 


Zero-Page ADC Zero 
Zero-Page,X ADC Zero,X 
(indirekt,X) ADC (Zero,X) 
(indirekt), Y ADC (Zero),Y 








« 
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Basic-Programm: 


REM ** ADC ** 

IF D THEN 220:REM DEZIMALMODUS AN 

V=(AC AND 127)+(WE AND 127)+C:REM V FLAGGE BERECHNEN 
V=—(V>127) 
AC=AC+WE+C:C=—(AC>255):AC=AC AND 255:N=—(AC> 127):2=—(AC=0) 
V=(C AND NOT V) OR (V AND NOT C) 


RETURN 

REM ADC IN DEZIMALMODUS 

H=(WE AND 15)+(AC AND 15)+C:REM UNTERES NIBBLE 
C=—(H>9);H=H—10*C 

AC=(WE AND 240)+(AC AND 240)+C*16+H:REM OBERES NIBBLE 
C = —(AC > 153):AC = AC—160*C:N=—(AC > 127):2= —(AC=0) 
RETURN 





Als weiteres Beispiel sei hier noch ein Programm angegeben, das eine 16-Bit Binär- 
zahl in eine 24-Bit BCD-Zahl umwandelt: 











LDA #0 ;BCD-Zahl auf Null setzen 

STA BCD 

STA BCD +1 

STA BCD +2 

LDX #16 ‚Zähler für 16 Bit 
BCDLOOP: ASL ZAHL ;16-Bit Zahl mal 2 

ROL ZAHL +1 ‚Bit 16 in Carry 

SED ;Dezimal Mode an 

LDA BCD ;BCD-Zahl*2 + Bit 16 (Carry) 

ADC BCD 

STA BCD 

LDA BCD +1 

ADC BCD +1 

STA BCD +1 

LDA BCD +2 

ADC BCD +2 

STA BCD +2 

CLD Dezimal Mode aus 

DEX ‚Bitzähler -1 

BNE BCDLOOP _;bis 16 Bit 

RTS ‚fertig 


.BY 0,0 ;Hier wird die 16-Bit Zahl abgelegt 
.BY 0,0,0 ‚und hier die 24-Bit BCD-Zahl 











Hier wird wieder der Pseudo-Befehl ’.BY’benutzt, um Platz für die verwendeten 
Zahlen zu schaffen. 


SBC — SuBitract with Carry 


Vom Akkumulator wird der Inhalt der angegebenen Speicherstelle subtrahiert. War 
das Carry-Bit nicht gesetzt, wird außerdem eins subtrahiert. Bei einem Übertrag 
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wird das Carry-Bit gelöscht. Das Overflow-Flag wird gesetzt, wenn der Bereich für 
eine vorzeichenbehaftete Zahl überschritten wird. Ist das Ergebnis der Subtraktion 
Null, wird das Zero-Flag gesetzt. Bei einem negativen Ergebnis wird das Negativ- 
Flag gesetzt. Die anderen Flaggen werden nicht verändert. Ist das D-Flag gesetzt, 
arbeitet der Befehl in BCD-Arithmetik. 


Erlaubte Adressierungsarten: 
















Unmittelbar  SBC #Wert 
Absolut SBC Adresse 
Absolut,X SBC Adresse,X 
Absolut, Y SBC Adresse, Y 
Zero-Page SBC Zero 
Zero-Page,X SBC Zero,X 
(indirekt,X) SBC (Zero,X) 






(indirekt), Y SBC (Zero),Y 






Basic-Programm: 





1730 REM ** SBC ** 
1740 IF D THEN 1810 
1750 H=WE+1--C:V=0:REM SBC BINAER 

1760 IFAC< 128THENIFH > 127ANDH< 129 + ACTHENV = 1:REM V FLAGGE BERECHNEN 
1770 IFAC > 127THENIFH> AC—128ANDH < 128THENV = 1 

1780 AC=AC—WE—1+C:C=—({AC> =0):2=—(AC=0):AC=AC AND 255:N =—(AC> 127) 
1790 RETURN 

1800 REM SBC IM BCD—MODUS 

1810 H=(AC AND 15)—(WE AND 15)—1+C 

1820 C=—{H> =0):H=(H AND 15)—6 +6*C 

1830 AC=(AC AND 240)--(WE AND 240)—16+ 16°C 

1840 C=—{AC> =0):AC=(AC AND 240)-—-96+96*C-+H 

1850 Z=—{AC =0):N=—(AC > 127):RETURN 











Befehle zur Multiplikation oder Division kennt die CPU 6510 wie gesagt leider 
nicht. Sie müssen per Programm nachgebildet werden. Im folgenden finden Sie ein 
Programm, das zwei 16-Bit-Zahlen multipliziert. Der Algorithmus folgt der norma- 
len, schriftlichen Multiplikation, und ist daher leicht zu verstehen. 











Ida +0 
sta ergebnis 
sta ergebnis+1 
Idx #16 





‚ergebnis = 0 











‚Zähler für 16 Bit 





multloop: Isr zahl2+1 ‚zahl 2 rechtsschieben (/2) 
ror zahl2 ;Bit 0 in’s Carry 
bcc noadd ‚Bit war 0-> keine Addition 
cic ;ergebnis + zahli 
Ida ergebnis . 
ade zahli 


sta ergebnis 
Ida ergebnis+1 
adc zahl 1+1 
sta ergebnis+1 
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noadd: asl zahl1 ;zahlt linksschieben (*2) 
rol zahl1+1 
dex ;Bitzähler -1 
bne multloop ‚Bis 16 Bit durch 
rts ‚fertig 
zahlt: .by 0,0 ;16-Bit Zahl 1 
zahl2: .by 0,0 ;16-Bit-Zahl 2 


ergebnis: .by 0,0 ;16-Bit Ergebnis 





Auch in diesem Beispiel wird der Pseudo-Befehl ’.BY’ verwendet, um Platz für die 
verwendeten Zahlen zu schaffen. 


415.2.4.6 


Stackbefehle 








Die Befehle dieses Kapitels dienen der Verwaltung des Stacks. Mit Hilfe dieser Be- 
fehle werden Werte auf den Stack gelegt, oder von ihm heruntergenommen. Die 
CPU 6510 erlaubt nur den Inhalt des Akkumulators oder des Prozessorstatusregi- 
sters auf den Stack abzulegen. Inhalte anderer Register oder Speicherstellen können 
daher nur über den Akkumulator auf den Stack gebracht werden. 


PHA — PusH Akku on stack 

Der Inhalt des Akkumulators wird auf den Stack gelegt. Dann wird der Stackpoin- 
ter SP um eins vermindert. Mit diesem Befehl können Zwischenergebnisse für eine 
spätere Weiterverwendung auf den Stack abgelegt werden. Es werden keine Flaggen 
manipuliert. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


1420 REM ** PHA ** . 
1430 SP%(SP) = AC:SP = SP—1:RETURN 
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PHP — PusH Processor status 

Der Inhalt des Statusregisters wird auf den Stack gelegt. Dann wird der Stackpoin- 
ter SP um eins vermindert. 

Es werden keine Flaggen manipuliert. 

Erlaubte Adressierungsarten: 

nur implizit 


Basic-Programm: 


1440 REM ** PHP ** 
1450 SPW%CSP) =SR:SP =SP—1:RETURN 


PLA — PuLl Akku from stack 


Der Stackpointer SP wird um eins erhöht. Dann wird ein Wert vom Stack geholt, 
und dem Akkumulator zugewiesen. Ein mit PHA auf den Stack gelegter Wert wird 
so in den Akkumulator zurückgeholt. War der Wert Null, so wird das Zero-Flag ge- 
setzt. Bei einem negativen Wert wird das Negativ-Flag gesetzt. 


Erlaubte Adressierungarten: 
nur implizit 


Basic-Programm: 


1460 REM *“* PLA ** 
1470 SP=SP+1:AC = SP%(SP):;RETURN 


PLP — PuLl Processor status 


Der Stackpointer SP wird um eins erhöht. Dann wird ein Wert vom Stack geholt, 
und dem Prozessorstatusregister zugewiesen. Ein Flaggenzustand kann also mit 
PHP auf den Stack gerettet, und später mit PLP wieder zurückgeholt werden. Mit 
Hilfe der Stackbefehle kann auch dem Statusregister ein bestimmter Wert zugewie- 
sen werden: 














Wert ;Wert in den Akkumulator laden 


;Wert auf den Stack bringen 
;‚Statusregister mit Wert laden 





Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


1480 REM ** PLP ** 
1490 SP=SP+1:SR=SP%(SP):RETURN 
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4/5.2.4.7 


Flaggenmanipulation 





Diese Befehle haben Sie bereits in den Beispielen kennengelernt. Sie dienen zum Set- 
zen oder Löschen von Flaggen im Prozessorstatusregister. 


CLC — CLear Carry flag 


Das Carry-Flag im Prozessorstatusregister wird gelöscht. Dieser Befehl ist im allge- 
meinen vor einem ADC-Befehl nötig, da die Addition bei der 6510 immer mit Über- 
trag erfolgt: 


Erlaubte Adressierungsarten: 
nur implizit 
Basic-Programm: 


780 REM ** CLC ** 
790 C=0:RETURN 


CLD — CLear Dezimal mode 


Das Dezimal-Flag im Prozessorstatusregister wird gelöscht. Die Befehle ADC und 
SBC arbeiten dann mit der Zweierkomplementdarstellung. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


800 REM ** CLD ** 
810 D=0:RETURN 


CLI — CLear Interrupt mask 


Das Interrupt-Flag im Prozessorstatusregister wird gelöscht. Unterbrechungsanfor- 
derungen auf dem IRQ-Eingang werden damit erlaubt. Dieser Befehl wird ge- 
braucht, um nach einem SEI-Befehl die Interruptanforderungen wieder zuzulassen. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


820 REM ** CLI ** 
830 1=0:RETURN 
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CLV — Clear oVerflow flag 


Das Overflow-Flag V im Prozessorstatusregister wird gelöscht. Dieser Befehl ist ei- 
gentlich überflüssig, da das V-Flag nur von den Befehlen ADC und SBC gesetzt und 
gelöscht werden braucht. Da die CPU 6510 jedoch ein Nachfolger der CPU 6502 
ist, wurde der Befehl übernommen. Bei der CPU 6502 gibt es einen zusätzlichen 
Eingang, über den extern das V-Flag gesetzt werden kann (z.B. für Steuerungsauf- 
gaben). Daher war hier der CLV-Befehl sehr nützlich. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


840 REM ** CLV ** 
850 V=0:RETURN 


SEC — SEt Carrııy flag 

Das Carry-Flag im Prozessorstatusregister wird gesetzt. Dieser Befehl wird im allge- 
meinen vor einem SBC-Befehl verwendet, um den Übertrag bei der Subtraktion zu 
löschen. 


Erlaubte Adressierungsarten: 
nur implizit 
Basic-Programm: 


1860 REM ** SEC ** 
1870 C=1:RETURN 


SED — SEt Dezimal mode 


Das Dezimal-Flag im Prozessorstatusregister wird gesetzt. Die CPU arbeitet dann 
im gepackten BCD-Modus, wobei in einem Byte jeweils zwei Ziffern untergebracht 
sind. 

Erlaubte Adressierungsarten: 

nur implizit 

Basic-Programm: 


1880 REM ** SED ** 
1890 D=1:RETURN 


' 
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SEI — SEt Interrupt mask 


Das Interrupt-Flag im Prozessorstatusregister wird gesetzt. Unterbrechungsanforde- 
rungen auf der IRQ-Leitung werden damit verboten. Die NMI-Leitung kann nicht 
verboten werden. Um. Interruptanforderungen wieder zuzulassen, muß der CLI- 
Befehl gegeben werden. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


1900 REM ** SEI ** 
1910 I=1:RETURN 





4/5.2.4.8 


Sprungbefehle 








Die CPU 6510 kennt eine Reihe von bedingten Sprungbefehlen. Diese lassen jedoch 
nur Sprünge im Bereich von -126 bis +129 zu. Für längere Sprünge ist folgender, 
unbedingter Befehl zuständig: 

JMP — JuMP to adress 


Der Programmzähler wird mit dem angegebenen Wert geladen. Dies bewirkt einen 
Sprung. Dieser Befehl ist der einzige Befehl der CPU 6510, der die Addressierungs- 
art indirekt beherrscht. Der Befehl beeinflußt keine Flaggen. 


Erlaubte Adressierungsarten: 


Absolut JMP Addresse 
(indirekt) JMP (Adresse) 


Basic-Programm: 


1160 REM ** JMP ** 
1170 PC=AD:RETURN 
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BCC — Branch on Carry Clear 


Das Carry-Flag wird getestet. Ist es gelöscht, wird der folgende Wert als vorzeichen- 
behaftete Zahl zu dem Programmzähler addiert, also ein Sprung ausgeführt. Auch 
hier werden keine Flaggen manipuliert. 


Erlaubte Adresssierungsarten: 
nur relativ 


Basic-Programm: 





360 REM ** BCC ** 

370 IF (SR AND 1) THEN RETURN 
380 IF WE> 127 THEN WE = WE—256 
390 PC=PC+WE +2:RETURN 





Eine Anwendung zeigt das folgende Beispiel, das den Inhalt des Akkumulators 
binär ausgibt: 














.ba $c000 ;‚Basisadresse 
‚Ausgabe in’s RAM 


„08 
bsout: .eq $ffd2 ;Ausgaberoutine des C 64 

















Idx #8 ;8 Zeichen 
bin: rol ;Akku links schieben, höchstes 
‚Bit ins Carry-Bit 
pha ‚Akkuinhalt retten 
Ida #’0 ;’0’ laden 
bce null ;war höchsten Bit=0 dann ’0’ 
Ida #1 ;sonst 1’ ausgeben 
null: jsr bsout 
pla ‚Akku wiederherstellen 
dex ;Zeichenzähler-1 
bne bin ;‚bis alle Zeichen ausgegeben 








Die verwendeten Pseudo-Befehle ’.BA’ ’.OS’ und ’.EQ’ gelten für den in diesem 
Buch verwendeten Assembler und sind in Kapitel 4/5.4.2.6 beschrieben. 


BCS — Branch on Carıy Set 


Das Carry-Flag wird getestet. Ist es gesetzt, wird der Sprung ausgeführt. Dieser Be- 
fehl wird z.B. zur Überprüfung des Ergebnisses einer vorzeichenlosen arithmeti- 
schen Operation benutzt. Es werden keine Flaggen manipuliert. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 


REM ** BCS ** 
IF NOT{SR AND 1) THEN RETURN 


IF WE> 127 THEN WE = WE--256 
PC=PC +WE +2:RETURN 
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BEQ — Branch on EQual to zero 


Das Zero-Flag wird getestet. Ist es gesetzt, wird der Sprung ausgeführt. Der Befehl 
steht häufig hinter einem Vergleichsbefehl (z.B. CMP), um bei Gleichheit der Argu- 
mente eine bestimmte Routine abzuarbeiten, oder eine Schleife zu verlassen. Hier 
werden ebenfalls keine Flaggen manipuliert. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 


REM *"* BEQ ** 
IF NOT(SR AND 2) THEN RETURN 


IF WE>127 THEN WE = WE—256 
PC=PC+WE +2:RETURN 





BMI — Branch on MInus 


Das Negativ-Flag wird getestet. Ist es gesetzt, wird der Sprung ausgeführt. Eine Ma- 
nipulation von Flaggen findet nicht statt. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 


520 REM ** BMI ** 
530 IF NOT{SR AND 128) THEN RETURN 


540 IFWE>127THENWE = WE—256 
550 PC=PC+WE +2:RETURN 





BNE — Branch on Not Equal to zero 

Das Zero-Flag wird getestet. Ist es gelöscht, wird der Sprung ausgeführt. Es findet 
keine Flaggenmanipulation statt. 

Erlaubte Adressierungsarten: 

nur relativ 


Basic-Programm: 


REM ** BNE ** 
IF (SR AND 2) THEN RETURN 


IF WE>127 THEN WE = WE—256 
PC =PC+WE +2:RETURN 
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BPL — Branch on Plus 


Das Negativ-Flag wird getestet. Ist es gelöscht, wird der Sprung ausgeführt. Eine 
Flaggenmanipulation wird nicht durchgeführt. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 





REM ** BPL ** 
IF (SR AND 128) THEN RETURN 


IF WE>127 THEN WE = WE—256 
PC=PC +WE + 2:RETURN 





BVC — Branch on oVerflow Clear 


Das Overflow-Flag wird getestet. Ist es gelöscht, wird der Sprung ausgeführt. Dieser 
Befehl wird im Zusammenhang mit dem SBC und ADC-Befehl bei vorzeichenbe- 
hafteter Arithmetik benötigt. Flaggen werden keine manipuliert. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 


REM ** BVC "* 
IF (SR AND 64) THEN RETURN 


IF WE>127 THEN WE = WE-256 
PC=PC+WE +2:RETURN 





BVS — Branch on oVerflow Set 


Das Overflow-Flag wird getestet. Ist es gesetzt, wird der Sprung ausgeführt. Dieser 
Befehl wird im Zusammenhang mit dem SBC und ADC-Befehl bei vorzeichenbe- 
hafteter Arithmetik benötigt, um bei einer Bereichsüberschreitung eine Fehlerrouti- 
ne anzuspringen. Eine Flaggenmanipulation findet nicht statt. 


Erlaubte Adressierungsarten: 
nur relativ 


Basic-Programm: 


REM ** BVS ** 
IF NOT (SR AND 64) THEN RETURN 


IF WE>127 THEN WE = WE—256 
PC=PC+WE +2:RETURN 
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4/5.2.4.9 


Vergleichsbefehle 





Zum Vergleichen von Zahlen stehen drei Befehle zur Verfügung, die jeweils eines der 
Register Accu, X- oder Y-Register mit dem Inhalt der angegebenen Speicherstelle 
vergleicht. 


CMP — CoMPare to accumulator 


Vom Akkumulator wird der Inhalt (M) der angegebenen Speicherstelle subtrahiert. 

Das Ergebnis wird jedoch nicht gespeichert, sondern nur die Flaggen N, Zund C 

gesetzt: 

Z=1, falls die Werte übereinstimmen. 

N=1, falls der Inhalt des Akkumulators kleiner als der Inhalt der Speicherstel- 
le ist. 

C=1, falls der Inhalt des Akkumulators größer oder gleich dem Inhalt der 
Speicherstelle ist. 


Es ergibt sich somit folgende Tabelle: 


Vergleich 
A<M 





A=M 





* Vergleich als vorzeichenbehaftete Zahlen 


Erlaubte Adressierungsarten: 














Unmittelbar CMP =#Wert 









Absolut CMP Adresse 
Absolut,X CMP Adresse,X 
Absolut, Y CMP Adresse, \Y 







Zero-Page CMP Zero 
Zero-Page,X CMP Zero,X 
{indirekt,X) CMP (Zero,X) 
(indirekt), Y CMP (Zero),Y 








Basic-Programm: - 







860 REM ** CMP ** 
870 C=—(AC> = WE):N = ((AC—WE)AND128)/128 
880 Z=—(AC = WE):;RETURN 
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CPX — ComPare to X-Register 


Vom X-Register wird der Inhalt (M) der angegebenen Speicherstelle subtrahiert. Das 
Ergebnis wird jedoch nicht gespeichert, sondern nur die Flaggen N, Z und C wie 
bei dem Befehl CMP gesetzt. Die Adressierungsarten sind gegenüber dem CMP- 
Befehl jedoch stark eingeschränkt. 


Erlaubte Adressierungsarten: 











Unmittelbar CPX #FWert 
Absolut CPX Adresse 





Zero-Page CPX Zero 





Basic-Programm: 


890 REM ** CPX *** 
900 C=—(XR> =WE):N = ((XR-WE)AND128)/128 


910 Z=—(XR=WE):RETURN 





CPY — ComPare to Y-Register 


Der CPY-Befehl entspricht dem CPX-Befehl. Jedoch wird hier das Y-Register für 
den Vergleich verwendet. Die Flaggen werden wie bei dem CMP-Befehl gesetzt. 


Erlaubte Adressierungsarten: 








Unmittelbar  CPY #Wert 
Absolut CPY Adresse 
Zero-Page CPY Zero » 





Basic-Programm: 


920 REM ** CPY ** 
930 C=—(YR> =WE):N =((YR-WE)AND128)/128 


940 Z=—(YR=WE):RETURN 





Als Beispiel dient das folgende Programm. Es sortiert eine Folge von zehn Zahlen. 
Einmal werden die Zahlen als vorzeichenlos, das andere Mal als vorzeichenbehaftet 
angesehen. Die Ergebnisse der beiden Durchläufe finden Sie auf Seite 49. 
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.ba $c000 ;Basisadresse 




























.0S ‚Ausgabe in's RAM 
sort: Idx ##$tf ‚Index der aktuellen Zahl 
loop!: inx ‚Index +1 
txa >X—>Y 
tay ;Y ist Index der zu vergl. Zahl 
cpx #10 ;Letzte Zahl? 
bne notready 
rts ‚ja, dann fertig 
notready: Ida werte,x ‚aktuellen Wert holen 
loop2: iny ;Prüfindex + 1 
cpy #10 ;Letzte Zahl ? 
beq loop1 ‚ja, dann nächste aktuelle Zahl 
cmp werte,y ‚Zahlen vergleichen 
bmi loop2 ;vorzeichenbehaftet kleiner 
5 bcc loop2 für vorzeichenlos kleiner 
pha ;Prüfwert < aktuelle Zahl 
Ida werte,y ;Werte vertauschen 
sta werte,x 
pla 
sta werte,x 






jmp notready ;und weitertesten 
werte: .by -1,56,23,12,5,-5,-10,-77,34,-5 ;Zahlenfolge 






Die verwendeten Pseudo-Befehle ’.BY’,’.BA’ und ’.OS’ sind im Kapitel 4/5.4.2.6 
beschrieben. 


Das Programm liefert folgende Ergebnisse: 


Befehl Reihenfolge . 
















bec 065 00 17 22 38 BS F6 FB FB FF Hexadezimal 
bec s 12 23 34 56 179 246 251 251 255 Dezimal 
bmi B3 F6 FB FB FF 05 0C 17 22 38 Hexadezimal 
bmi 77 —10 5 5 1 5 12 23 34 56 Dezimal 
4/5.2.4.10 
Strukturbefehle 





Zur Abarbeitung von Unterprogrammen gibt es bei der CPU 6510 zwei Möglichkei- 
ten. Als erstes können Unterprogramme über die Vektoren NMI und IRQ aufgeru- 
fen werden. Wichtiger für den Programmierer ist die Möglichkeit Unterprogramme 
per Befehl aufzurufen (z.B. Routinen des Betriebssystems). 





Teil 4 Kapitel 5.2 Seite 51 





Maschinensprache / Assembler 








5.2 Assemblerkurs Teil 4: Software-Erstellung 


JSR — Jump to SubRoutine 


Der Programmzähler + 2 wird auf den Stack abgelegt. Dies ist nicht die Adresse 
des folgenden Befehls, sondern dessen Adresse — 1 ! Dann wird die angegebene 
Adresse in den Programmzähler geladen. Flaggen werden nicht manipuliert. 


Erlaubte Adressierungsarten: 
nur absolut 


Basic-Programm: 











1180 REM ** JSR ** 

1190 PC=PC +2:SP%(SP) = PC/256:SP = SP—1:REM PC +2 AUF STACK 
1200 SP%(SP) = PC—256* INT(PC/256):SP = SP—1 

1210 PC=AD:RETURN 





RTS — Relurn from Subroutine 


Der Programmzähler wird vom Stack geladen, und um eins erhöhr. Flaggen werden 
dabei nicht manupuliert. Das Programm wird so bei dem Befehl, nach dem JSR- 
Befehl, fortgesetzt. 


Befehl 1 Befehl 1 
Befehl 2 Befehl 2 


JSR UPRO 
Befehl n 








Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


1700 REM ** RTS ** 
1710 SP=SP+1:PC =SP%(SP):REM PC VOM STACK 





1720 SP=SP+1:PC=PC +256*°SP%(SP) + 1:RETURN 





Als Beispiel ist hier ein Unterprogramm angegeben, daß (selbst) wieder Unterpro- 
gramme aufruft. Es gibt eine 16-Bit Binärzahl hexadezimal aus: 
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;hexout gibt 16-Bit Zahl hexadezimal aus 


bsout: .eq $ffd2 


Ida ##13 
jsr bsout 
Ida zahl+1 
jsr hexbyte 
Ida zahl 
jsr hexbyte 
rts 


hexout: 


;Routine des C 64: gibt den Akku 
‚als Zeichen aus 


‚neue Zeile 
‚;Höherwertiges Byte ausgeben 
;Niederwertiges Byte ausgeben 


‚fertig 


;hexbyte gibt ein Byte hexadezimal aus 


pha 

Isr 

Isr 

Isr 

Isr 

jsr nibble 
pla 

and #%1111 
jsr nibble 
rts 


hexbyte: 


‚Byte merken 
;Byte / 16 


;obere 4 Bit als ’0..f’ ausgeben 
;Byte zurückholen 
‚untere 4 Bit als ’0%..f’ ausgeben 


‚fertig 


;nibble gibt 4-Bit Wert als ’0'’f’ aus 


nibble: cic 
adc #'0 
cmp #’9+1 
bcc hout 
adc #6 
isr bsout 


rts 
.by 0,0 


‚Wert in Zahl wandeln 
9’ überschritten ? 


‚ja, dann auf ’a’.'f’ bringen 
;und ausgeben 

‚fertig 

;16-Bit Zahl 





Teil 4: Software-Erstellung 


Die verwendeten Pseudo-Befehle .EQ’ und ”BY’ sind in Kapitel 4/5.4.2.6 be- 


schrieben. 


RTI — Relurn from Interrupt 


Bei einer Unterbrechungsanforderung werden erst der Programmzähler, und dann 
das Prozessorstatusregister auf den Stack gerettet. Dann wird die Interruptroutine 
aufgerufen. Diese muß mit dem RTI-Befehl abgeschlossen werden. Dieser läd zu- 
nächst das Prozessorstatusregister wieder vom Stack, und dann den Programmzäh- 
ler. Es werden also alle Flaggen auf den Stand vor der Unterbrechungsanforderung 
gebracht, und das Programm an der alten Stelle fortgesetzt. 


Erlaubte Adressierungsarten: 


nur implizit 
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Basic-Programm: 


REM ** RTI ** 

SP=SP +1:SR=SP%(SP):;REM STATUS VOM STACK 
SP=SP +1:PC =SP%(SP):;REM PC VOM STACK 
SP=SP+1:PC=PC +256*SP%(SP) 

N=(SR AND 128) / 128:V =(SR AND 64) / 64 


:REM STATUS ZERLEGEN 
B=(SR AND 32) /32:D=(SR AND 8) /8 

1=(SR AND 4) /4:Z=(SR AND 2) /2:C=SR AND 1 
RETURN 








Beim C 64 steht im RAM ein Vektor (ab $314), der auf die IRQ-Routine des Be- 
triebssystems zeigt. Über diesen Vektor wird die IRQ-Routine aufgerufen, nachdem 
die Register der CPU gerettet worden sind. Sie können hier leicht eigene Routinen 
einbauen. Auch um den Abschluß der Routine brauchen Sie sich nicht zu kümmern. 
Entweder fahren Sie bei der alten IRQ-Routine fort (mit JMP $EA31), oder Sie 
beenden sie mit ’JMP $FEBC”. Das folgende Beispiel läßt alle Sterne (°*’) auf dem 
Bildschirm blinken: 


zeiger: .eq 251 

zähler: .eq 253 

irqvec: .eq 3314 

irgalt: .eq $ea3i 

bild: .eq $400 
.ba $c000 
.oS 


;Zeiger auf Bildschirm 
;Zähler für Blinkfrequenz 
‚IRQ-Vektor 
;IRQ-Routine des C 64 
;Bildschirmadresse 


‚Basisadresse 
‚Ausgabe in das RAM 


;Startroutine: baut die neue IRQ-Routine ein 


init: sei 
Ida #<irqneu 
Idx #>irgneu 
sta irgqvec 
stx irqvec+1 
cli 
rts 


;Neue Interrupt-Routine 

irqneu: inc zähler 
Ida #30 
cmp zähler 
bne fertig 
Ida #<bild 
Idx = > bild 
sta zeiger 
stx zeiger+1 
Idx 4 
Idy #0 


























;Interrupt verbieten 
;IRQ-Vektor auf irqneu 


;‚Interrupt wieder zulassen 
‚fertig 


;Zähler+1 
;Zähler=30 ? 


;nein, dann fertig 
‚zeiger auf Bild setzen 


;4 Seiten a 256 Byte 
‚Byteindex 
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Ida (zeiger),y ;Zeichen holen 

and +$7f ;Bit 7 auf Null 

cmp =” ‚ist es ein Stern ? 

bne keinstern ;nein 

Ida (zeiger),y ‚ja, dann Originalwert holen.. 
eor +$80 ‚Bit 7 umdrehen.. 

sta (zeiger),y ;und wieder speichern 





























keinstern: iny ;‚Byteindex +1 
bne loop ;weiter bis Index=0 
inc zeiger+1 ;neue Seite 
dex ;Seitenzähler —1 
bne loop ;bis 4 Seiten durch 
stx zähler ;zähler auf Null 
jmp irgalt ‚weiter bei der Original-Routine 








4/4.2.4.11 


Sonstige Befehle 





Zwei weitere Befehle kennt die CPU noch, die hauptsächlich bei der Fehlersuche 
und Programmentwicklung benutzt werden. 


NOP — No OPeration 


Dieser Befehl tut absolut nichts! Flaggen werden von dem Befehl auch nicht verän- 
dert. Er kann als Platzhalter im Programm eingesetzt werden, oder in Warteschlei- 
fen zur Verlängerung der Wartezeit eingesetzt werden. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 


1370 REM ** NOP ** 
1380 RETURN 
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BRK — BReak 


Mit dem BRK-Befehl kann per Programm ein Interrupt über den IRQ-Vektor ausge- 
löst werden. Es gibt jedoch zwei Unterschiede: 


— Es wird der Programmzähler plus zwei auf den Stack gespeichert. 


— Das B-Flag wird eingesetzt bevor das Statusregister auf den Stapel gelegt wird, 
um den BRK-Befehl von IRQ zu unterscheiden. 


Außer dem Break-Flag werden keine Flaggen manipuliert. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 





REM ** BRK ** 

PC =PC + 2:SP%(SP) = PC/256:SP = SP—1:REM PC +2 AUF STACK 
SP%(SP) =PC—256* INT(PC/256):SP =SP—1 

B=1:SR= SROR32:SP%(SP) = SR:SP =SP—1 


:REM STATUS AUF STACK 
=1:PC=PEEK (65534) + PEEK (65535)*256 
:REM WEITER BEI INTERRUPT 

RETURN 
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BRK — BReak 


Mit dem BRK-Befehl kann per Programm ein Interrupt über den IRQ-Vektor ausge- 
löst werden. Es gibt jedoch zwei Unterschiede: 


— Es wird der Programmzähler plus zwei auf den Stack gespeichert. 


— Das B-Flag wird eingesetzt bevor das Statusregister auf den Stapel gelegt wird, 
um den BRK-Befehl von IRQ zu unterscheiden. 


Außer dem Break-Flag werden keine Flaggen manipuliert. 


Erlaubte Adressierungsarten: 
nur implizit 


Basic-Programm: 





REM ** BRK ** 

PC =PC + 2:5SP%(SP) = PC/256:SP =SP—1:REM PC +2 AUF STACK 
SP%(SP) = PC—256*INT(PC/256):SP = SP—1 

B= 1:SR = SROR32:SP%(SP) = SR:SP =SP—1 


:REM STATUS AUF STACK 
I= 1:PC=PEEK (65534) + PEEK (65535)*256 
:REM WEITER BEI INTERRUPT 

RETURN 
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4/5.4 
Ein lauffähiger Assembler in Assembler 





Neben dem Thema Assemblerkurs wollen wir bereits im Grundwerk damit begin- 
nen, einen kompletten Assembler, der selbst in Assembler geschrieben ist, darzu- 
stellen. Wegen der Länge des Listings werden wir diesen aber - inklusive des Ba- 
sicladers - auf die ersten Ergänzungsausgaben teilweise verlegen müssen. 


Der hier vorgestellte Assembler hat mehrere Funktionen: Einerseits soll er Ihnen 
einen leistungsfähigen Assembler in die Hand geben, mit dem Sie Ihre Maschi- 
nenspracheprobleme zügig bewältigen können. Eines seiner vielen Merkmale ist 
z.B. die Verlegung in ein externes EPROM, so daß Ihnen fast der gesamte Spei- 
cherbereich des 64er zur Verfügung steht. Die benötigten Betriebssystem-Routinen 
werden dann ebenfalls ausgelagert. Die Vorgehensweise dazu werden wir in einem 
der Ergänzungsteile besprechen. 


Andererseits soll der hier vorgestellte Assembler bei allen in diesem Buch vorge- 
stellten Maschinenspracheprogrammen verwendet werden, um Anpassungspro- 
bleme zu den verschiedenen auf dem Markt befindlichen Assemblern zu ver- 
meiden. Wir können unseren Lesern nicht vorschreiben, welchen Assembler sie 
sich zu kaufen haben. Der hier vorgestellte Assembler ist für diejenigen, die sich 
das Eintippen ersparen wollen, auch auf Diskette lieferbar. 


4/5.4.1 


Allgemeine Merkmale des Assemblers 





Der Assembler wurde auf dem Commodore 64 entwickelt, ünd nutzt daher dessen 
Möglichkeiten weitgehend aus. Da der C 128 ebenfalls die Programme des C 64 
verarbeiten kann, und außerdem eine ähnliche CPU im 128er-Modus benutzt (und 
somit auch die gleiche Assemblersprache versteht), kann der Assembler auch auf 
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dem C 128 genutzt werden. Allerdings wird der Assembler dann den Möglichkei- 
ten, die der C 128 bietet, nicht gerecht. 


Inzwischen gibt es eine ganze Reihe von Assemblern für die Commodore-Com- 
puter, die sich jedoch in Bezug auf ihr Konzept und auch im Befehlssatz unter- 
scheiden. Um hier eine Orientierungshilfe zu bieten, soll hier das Konzept unseres 
Assemblers beschrieben werden. 


4/5.4.1.1 
Speicherkonzept 





Ein Problem bei der Erstellung eines Assemblers ist es immer, in welchem Spei- 
cherbereich der Assembler selbst stehen soll. Hier kann man nur Kompromisse 
eingehen, da sich irgendwann der Bereich des Assemblers mit dem des zu erstel- 
lenden Programmes überschneiden wird. Aus diesem Grund gibt es unseren As- 
sembler in zwei Versionen: 


Eine RAM-Vsion, die im Speicher ab $0801 steht, und wie ein Basic-Programm ge- 
laden und gestartet wird, sowie 


eine Modulversion, die in EPROM’s gebrannt ab $8000 im Speicher bereit steht. 


Beide Versionen werden mit dem gleichen Quelltext generiert. Da Sie über den 
Quelltext des Assemblers verfügen, können Sie die Startadresse des Assembler 
natürlich auch selbst bestimmen, indem Sie die Festlegung im Programmiext 
ändern, und dann das Programm neu übersetzen. 


Das zweite Problem stellt beim C 64 der Speicherbereich von 64 KByte dar. Wie 
Sie wissen, verfügt der C 64 über 64 KByte RAM, von denen etwa 2 KByte für 
Betriebssystemvariablen, Puffer und Bildschirm abgerechnet werden müssen. Bleibt 
ein Speicherbereich von 62 KByte übrig, der unter normalen Umständen praktisch 
nicht genutzt werden kann. 


Hier zeigt das von Commodore gelieferte Basic starke Schwächen. Unser Assem- 
bler kann jedoch in der Modulversion den übrigen 62 KByte Speicherbereich 
nutzen, da ein Modul keinen RAM-Speicher belegt. Dabei können Sie im Betrieb 
dem Assembler angeben, in welchen Bereichen er Quelltext, Symbole und Pro- 
gramm speichern soll. 


Die Speicherbereiche dürfen nur nicht innerhalb des von Betriebssystemen genutz- 
ten Bereichs von $0000 bis $0801 liegen, und sich natürlich auch nicht überschnei- 
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den. Die RAM-Version ist prinzipiell ebenfalls in der Lage, den Speicherbereich 
von 62 KByte zu nutzen, jedoch liegt hier der Assembler selbst ab $0801, und darf 
natürlich nicht überschrieben werden, da sonst das Programm abstürzen würde. 


Wie es möglich ist, den Speicher so zu verwalten, können Sie in den Kapiteln 2/2.1.6 
‚PLA‘ und im Kapitel 4/5.4.4.2 ‚Textfile-Aufbau‘ nachlesen. Hier sei nur gesagt, daß 
dies nur durch ständiges Umschalten der Speicherverwaltung des Computers mit 
Hilfe von kurzen, immer im RAM gehaltenen Routinen erreicht werden kann. 


Zu dem Speicherkonzept eines Assemblers gehört auch die Behandlung der Massen- 
speicher. Im Fall des C 64 sind dies der Kassettenrecorder und/oder das Floppy- 
Laufwerk. Ein arbeiten mit dem Kassettenrecorder ist nicht sinnvoll, da er das ein- 
lesen von Quelltexten direkt beim Assemblieren kaum ermöglicht. Eine Zusammen- 
arbeit von Assembler und Kassettenrecorder ist daher nicht vorgesehen. 


Die Diskettenstation wird hingegen voll unterstützt. Sie wird als Erweiterung des 
Arbeitsspeichers betrachtet. Daher können Quelltexte beim assemblieren aus- 
schließlich auf Diskette stehen, und müssen nur zum Editieren (bearbeiten) in den 
Speicher geladen werden. Der vom Assembler erzeugte Code kann ebenfalls di- 
rekt auf Diskette geschrieben werden. Nur die verwendeten Symbole müssen im Ar- 
beitsspeicher gehalten werden. Es wäre wegen der Zugriffszeit und dem Aufwand 
nicht sinnvoll, diese ebenfalls auf Diskette verwalten zu wollen. 


Mit diesem Speicherkonzept ist es daher möglich, sowohl Programmentwicklungen 
schnell im Arbeitsspeicher zu betreiben, als auch lange Programme auf Diskette 
zu verwalten. Ein Beispiel hierzu ist der Assembler selbst, dessen Quelltext bereits 
die Speicherkapazität des C 64 weit übersteigt. 


4/5.4.1.2 


Behandlung von Symbolen 





Ein weiteres wichtiges Merkmal ist die Behandlung von Symbolen. Aus der Art, 
wie sie berechnet werden und welchen Einschränkungen sie unterliegen, ergeben 
sich einige Leistungsmerkmale eines Assemblers. Symbole werden in unseren 
Assembler bis zu zehn Zeichen korrekt formatiert und dürfen darüber hinaus bis 
zu zwanzig Zeichen lang sein. Groß- und Kleinschrift wird dabei unterschieden. 
Dies ist vor allem bei recht langen Programmen nützlich. So kann man zum Bei- 
spiel alle Symbole klein schreiben, aber jedem Symbol einen Großbuchstaben, der 
das jeweilige Programmstück kennzeichnet, voranstellen. So werden doppelte Sym- 
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bole vermieden (z.B. ‚Hloop‘ und ‚Aloop‘), und sofort die Zugehörigkeit zu einem 
Programmteil erkannt. Die ist aber eine Frage des persönlichen Programmierstils. 


Unser Assembler legt Symbole grundsätzlich nur im ersten Durchlauf an. Dies gilt 
für jede Art von Symbolen, also für Sprungmarken im Programm, wie für durch 
‚eg‘ oder ‚in‘ definierte Konstanten. Hieraus ergibt sich bereits eine Einschränkung 
des Assembler. Die bei ‚eq‘ angegebenen Werte müssen bereits definiert sein, und 
dürfen sich nicht auf ein nachfolgendes Symbol beziehen. Dieses Problem kann je- 
doch immer durch die Wahl der Position der Zuweisungszeile im Quelltext um- 
gangen werden. In anderen Assembler werden Konstanten häufig in jedem Durch- 
gang neu berechnet. Wollen Sie ein derartiges Programm übertragen, so müssen 
sie evtl. einige Zeilen umstellen. 


Bsp.: verboten ist: korrekt ist: 
symbol: „eq loop+3 nop 
nop loop: dex 
loop:  dex symbol: „eq loop+3 


Wie viele Assembler, unterscheidet auch unserer zwischen verschiedenen Symbol- 
typen. Es gibt Sprungziele, die im Labelfile mit ‚p‘ gekennzeichnet werden, und die 
Konstanten, die mit ‚f gekennzeichnet werden. Als besondere Arbeitserleichterung 
prüft der Assembler während des Assemblierens, ob wir ein Symbol nicht nur defi- 
nieren, sondern auch irgendwo benutzen. Ist dies nicht der Fall, wird das Symbol im 
Labelfile durch ‚u‘ gekennzeichnet. Diese Kennzeichnungen haben aber keine Aus- 
wirkungen auf Eigenschaften oder Gebrauch von Symbolen. Alle Symbole werden 
vom Assembler gleich behandelt. Sie können an jeder Stelle, an der ein Wert erwar- 
tet wird, eingesetzt, und durch ‚+‘, ‚-‘, ‚*“ oder ‚/‘ mit anderen Symbolen, oder 
Werten, verkettet werden. Dabei werden Ausdrücke von links nach rechts ausge- 
wertet. Daher ergibt der Ausdruck ‚5+7*3‘ den Wert (5+7)*3=36, und nicht 5+(7:3) 
=26, was mathematisch exakt wäre. Diesen Umstand weisen aber auch einige Ta- 
schenrechner auf. 


4/5.4.1.3 


Behandlung von Zero-Page-Variablen 





Eine weitere Klasse von Symbolen stellen die Zero-Page-Symbole dar. Sie werden 
zwar nicht gesondert gekennzeichnet, haben aber durch die kürzere Adressierungs- 
art (siehe Assemblerkurs) eine besondere Bedeutung. Unser Assembler erkennt 
diese Adressierungsart automatisch daran, daß Zero-Page-Variablen einen Wert 








Maschinensprache/Assembler Teil 4 Kapitel 5.4.1 Seite 5 








5.4 Ein lauffähiger Assembler in Assembler Teil 4: Software-Erstellung 


kleiner als $100 haben. In anderen Assemblern müssen diese Symbole manchmal 
gekennzeichnet werden. Dies geschieht dann z.B. durch einen vorangestellten Stern 
(also z.B.: ‚wert‘ statt ‚wert‘). Unsere Art die Zero-Page Variablen zu erkennen, 
kann aber nur korrekt erfolgen, wenn Zero-Page-Symbole vor ihrem Gebrauch de- 
finiert werden. Im folgenden Beispiel kann die Zero-Page-Variable erst im zweiten 
Durchgang erkannt werden: 


warte: Ida variable 

bne warte 
variable: .eq $34 
test: rts 


Da der Assembler im ersten Durchgang die Variable ‚variable‘ noch nicht kennt, 
reserviert er einen Speicherplatz von zwei Byte für die Variable. Im zweiten Durch- 
gang wird die Variable jedoch nur ein Byte belegen, so daß die im ersten Durch- 
gang berechneten nachfolgenden Symbole (hier: ‚test‘) nicht mehr stimmen. Die- 
ser Fehler wird am Ende des zweiten Durchgangs zwar vom Assembler erkannt 
und gemeldet (‚Berechnungs-Fehler‘), aber der Assembler kann nicht feststellen, 
in welcher Zeile der Fehler gemacht wurde. Sie sollten sich daher angewöhnen, 
als erstes immer alle Symbole zu definieren. Dies ist sogar generell zu empfehlen, da 
es der Übersichtlichkeit und Lesbarkeit eines Programmes dient. 


4/5.4.1.4 
Abweichungen von anderen Assemblern 





Weitere Abweichungen von anderen Assemblern betreffen den Satz der Pseudo- 
Befehle der Assembler. Dies sind Befehle, die zur Steuerung des Assemblers, zum 
direkten Ablegen von Werte im Programm, und der Ausgabesteuerung dienen. Es 
gibt hier zwar so etwas wie einen Standard, dieser ist aber so gering, daß praktisch 
alle Assembler einen eigenen Satz an Pseudo-Befehlen haben. Unser Assembler ist 
hier keine Ausnahme. Im Folgenden werden daher Angaben zum Umsetzen ande- 
rer Assemblerprogramme gemacht. Diese sind jedoch keinesfalls vollständig! Der 
volle Befehlssatz unseres Assemblers ist im Kapitel 4/5.4.2.6 ‚Pseudo-Befehle‘ mit 
den zugehörigen Erklärungen aufgeführt. 


Festlegung der Basisadresse 


Unser Assembler legt die Basisadresse mit dem „ba‘-Befehl fest. In anderen 
Assemblern wird „*=‘, ‚org‘ oder „org‘ verwendet. 
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Definieren von Symbolen 

Symbole werden durch ‚.eg‘ festgelegt oder durch ,.in‘ eingelesen. In anderen 
Assembler heißt der ‚.eq‘-Befehl häufig ‚equ‘, ,.equ‘, „.de‘ oder ‚=*. 

Ablegen von Werten 


Werte können durch ‚.by‘, ,.wo‘, ,.ad‘, ,.dp‘ oder ‚rv‘ abgelegt werden. In anderen 
Assembler heißt ‚.by‘ z.B. ‚.byte‘, ‚.byt‘, oder ‚byte‘. ,.wo‘ heißt entsprechend 
„.word‘ oder ‚word‘. Die Befehle ‚.dp‘ und ‚.rv‘ findet man im allgemeinen nicht 
in anderen Assemblern. 


Reservieren von Speicherbereichen 


Speicherbereiche werden mit ‚.db wert‘ oder ‚dw wert‘ definiert. In anderen As- 
sembler wird dies durch ‚#»=*+ wert‘ oder ‚.ds‘ erreicht. 


Beispiel: ,. db 128° wird zu ‚»=x*+128°. 


Quelltextende 


Das Ende des Quelltextes wird fast immer automatisch erkannt, kann aber auch 
durch ‚.en‘, ,.end‘ oder ‚end‘ erreicht werden. 


Bedingte Assemblierung 


Bei den Befehlen zur bedingten Assemblierung (,.?p‘, ‚?m‘, ,.?e‘, ,.?n‘, „.eb‘) gibt 
es viele Möglichkeiten. Sie sind aber selten anzutreffen. Im allgemeinen haben 
sie Namen der Form ‚ifp‘, ‚ifm‘, ‚ife‘, ‚ifn‘ oder den Anweisungen ‚if‘, ‚else‘ und 
‚endif. 


Formatsteuerung 


Die Formatsteuerung wird ebenfall recht unterschiedlich gelöst, ist aber für das 
Umsetzen von Programmen auch nicht erforderlich. 


Mit Hilfe dieser Angaben sollten Sie in der Lage sein, Programme von anderen 
Systemen zu übertragen. Häufig erkennt man unbekannte Befehle auch aus den 
Kommentaren oder der Programmbeschreibung. 
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4/5.4.2 


Bedienungsanleitung 





Im Folgenden werden alle Möglichkeiten des Assemblersystems aufgezeigt. Damit 
Sie richtig mit dem System arbeiten können, werden alle Befehle getrennt nach 
Gruppen vorgestellt. Sie können daher in den entsprechenden Kapiteln die Be- 
fehle nachschlagen. 


4/5.4.2.1 


Laden und Starten 


Der Assembler ASS wird mit LOAD „ass.ram“, 8 von der Diskette geladen und 
mit RUN gestartet. Er meldet sich dann mit seinem Menü. 


In dem Menü stehen neben den Menübefehlen, die Anzahl der Zeilen, die der 
Text im Textspeicher enthält, ob der Drucker aktiv geschaltet ist und die Gren- 
zen des Text- und Symbolspeichers. So bedeutet ‚Text: $8000-$DFFF gefüllt: 
$81E4‘ z.B. das der Textspeicher von $8000 bis $DFFF liegt, und bis $81E4 gefüllt 
ist. 
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4/5.4.2.2 


Die Menü-Befehle 





Nach dem Starten befinden Sie sich im Hauptmenü von ASS. Von hier werden 
die wichtigsten Grundfunktionen erreicht und es erfolgt die Verzweigung in die 
Programmmodule Assembler, Editor oder Monitor. 


Alle Befehle werden durch einen Tastendruck gestartet. Benötigt ASS weitere In- 
formationen, so werden diese abgefragt. 


Folgende Befehle können vom Menü aus erreicht werden: 





Taste Befehl 
E Sprung in den Editor 
Assembler starten 
zweiten Pass des Assemblers starten 


Write: Der im Textspeicher stehende Text wird auf den Drucker ausgegeben. 





A 

P 

B Basic starten. Es wird ein Reset ausgelöst, und so Basic gestartet. 
w 

[e) 


Options: Die Speichergrenzen für Text und Symbolspeicher können eingegeben 
werden. Die momentanen Grenzen werden dabei vorgegeben und können mit 
<RETURN> bestätigt werden. Zulässig sind Zahlen in dezimaler, binärer (%10) 
oktaler (&0321) oder sedezimaler ($FFD2) Darstellung. Beachten Sie bitte die 
vorangestellten Sonderzeichen: ‚%‘ für binär, ‚&‘ für oktal und ‚$‘ für sedezimal. 





R Run: Ein Unterprogramm kann gestartet werden. ASS fragt zunächst nach der 
Startadresse der Routine. Als Adresse kann eine Zahl, ein Label, oder ein Aus- 
druck eingegeben werden (z.B. Loop+$45). Dann fragt ASS, ob alles auf RAM 
geschaltet werden soll. Wird die Frage mit ‚J‘ beantwortet, so wird vor dem Star- 
‘ten der gesamte ROM-Bereich abgeschaltet. Sonst verhält sich der Computer wie 
nach dem Einschalten. Die Routine muß mit RTS enden! 





I Init: ASS wird neu gestartet. 





G Get: Eine Textdatei wird in den Textspeicher geladen. Der Dateiname wird von 
ASS erfragt. Ist die Textdatei zu groß, wird ein Fehler gemeldet. Der Textspeicher 
muß dann vergrößert werden. 





Ss Save: Der momentane Text wird auf Diskette gespeichert. 














M Merge: An den Text im Speicher wird der Text aus einer Textdatei angehängt. 
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Taste Befehi 





V Verify: Der Text im Speicher wird mit einer Textdatei verglichen. Ist der Text ver- 
schieden, wird ein Fehler gemeldet. Sonst erfolgt keine Meldung. 





c Catalog: Das Inhaltsverzeichnis der Diskette wird angezeigt. Der Befehl benötigt 
eine Maske (Disk-Mask). <RETURN> liefert das gesamte Inhaltsverzeichnis. 
Sollen z.B. alle File’s, die mit ‚S‘ beginnen angezeigt werden, so wird als Maske 
‚S* eingegeben. 


D Disk-Befehl: Sendet einen Diskettenbefehl. Soll z.B. das File ‚TEST‘ gelöscht wer- 
den, so wird ‚S: TEST‘ eingegeben. 








Fioppy: Liest den Fehlerkanal der Floppy aus. 





L Label-File: Zeigt die definierten Symbole an. Es kann angegeben werden, ob alle 
Symbole, oder nur die Symbole eines bestimmten Typs ausgegeben werden. 
Folgende Typen sind möglich: 

Fix = alle Symbole die mit ‚.eg‘ oder ,.in‘ definiert wurden 

Program = alle Symbole die als Label im Programmtext vorkommen 

Unused = alle Symbole die zwar definiert wurden, aber nicht benutzt wurden 
Ist der Drucker eingeschaltet, so geht die Ausgabe auf Drucker. 


T Toggel: Schaltet den Drucker ein bzw. aus. 





H Help: Erlaubt die Eingabe einer Adresse der Form wie bei R (Run) und gibt diese 
dezimal, sedezimal (Hex. durch $ gekennzeichnet), oktal (Basis 8, durch & ge- 
kennzeichnet) und binär (durch % gekennzeichnet) aus. 











N Sprung in den Monitor. 


4/5.4.2.3 


Der Editor 





Nach dem Einschalten des Editors sehen Sie ein fast leeres Bild. Nur in der oberen 
Zeile stehen Informationen. Dies ist die Statuszeile. Sie zeigt laufend die Zeilen- 
nummer und die Position des Cursors an. Zeilen können max. 80 Zeichen haben. 
In der Statuszeile wird außerdem noch die aktuelle Betriebsart angezeigt. 
Etwa in der Form: ‚F:+ P:- I:- Q:+*. Dabei bedeutet ‚+‘, daß die Betriebsart 
eingeschaltet, und ‚-“ daß sie ausgeschaltet ist. . 
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F:+ bedeutet also, daß die Ausgabe auf Drucker und Bildschirm auf Assembler- 
format gebracht wird. 

I:+ bedeutet, daß nach jeder Zeile automatisch eine neue erzeugt (Insert-Mode), 
und jedes Zeichen in eine Zeile eingefügt wird. 

P:+ bedeutet, daß gepackt wird, d.h. aus jeder Zeile werden unnütze Leerzeichen 
gelöscht. 

Q:+bedeutet, daß ein ”” eingegeben wurde. Bis zum nächsten ’”‘ können nun 
auch Steuerzeichen in den Text übernommen werden. 


4/5.4.2.4 


Die Editor-Befehle 


Im Editor sind folgende Tasten belegt: 





F1: Zum Textanfang F2: Zum Seitenanfang 
F3: Eine Seite zurück 

F5: Eine Seite vor 

F6: Zum Textende F8: Zum Seitenende 








Die INS/DEL-Taste funktioniert gemäß ihrer Beschriftung. 
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Mit der CTRL-Taste kommen Sie in den Befehlmodus. 


Folgende Befehle sind dann möglich: 


Teil 4: Software-Erstellung 





E - Zeile löschen 
N - Zeile einfügen 
D - Block löschen 
C - Block kopieren 
M - Block verschieben 
W - Block auf Drucker ausgeben 
A - Blockanfang festlegen 
B - Blockende festlegen 
Z - Blockdefinition löschen 
L - Links vom Cursor löschen 
R - Rechts vom Cursor löschen 
K - Zeileninhalt löschen 
Y - Korrektur löschen 
F - Suchen 
S - Ersetzen von Zeichenketten 
O - Old (Textdatei retten) 
G - Goto Zeilennummer 
T - Format on/off 
Insert Mode on/off 
P - Pack on/off 
X - Text löschen 
Q - Zum Menü 
<RETURN> - Kein Befehl 








Bei den Befehlen Suchen und Ersetzen können im Suchwort unbedeutende Stel- 
len mit ‚” gekennzeichnet werden (sogennante Platzhalter oder „Wild Cards“). 


4/5.4.2.5 


Aufbau des Quelltextes 





Eine Zeile hat folgenden Aufbau: 


Symbol: Befehl Operand; Kommentar 


Ein Symbol ist eine Zeichenkette, die mit einem Buchstaben beginnt, und mit 
weiteren Buchstaben oder Zahlen, oder den Zeichen ,.‘,',?‘ oder ‚!* fortgesetzt 
werden kann. Es darf maximal 10 Zeichen lang sein. Es wird durch einen Doppel- 
punkt vom Rest der Zeile abgetrennt. Es kann auch fehlen. Groß- und Kleinschrift 


wird unterschieden. 
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Ein Befehl ist einer der offiziellen 6502 Mnemo-Befehle oder ein Pseudo-Befehl. 
Er kann auch fehlen. 


Ein Operand ist ein Argument verbunden mit einer Adressierungsart des 6502. 
Die Zero-Page-Adressierung wird automatisch erkannt. Der Operand kann auch 
fehlen. Bei der Zero-Page Adressierung muß der Operand vor dem ersten Aufruf 
definiert sein! 


Ein Argument ist eine Zahl oder ein Symbol, oder mehrere Zahlen oder Symbole 
verbunden durch ‚+‘, ‚-‘, ‚*“ oder ‚/‘. Es wird von links nach rechts ausgewertet. 
Wird einem Argument ‚<‘ vorangestellt, so wird der niederwertige Teil angespro- 
chen, bei ‚>‘ der höherwertige Teil. Das heißt, es wird das höherwertige bzw. nie- 
derwertige Byte eines 16-Bit-Wertes angesprochen (siehe auch Einführungsteil). Als 
Zahl kann ebenfalls der ASCII-Wert eines Zeichens angegeben werden (z.B. ‚a‘). 


Ein Kommentar ist eine beliebige Zeichenkette, die mit einem ‚;‘ beginnt. 


Alle Zahlen können dezimal (Basis 10, z.B. 121), sedezimal (hexadezimal Basis 16, 
z.B. $12ff), oktal (Basis 8, z.B. &72) oder binär (Basis 2, z.B. %101) eingegeben 
werden. 


Zulässige Zeilen sind z.B.: 


Ida (loop), y 

loop: Ida #45+31-20 
cmp #‘a 

abc: jmp$ffc3; Beispiel 1 
cmp #>$fcd3 


- Soll als Argument der Akkumulator angesprochen werden, so wird nicht, 
wie bei den meisten Assemblern, z.B. ASL A, sondern nur ASL eingegeben. 


- Soll der momentane Programmzähler im Argument verwendet werden, so wird 
er durch das Symbol ‚+‘ erreicht (z.B. beq++5). ‚*‘ darf nur in der ersten Posi- 
tion stehen (d.h. beq 5+** ist verboten). 
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4/5.4.2.6 


Pseudo-Befehle 





Der Assembler ASS kennt folgende Pseudo-Befehle, die alle mit einem Punkt be- 
ginnen: 

symbol: .eq operand 

Weise dem Symbol folgenden Wert zu. 

Bsp.: loop: .eq$d000+3 

symbol: .in „text“ 


Drucke text, hole eine Zahl von der Tastatur und weise sie dem Symbol zu. Der 
Text kann auch fehlen. 


Bsp.: txtanf: .in „textanfang?“ 
txtend: .in 
.00 operand 


Der Operand wird sedezimal ausgegeben. 


.tx „Text“ 


Der Text wird ausgegeben. 


‚en 
Beende den Paß. 


.db operand 


Reserviere soviele Byte, wie der Wert von operand angibt. 


.dw operand 


Reserviere soviele Wörter (1 Wort = 2 Byte), wie der Wert von operand angibt. 
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“wa 


Bei einer Fehlermeldung wartet der Computer. Durch Drücken der ‚C‘-Taste (,C’ 
für continue) wird der Paß fortgesetzt, und durch Drücken der ‚A‘-Taste der As- 
sembliervorgang abgebrochen. Steht der Quelltext im Speicher kann durch Drücken 
der ‚E‘-Taste in den Editor zu der fehlerhaften Zeile gesprungen werden. 

.co 


Hebe .wa auf 


‚be operand 

Der Wert von operand darf zwischen Null und Zwei liegen. Ist der Operand Null, 
wird in jedem Paß bei Erreichen des Befehls ein Ton ausgegeben. Ist der Operand 
ungleich Null nur im jeweiligen Paß. 

.?e operand 

Ist der Operand Null, so wird der Block übersetzt, anderenfalls ignoriert und die 
Assemblierung nach dem .eb Befehl fortgesetzt. 

.?n operand 

Ist der Operand ungleich Null, so wird der Block übersetzt, anderenfalls igno- 
riert. 

.?p operand 


Ist der Operand positiv, so wird der Block übersetzt, anderenfalls ignoriert. 
.?m operand 

Ist der Operand negativ, so wird der Block übersetzt, anderenfalls ignoriert. 
Bl 

Der Block wird nur in Paß 1 übersetzt. 

.?2 


Der Block wird nur in Paß 2 übersetzt. 


.eb 
Ende des Blocks. 
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Beispiel: 
ver.:.in „version 1 oder 2?“ 
.e ver-1 
10: Ida #1 ;block 1 
sta $50 
.cb 
.?e ver-2 
10: dex  ;block 2 
.eb 


Die Blöcke dürfen nicht verschachtelt werden! 


.08 
Lege im 2. Paß den Code ins RAM ab. 


.0C 
Hebe .os auf. 


‚ba operand 


Weise dem Programmzähler den Wert von operand zu. 


.be operand 

Lege den erzeugten Code, statt bei der durch .ba festgelegten Adresse, bei der 
Adresse operand ab. Eine .ba Anweisung hebt eine .bc Anweisung auf. .os muß 
extra gegeben werden. 

.ch operand 


Weise dem Programmzähler den Wert zu, ohne die .bc Anweisung aufzuheben. 


.|s 
Druck-Protokoll. 


‚le 
Hebe .lIs auf. 


.ou „file“ 


Schreibe den erzeugten Code in das File mit dem angegebenen Namen und über- 
gebe als Startadresse den momentanen Programmzähler. 
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fi „file“ 

Setze die Assemblierung im File mit dem angegebenen Namen fort. Dieser Be- 
fehl geht nur bei Assemblierung von Diskette. 

.by opkette 


Lege die Operanden byteweise ab. 


‚wo opkette 

Lege die Operanden wortweise ab. (Reihenfolge: <operand, >operand nach 6502 
Standard) 

.ad opkette 

Wie, Wo, jedoch mit Reihenfolge >operand, <operand. 


‚Tv opkette 
Wie .by, jedoch wird rückwärts abgelegt. D.h. .rv 2+43,1 gibt $01 $05. 


‚dp „text“ 


Lege den Text als Display-Code ab. Dabei wird der ASCH-Code in den Code 
umgerechnet, der in der POKE-Tabelle steht. Bsp.: .dp „aA“ ergibt $01 $41. 


Eine opkette ist ein oder mehrere Operanden, getrennt durch ‚„‚‘ wobei als Ope- 
rand auch eine Zeichenkette eingeschlossen in ‚““ angegeben werden kann. 
Bsp.: .by 51-45, $4f, ‚a,%100, „probe text“, <$d2f4,> $ff66. 


4/5.4.2.7 


Fehlermeldungen 





Außer den Fehlermeldungen die ASS liefert, kann das Betriebssystem des C64 
zehn Fehlermeldungen der Form „VO ERROR #°“ liefern, wobei ‚?‘ die Nummer 
des Fehlers ist. Dabei bedeutet: j 
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0 Stop-Taste gedrückt 
1 Too many files - Zu viele Files eröffnet 
2 File open - File ist bereits eröffnet 
3 File not open - File ist nicht eröffnet 
4 File not found - File wurde nicht gefunden 
5 Device not present - Gerät nicht korrekt angeschlossen 
6 Not input file - Aus dem File kann man nicht lesen 
7 Not output file - Auf das File darf man nicht schreiben 
8 Missing file name - Filename fehlt 
9 Illegal device number - Gerätenummer ist verboten 








Diese Fehlermeldungen treten i.a. jedoch nicht auf! 
ASS liefert folgende Fehlermeldungen: 


Sprung zu lang 
Ein bedingter Sprung (z.B. BNE) ist weiter, als die CPU erlaubt. 


Operand 


Der angegebene Operand kann von ASS nicht entziffert werden. 


Symbolanzahl 


Es werden mehr Symbole angelegt, als in den Symbolspeicher passen. Die Assem- 
blierung wird von ASS abgebrochen! 


Adr. unbekannt 


Es wurde eine Adressierungsart angegeben, die die CPU nicht kennt [z.B.: LDA 
($34), Z]. 


Adr. nicht möglich 


Die angegebene Adressierungsart kann bei dem angegebenen Befehl nicht ver- 
wendet werden. (z.B.: STX adresse, X). 


Symbol unbekannt 


Das im Operand angegebene Symbol wurde nicht definiert. 


Befehl unbekannt 
Der angegebene Befehl ist weder ein 6502-Befehl noch ein Pseudo-Befehl. 


Operand zu groß 
Der angegebene Operand ist zu groß. Beispiel: LDA #300. 
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Verschachtelt 


Bei der Assemblierung eines Block’s wurde in dem Block ein neuer Block geöff- 
net. 


Symbol fehlt 


Bei einem .eq oder .in Befehl wurde kein Symbol angegeben. 


Block offen 
Nachdem ein Block geöffnet wurde, folgt bis zum Fileende kein .eb Befehl. 


Symbol doppelt 


Das Symbol wurde bereits definiert. 


Basis fehlt 


Für das Programm wurde keine Basis (mit .ba) festgelegt. 


Befehl doppelt 
Ein .ou Befehl wurde zweimal gegeben. 


Mode 
Ein .fi Befehl wurde gegeben, obwohl nicht im Disk-Modus gearbeitet wird. 


Berechnung 


Eine Zero-Page-Variable wurde nach ihrem ersten Aufruf definiert. Die Symbol- 
berechnungen aus Paß 1 stimmen daher mit denen aus Paß 2 nicht mehr über- 
ein! 


Dieser Fehler wird erst am Ende der Assemblierung erkannt. Die angegebene Zei- 
lennummer hat daher keine Bedeutung! 
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4/5.4.2.8 


Assemblieren 





ASS kennt zwei Möglichkeiten einen Text zu assemblieren: Zum einen kann der 
Text im Speicher des C 64 stehen, und zum anderen kann sich der Text in einer Datei 
auf Diskette befinden. 


Um einen Text zu assemblieren, muß zunächst die Taste ‚A‘ gedrückt werden. 
ASS fragt dann, ob er ein Protokoll des Vorgangs drucken soll. Diese Frage wird 
durch Drücken der Taste „I“ bzw. ‚N‘ entsprechend ‚Ja‘ und ‚Nein‘ beantwortet. 
Ist der Drucker eingeschaltet, so wird das Protokoll auf dem Drucker geleitet. 


Dann fragt ASS nach einem Filenamen. Beantworten Sie diese Frage, so über- 
setzt ASS die Textdatei auf Diskette, ohne den Textspeicher in Anspruch zu neh- 
men. Beantworten Sie die Frage mit <RETURN>, so wird die Datei im Speicher 
übersetzt. 


Der zweite Paß kann auch direkt gestartet werden. 


4/5.4.2.9 


Speicherbereiche 





ASS belegt außer dem Programmbereich eine Reihe von Speicherstellen in der 
Zero-Page, sowie alle Pufferbereiche im Bereich $0000-$0400 (d.h. Basic-Eingabe- 
puffer, Kassettenpuffer etc). Ein mit dem RUN-Befehl gestartetes Programm darf 
diese Bereiche mit Ausnahme von 679-767 benutzen. In diesen Bereich rettet ASS 
alle wichtigen Daten. Nach dem Programmlauf werden die Speicherstellen sofort 
wieder von ASS belegt. 
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4/5.4.2.10 


Monitor 





ASS bietet außerdem einen kleinen Monitor. Bei den Monitorbefehlen müssen 
alle Adressen als vierstellige Hexadezimalzahlen eingegeben, und mit einem Leer- 
zeichen getrennt werden. Folgende Befehle sind möglich: 

d <von> <bis> 


Disassemblieren ab Adresse <von> bis Adresse <bis>. <bis> kann auch entfallen. 


f <von> <bis> <operanden> 
Suchen der Bytefolge <operanden> im Speicherbereich <von> bis <bis>. 


Bsp.: 

f A000 AFFF A9 „test“ B7 sucht im Bereich $A000-$AFFF nach der Bytefolge A9 
„test“ B7. Wird die Kombination gefunden, so wird ihre Adresse ausgegeben und 
weitergesucht. 

g <adresse> 


Ruft das Programm ab <adresse> auf (JMP adresse). 


u <adresse> 


Ruft das Unterprogramm ab <adresse> auf (JSR adresse). 


l <adresse> „name“ 


Das Programm „name“ wird von Diskette gelesen und ab der Adresse <adresse> 
gespeichert. Fehlt <adresse>, so wird das Programm an die Originaladresse ge- 
laden. 

s „name“ <von> <bis> 


Speichert den Bereich <von> bis <bis> unter dem Namen „name“ auf Diskette. 


m <von> <bis> 
Erstellen eines Hexdumps im Bereich <von> bis <bis>. <bis> kann auch entfallen. 
Die Daten können überschrieben werden. 

= <adrl> <adr2> 


Vergleicht die Bereiche ab <adrl> bzw. <adr2> miteinander, und gibt die Adresse 
des ersten abweichenden Bytes aus. 





Teil 4 Kapitel 5.4.2 Seite 15 





Maschinensprache/Assembler 








5.4 Ein lauffähiger Assembier in Assembler Teil 4: Software-Erstellung 


p+/- 


p+ schaltet den Drucker an, p- schaltet ihn aus. 


a <von> <bis> 

Ausgabe des Bereichs <von> bis <bis> als ASCII Zeichen. <bis> kann auch ent- 
fallen. Die Daten können überschrieben werden. 

ce <von> <bis> 

Ausgabe des Bereichs <von> bis <bis> als POKE-Code. <bis> kann auch fehlen. 
Die Daten können überschrieben werden. 

v <von> <bis> <nach> 

Verschieben des Bereichs <von> bis <bis> in den Bereich mit der Startadresse 
<nach>. 

b <track> <sector> 


Lese den Block <track> <sector> von Diskette. 


b 


Lese den logisch nächsten Block. 


w <track> <sector> 


Schreibe den Block als Block <track> <sector> auf Diskette. 


w 

Schreibe den Block in den zuletzt angesprochenen Block. 
i 

Gebe Track und Sector des aktuellen Block’s aus. 


e <von> <bis> 


Gebe die Bytes <von> bis <bis> des aktuellen Blocks aus. <bis> kann auch fehlen. 
Die Daten können überschrieben werden. <von> und <bis> sind als zweistellige 
Hexadezimalzahlen anzugeben. 

e 


Liest den Fehlerkanal der Floppy aus. 


T 


Gibt die Registerinhalte aus. 
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Bsp.: 
pe ac xr yr sp nv-dbizce  chl st pp 
c000 01 02 03 f4 11011 11 ef 37 


Dies bedeutet: 
der Programmzähler steht auf $C000 (pc = c000) 


der Akku enthält I (ac = 01) 
das X-Register enthält 2 (xr = 02) 
das Y-Register enthält 3 (yr = 03) 
der Stackpointer enthält $F4 (sp = f4) 


Die Flaggen sind gemäß des 0/1 Feldes gesetzt 
Die internen Leitungen char/hiram/lowram sind gemäß der Bitfolge gesetzt. 


Alle diese Daten können verändert werden. Nicht überschrieben werden können 
die Zusatzinformationen des Statusregisters (sr = ef) und des Prozessorports 
(pp = 37; Adı. ]). 


4/5.4.2.11 


Sonstiges 





- Alle Funktionen sind auf den gesamten Speicherbereich des C 64 anwendbar 
also auch Load/Save im RAM unter YO und ROM) 

- im Monitor bestimmt die Lowram/Hiram Angabe, ob die Funktionen auf RAM/ 
ROM oder V/O angewendet werden. 

- Die meisten Funktionen lassen sich mit der STOP-Taste abbrechen. 

- Die Ausgabe kann durch Drücken der <SHIFT>-Taste angehalten, und mit der 
<C=>-TIaste fortgesetzt werden. 
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- Der weitverbreitete Programmiertrick 


eins: Ida#1 

.by $2c 
zwei: Ida#2 

sta speicher 


kann als 
eins: Ida#1 
bit 
zwei: lda#2 
sta speicher 


geschrieben werden. ‚bit‘ entspricht als ‚by $2c‘. 
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4/5.4.3 
Listing 








Das Programmm befindet sich auf der Grundwerksdiskette 











4/5.4.3.1 


Hinweise zur Eingabe und Assemblierung 


Das Listing des Assemblers ist selber ein Assemblerlisting. Sie können es daher 
nicht einfach eintippen und mit ‚RUN‘ starten, sondern müssen es erst in ein 
lauffähiges Programm wandeln. Ihnen stehen dazu mehrere Möglichkeiten offen. 


Falls Sie bereits im Besitz eines Assemblers sind, können Sie mit seiner Hilfe 
das Listing übersetzen. Dabei ist zu beachten, daß der Quelltext nicht in den 
Speicher des C 64 paßt. Er wurde daher in mehrere Teile geteilt, die durch den 
„fi-Befehl nachgeladen werden. Der Name einer Quelldatei ist in einer Kom- 
mentarzeile jeweils angegeben. Sollten Sie von dieser Möglichkeit Gebrauch ma- 
chen, müssen Sie wahrscheinlich auch einige der Pseudo-Befehle ändern, da die 
verschiedenen Assembler hier unterschiedliche Eingaben erwarten. 


Eine weitere Möglichkeit besteht darin, den Assembler mit Hilfe des in diesem 
Buch vorgestellten Basic-Assemblers zu übersetzen. Der Basic-Assembler bietet 
keine Schwierigkeiten bei der Eingabe, da er alle verwendeten Befehle versteht. 
Aber auch hier muß der Quelltext natürlich wieder in verschiedenen Dateien ab- 
gelegt werden. 


Wenn Sie eine dieser Möglichkeiten nutzen, so werden Sie während des Assemblie- 
rens vom Assembler nach verschiedenen Eingaben gefragt. Als erstes erscheint 
die Frage, ob eine RAM oder eine Modulversion erzeugt werden soll. In der 
RAM-Version wird ein von Basic aus mit ‚RUN‘ startbares Programm erzeugt. 
Die Modulversion steht hingegen ab $8000 im Speicher und muß in Eprom’s 
gebrannt werden, um dann als Modul in den vorgesehenen Platz gesteckt zu 
werden. Dann werden Sie gefragt, ob die Ausgabe auf Diskette erfolgen soll. Be- 
antworten Sie diese Frage mit ‚Nein‘, wird der Quelltext nur zur Probe assem- 
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bliert, d.h. es erfolgt keine Ausgabe des erzeugten Programms. Als letztes wer- 
den Sie gefragt, ob Standardwerte verwendet werden sollen. Beantworten Sie 
diese Frage mit ‚Nein‘, so werden Sie nach Text- und Symbolspeicherbereich, 
Textfarben, Drucker und Diskettenparameter gefragt. Die jeweiligen Standard- 
werte werden vorgegeben und können mit ‚RETURN‘ bestätigt werden. 


Die letzte Möglichkeit besteht in der Eingabe des Assemblers mit Hilfe des Basic- 
Laders. Der Basic-Lader ist ein Basicprogramm, in dem das übersetzte Programm 
bereits abgelegt ist. Es generiert aus diesen Daten dann ein lauffähiges Programm 
auf Diskette. Dabei werden gleichzeitig die Daten überprüft, so daß Fehler weit- 
gehend ausgeschlossen sind. 


Jede dieser Möglichkeiten hat Vor- und Nachteile. Der Basic-Lader ist sicherlich 
die bequemste und sicherste Möglichkeit der Eingabe, aber Ihnen steht hierbei 
nicht der Quelltext zur Verfügung. Soll also etwas verändert, korrigiert oder ver- 
bessert werden, ist dies nur schwer zu erreichen. Erweiterungen, die in diesem 
Buch vorgestellt werden, werden natürlich den Basic-Lader berücksichtigen. Bei 
eigenen Änderungen sind Sie aber auf sich gestellt. 


Bei den beiden anderen Möglichkeiten steht Ihnen der Quelltext zur Verfügung. 
Sie können daher leicht im Programm etwas ändern. Dafür muß die Eingabe 
aber sehr sorgfältig geschehen, da eine fehlende Zeile bereits zum Programmab- 
sturz führen kann. 


Für welche der Möglichkeiten Sie sich entscheiden, liegt also bei Ihnen. Aufjeden 
Fall sollten Sie jedoch vor dem Starten des Programms dieses speichern! Außer- 
dem sollten Sie die verschiedenen Funktionen des Programms testen, bevor Sie 
die Arbeit des Programmierens beginnen. So bleibt Ihnen vielleicht der Absturz 
einer längeren Textdatei erspart. Sollte beim Testen eines von Ihnen geschriebe- 
nen Programms der Computer doch einmal abstürzen, so können Sie den Text 
häufig retten, wenn Sie nach einem RESET den Assembler neu laden, in den 
Editor gehen und den Befehl ‚O‘ (OLD) eingeben. 
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4/5.4.4 


Programmbeschreibung 





In diesem Kapitel wird eine Übersicht über das Programm des Assemblers ge- 
geben. Natürlich ist es aufgrund des Umfangs des Programms nicht möglich, 
auf die Arbeitsweise jeder Routine einzugehen. Dies müssen Sie anhand des 
Listings selbst durchführen. Es soll hier im wesentlichen der Programmaufbau 
und die Struktur der verwendeten Daten erklärt werden. 


Um den Überblick über das Programm zu behalten, wurde das Listing in Ab- 
schnitte eingeteilt, denen ein Abschnitt-Kopf vorangestellt wurde. Dieser Kopf 
ist mit Sternchen (,*’) umrahmt, so daß sie ihn leicht finden. Ist also im Folgenden 
vom Abschnitt ‚Editor‘ die Rede, so ist der Programmteil nach dem Kopf ‚Editor‘ 
gemeint. Wird in einem Abschnitt auf eine bestimmte Routine verwiesen (z.B.: 
<move>), so wird sie mit dem Namen bezeichnet, mit dem sie aufgerufen wird. 
Um Abschnitt-Köpfe in einer Textdatei leichter zu finden, können Sie mit dem 
Editor-Befehl ‚F‘ nach der Zeichenfolge ‚;*“ suchen. 


4/5.4.4.1 


Arbeitsweise des Editors 





Um mit einem Assembler arbeiten zu können, benötigt man einen Editor, mit 
dem man die Textdateien erstellt. Im einfachsten Fall ist dies der Basic-Editor. 
Der Basic-Editor des C 64 ist aber nicht besonders komfortabel. Daher wurde 
für den Assembler ein eigener Editor erstellt. Sie finden den Editor im gleich- 
namigen Abschnitt. 


Der Editor arbeitet zeilenorientiert, d.h. intern werden Zeilen verarbeitet, wie bei 
dem Basic-Editor auch. Alle Editor-Befehle arbeiten daher nur auf Zeilen. So ist 
z.B. das Definieren eines Blockes nicht mitten in einer Zeile, sondern nur am 
Anfang der Zeile möglich. Die Zeilen werden jedoch nicht über Zeilennummern 
angesprochen, sondern über ihre Position auf dem Bildschirm. Dazu merkt sich 
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das Programm die Nummer der ersten Zeile auf dem Bildschirm in der Speicher- 
zeile ‚bildzeile‘ Aus diesem Wert und der Zeile auf dem Bildschirm kann so die 
Zeilennummer berechnet werden. 


Wird nun eine Taste gedrückt, so wird getestet, ob es sich um die Control-Taste 
handelt, und gegebenenfalls die Kommandoroutine aufgerufen. Wird dagegen ein 
Zeichen eingegeben, so muß die momentane Zeile geändert werden. Zu diesem 
Zweck wird sie zuerst in den internen Puffer ‚edbuffer‘ kopiert, in dem die Zeile 
dann geändert werden kann. Sämtliche Anderungen werden nun in dem Puffer 
ausgeführt. Verläßt man die Zeile mit der RETURN- oder einer Cursor-Taste, 
so wird die Zeile im Text aktualisiert (<updaten>). Der Einfachheit halber wird 
dazu erst die Zeile im Text gelöscht und dann die neue Zeile eingefügt. 
Auf den beiden Grundroutinen des Löschen und Einfügens basieren alle Befehle 
des Editors. Sie finden die Routinen <delzeile> und <inszeile> im Abschnitt 
‚Text bearbeiten‘. Sie werden in der Routine <change> noch einmal zusammen- 
gefaßt. 





Textspeicher aktuelle Zeile 


Zeile 1 Puffer 


Zeile 2 


| 


Zeile n Eingaben von Tastatur 














Die beiden Grundroutinen basieren wiederum auf der Routine <move> im 
Abschnit ‚Move‘ Diese Routine verschiebt Speicherbereiche. Dazu wird der 
Speicherbereich und die neue Adresse angegeben. Daraus berechnet <move> 
die Verschieberichtung und verschiebt den Bereich. Mit dieser Routine lassen. 
sich so nicht nur Zeilen löschen und einfügen, sondern ganze Textblöcke ver- 
schieben. Dies ist nur wenig komplizierter. Ein Block muß zunächst markiert 
werden. Zu diesem Zweck merkt sich das Programm die Zeilennummern bei den 
Editor-Befehlen ‚A‘ und ‚B‘ in den Speicherstellen ‚bloanf‘ bzw. ‚bloend“ Damit 
ist ein Block definiert. Soll der Biock verschoben werden, so werden aus den 
Biockzeilen die Adresse des Blocks berechnet, und aus der Cursörposition die 
Zieladresse. Dann wird mit <move> der Block an die Adresse kopiert und 
anschließend der Originalblock wiederum mit <move> gelöscht. 
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Die Routinen mit den Editor-Befehlen finden Sie im Abschnitt ‚Editor-Befehle‘ und, 
soweit es Blockbefehle sind, im Abschnitt ‚Block-Befehle‘ Sie sind recht einfach 
zu verstehen, da sie aus mächtigeren Routinen (wie z.B. <move>) zusammen- 
gesetzt sind. Besonders erwähnenswert sind im Abschnitt ‚Editor-Befehle‘ noch 
die Routinen <bloinskorr> und <blodelkorr >. Sie korrigieren die vom Benutzer 
festgelegten Blockgrenzen, falls in dem Block Zeilen eingefügt (<bloinskorr>) 
oder gelöscht werden (<blodelkorr >). 


Wie bereits erwähnt, ermittelt unser Editor die Zeilennummern aus ihrer Position 
auf dem Bildschirm. Dazu müssen die Zeilen zunächst auf dem Bildschirm 
dargestellt werden. Auch hierzu gibt es eine Reihe von Standardroutinen. So 
finden Sie im Abschnitt ‚Statuszeile drucken‘ die Routine <stazei>, die die 
oberste Zeile einer Seite mit den Informationen über Position im Text und ak- 
tive Funktionen beschreibt. Die Routine <bild> im Abschnitt ‚Eine Seite 
anzeigen‘ füllt hingegen eine Bildschirmseite mit Zeilen. Sie wird beim Edi- 
torstart und horizontalem Scrollen benötigt. Da eine Zeile bis zu 80 Zeichen 
beinhalten kann, aber nur 40 auf den Bildschirm passen, wird der Bild- 
schirm als Fenster über den Text verwaltet. Die Routine <bild> holt sich daher 
von <fianzpos> (Abschnitt ‚Editor‘) die Position des linken Randes des Text- 
fensters. Um nun eine Zeile anzuzeigen, muß ermittelt werden, ob die Zeile gerade 
bearbeitet wird. Dann wird die Aufgabe an <edpri> (Abschnitt ‚Editor‘) weiter- 
geleitet. Sonst ist die Zeile im Textspeicher zu finden und wird von <bild> an- 
gezeigt. Dabei muß <bild> die Zeile im allgemeinen noch auf das richtige 
Format bringen (falls eingeschaltet). Die nötigen Positionen von Label und 
Kommentar liefert hierzu die Routine <instr> im Abschnitt ‚Editor‘ die ein Zei- 
chen in der Zeile sucht. j 


Textspeicher 





Bild- 
schirm 














Die Verschiebung des Bildschirms wird über die Cursortasten gesteuert. In der 
Routine <crsrtast> im Abschnitt ‚Cursortasten‘ wird ein eingegebenes Zeichen 
auf den Code der Cursor-Iasten getestet. Ist eine der Tasten für Links- oder 
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Rechtsbewegung gedrückt, so wird der Cursor entsprechend weitergesetzt. Droht 
der Cursor außerhalb des Bildes zu geraten, so wird horizontal gescrollt, indem 
die <bild>-Routine aufgerufen wird. Bei Cursorbewegungen nach oben oder 
unten wird die Zeile verlassen und daher bei Bedarf <updaten> aufgerufen. 
Droht hier der Cursor das Bild zu verlassen, wo wird zunächst das Bild nach oben 
oder unten gescrollt. Dies erledigen Routinen im Betriebssystem des C 64. Sie 
werden unter den Namen <usrc> für das Scrollen nach oben, bzw. <dscr> für 
Scrollen nach unten aufgerufen. Damit die Routinen korrekt scrollen, müssen alle 
Zeilen des Bildschirms zunächst als Einfachzeilen (d.h. Zeilen mit weniger als 
40 Zeichen) gekennzeichnet werden. Dies erledigt die Routine <einfachzei> im 
Abschnitt ‚Systemroutinen‘ Um die Routine <uscr> benutzen zu können, muß 
außerdem eine Rücksprungadresse (hier ‚uscrrt‘) und der Bereich $AC-$AF, 
‚scr-feld‘ genannt, auf den Stack gerettet werden. Die Routine <dscer > kann hin- 
gegen nach <einfachzei> aufgerufen werden. Dann wird am oberen bzw. unteren 
Rand die neue Zeile angezeigt. Das Programm merkt sich dabei die errechnete 
Adresse der Zeile in ‚adrud‘; so daß bei weiterem Scrollen in der Richtung die 
Adresse nicht jedesmal neu berechnet werden muß, sondern nur die Nachfolge- 
zeile gesucht wird. 


Die Abfrage der Funktionstasten erfolgt im Abschnitt ‚Funktionstasten‘ analog. 
Hier werden nur neue Zeilen berechnet und gegebenenfalls wieder <bild> auf- 
gerufen. 


Als letztes sind die Routinen zum Suchen und Ersetzen von Texten zu bespre- 
chen. Diese finden Sie im entsprechend gekennzeichneten Abschnitt. Es handelt 
sich dabei im Grunde nur um die Routine <replace> zum Ersetzen von Texten, 
wobei ihre Funktion bei Bedarf auf Suchen eingeschränkt wird. Dies geschieht 
bei einem Aufruf der Routine bei Label <find>. Als erstes versorgt sich die 
Routine mit Such- und Ersatzwort. Die Eingabe der Worte erfolgt in der Routine 
<argin>. Jede Zeile, in der gesucht werden soll, wird zunächst in den Puffer 
‚edbuffer‘ übertragen. In dem Puffer wird dann das Suchwort gesucht und bei 
Bedarf durch das neue Wort ersetzt. Dabei darf die Gesamtlänge der Zeile die 
zulässigen 80 Zeichen nicht überschreiten. In diesem Fall wird nicht ersetzt. 
Kommt in dem Suchwort ein ‚?‘ vor, wird diese Stelle einfach nicht verglichen. 
Ist eine Zeile bis zum Ende durchsucht, wird sie, falls Ersetzen stattgefunden hat, 
mit Hilfe von <updaten> neu in den Text eingefügt. Auf jeden Fall wird in 
der nächsten Zeile weitergesucht. 
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Textspeicher Puffer 
Zeile 1 
Zeile 2 > Zeile 2 
Zeile 3 
Suchen & 
Ersetzen 





ggf. <updaten> 
Zeilen 




















4/5.4.4.2 
Textfile-Aufbau 


Um Änderungen am Assembler vornehmen zu können, muß man neben den 
wichtigsten Routinen auch die Daten kennen, mit denen sie arbeiten. Bei einem 
Assembler sind dies der Quelltext und die Verwaltung der Symbole. Wir wollen 
uns zunächst den Quelltext näher ansehen. 


Der Text ist wesentlich einfacher als der Basix-Quelltext aufgebaut. Jede Zeile 
beginnt direkt mit dem Text der Zeile, der im Commodore-ASCII abgelegt wird. 
Das Ende der Zeile wird durch ein Nullbyte gekennzeichnet. Ist der Text beendet, 
folgen zwei weitere Nullbyte. Die Quellzeilen eines Assemblerprogramms werden 
dabei i.a. komprimiert (falls die Editoroption Pack eingeschaltet ist). Die Routine 
<pack> im Abschnitt ‚Text bearbeiten‘ entfernt dabei alle überflüssigen Leer- 
zeichen. Im Gegensatz dazu fügt <unpack> die Leerzeichen wieder ein. Auf 
diese Weise lassen sich recht lange Quelltexte im Speicher unterbringen. Die 
Routinen <pack> und <unpack> arbeiten natürlich ebenfalls nur auf dem Puffer. 


Beispiel: 
Quelltext: loop: lda #1; Dies ist ein Test 
txa 
end: rts 
Speicher: loop:1da#1; Dies ist ein Test@txa@end:rtts@@@ 


Wobei das Zeichen ‚@‘ hier für ein Nullbyte steht. 
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Auf Diskette steht der Text wie im Speicher. Jedoch wird er hier um zwei Byte 
ergänzt. In diesen Bytes wird die Dateilänge festgehalten. Dies erledigt die Routine 
<save> im Abschnitt ‚Save-Routine‘. Beim Laden (Routine <load> im Abschnitt 
‚Load-Routine‘) werden diese beiden Byte zuerst gelesen. So kann bereits vor dem 
Laden des Textes geprüft werden, ob dieser in den bereitgestellten Speicherplatz 
paßt. 


Der Quelltext kann im gesamten Speicherplatz des C 64 liegen, d.h. auch im Bereich 
des Betriebssystems, Basic-Interpreters und der I/O-Bausteine. Um dies zu errei- 
chen, wird während eines Zugriffes auf den Speicher der gesamte Speicher auf 
RAM umgeschaltet. Dies bringt jedoch Probleme mit sich, denn liegt das Pro- 
gramm als Modulversion vor, so wird auch das Modul abgeschaltet. Das Programm 
würde daher bei einem Speicherzugriff sofort abstürzen. Um dies zu umgehen, wer- 
den vom Programm Hilfsroutinen (siehe Programmabschnitt ‚RAM-Routinen‘) im 
RAM ab Abdresse ‚routinen‘ abgelegt. Dies sind die Routinen <ramcopy>, 
<holzg>, <putzg> etc., deren Adressen im Anschluß berechnet werden (siehe 
Listing). In diesen Routinen wird auf RAM umgeschaltet, der Speicherzugriff erle- 
digt, wieder auf ROM geschaltet, und schließlich in das Programm zurückgesprun- 
gen. Zu diesen RAM-Routinen gehört jeweils ein kurzes Programm, das die Routine 
in das RAM überträgt (z.B. <putramro>, <putcopy> etc.). 


415.4.4.3 


Verwaltung des Symbolspeichers 





Als nächstes betrachten wir den Aufbau des Symbolspeichers. Neben dem Symbol- 
namen soll der Wert und der Typ des Symbols in den Speicherbereich abgelegt wer- 
den. Für einen Eintrag in die Symboltabelle wurde daher folgender Aufbau gewählt: 


| <Symbolname> <Symboltyp> <Symbolwert> 


mit: <Symbolname> ist die Bytefolge des Symbolnamens 
<Symboltyp> ist ein Byte mit einem Wert von Null bis drei, wobei fol- 
gende Typenzuordnung gilt: 
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Bytewert Typ 





[e} program, unused 
fix, unused 


1 
2 program 
3 fix 





<Symbolwert> ist der Wert des Symbols, in zwei Byte gemäß der 6510 Reihen- 
folge, abgespeichert. 
Ist also z.B. das Symbol ‚label‘ mit dem „eq:Befehl als $FFD2 definiert, und auch 
im Programm benutzt worden, so wird es mit folgender Bytefolge in die Tabelle ein- 
getragen: 





$4C $41 $42 $45 $4C 803 $D2 $FF 
Symbolname Typ Symbolwert 





Das Ende der Symboltabelle wird mit einem Nullbyte gekennzeichnet. 


Für das Eintragen von Symbolen ist die Routine <insl!bl> im Abschnitt ‚Label Ein- 
tragen‘ zuständig. Sie trägt ein Symbol, welches unter der Adresse ‚buffer2‘ stehen 
muß, in die Symboltabelle ein. Als Wert wird dem Symbol der aktuelle Programm- 
zähler PC zugewiesen. Gesucht werden die Symbole mit der Routine <sealbl> im 
Abschnitt ‚Labelwert suchen‘ Diese Routine sucht ein Symbol, welches unter der 
Adresse ‚buffer2‘ steht, und liefert den Symbolwert in ‚labelwert‘ zurück. Aus Ge- 
schwindigkeitsgründen wird die eigentliche Suchroutine wieder in den RAM- 
Bereich ausgelagert (siehe auch Kapitel 4/5.4.4.2 Textfile-Aufbau). Als Beispiel wird 
angenommen, daß folgendes Programm assembliert wurde: 


.ba $c000 


‚os 
label 2: .eq $1234 
label 3:  .eq $ffd2 


label!: 














jsr label3 


label4: dex 
bne labelt 
ris 





Dann kann mit dem ‘E-Befehl im Hauptmenü folgende Symboltabelle ausgegeben 
werden: : 


label1 p c000 label2 u 1234 
label3 f ffd2 label4 u c007 
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Die Ausgabe des Symbolspeichers erledigt dabei die Routine <listlbl> im Ab- 
schnitt ‚Label-File drucken‘ 


Diese Symboltabelle steht im Speicher normalerweise ab $E000 und kann mit dem 
eingebauten Monitor betrachtet werden: 





:e000 4c 41 42 45 4c 31 02 00 labell.. 

:8008 cOl4c 41 42 45 4c 32 01 .label2. 

:e010 34 12 14c 41 42 45 4c 33 4.label3 

:e018 03 d2 ff I4c 41 42 45 4c .R.label 

:e020 34 00 07 coloolff f MM A..... 
t 


Tabellenende-Byte 








Zur Verdeutlichung der vier Einträge ist hier zwischen den Einträgen ein senkrechter 
Balken eingefügt. 


4/5.4.4.4 


Übersetzen von Programmzeilen 








Im Abschnitt ‚Assemblieren‘ beginnt nun der eigentliche Assembler. Er wird über 
die Routine <assemble> für einen vollständigen Assemblerlauf, oder über 
<pass2> gestartet, falls nur der zweite Paß gewünscht wird. Beim Assemblieren 
werden zunächst mit Hilfe der Routine <passpara> die benötigten Parameter ein- 
gelesen, also Dateinamen, Protokoll drucken etc. Die Routine <passbegin> öffnet 
dann die benötigen Dateien, und setzt Speicherstellen wie Programmzähler u.ä. auf 
ihre Anfangswerte. Für jeden Paß wird dann einmal die Routine <pass> im Ab- 
schnitt ‚Einen Paß ausführen‘ aufgerufen. Nach der Ausgabe von Assemblierzeit, 
Fehleranzahl und Endadresse ist die Aufgabe von <assemble> dann erledigt. 


Für die Assemblierung des Textes sorgt die Routine <pass>. In ihr wird der Text 
zeilenweise aus dem Textspeicher oder von Diskette in die Puffer ‚edbuffer‘ und 
‚buffer‘ eingelesen. Die eingelesene Zeile wird nun von der Routine <syntax> im 
Abschnitt ‚Syntaxanalyse‘ aufgeteilt. Ein evtl. vorhandenes Symbol wird im Puffer 
‚buffer2‘ abgespeichert und die Adressierungsart im Puffer ‚adrmotxt‘“ Der Rest der 
Zeile bleibt im Puffer ‚buffer‘. Der Text in ‚edbuffer‘ wird nicht verändert. Er wird 
zur Ausgabe bei Protokollausgabe benutzt. Die folgende Graphik soll diese Auftei- 
lung verdeutlichen: 
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1. Einlesen einer Textzeile 


Diskette 





oder ) 


erpee: edbuffer loop:1da($12+5),y; Test 
buffer loop:ida ($12+5),y; Test 


2. Aufteilung durch <syntax> 














edbuffer: loop:1da($12+5),y; Test 
buffer: 1da$12+5 

buffer2: loop 

adrmotkxt: 





Im ersten Paß wird das Symbol in die Symboltabelle eingetragen, im zweiten Paß 
hingegen ignoriert. Als nächstes müssen nun Befehl, Adressierungsart und Operand 
ausgewertet werden. Der Wert des Operanden wird eigentlich erst im zweiten Paß 
benötigt, da der Assembler aber die Zero-Page Adressierung automatisch erkennen 
soll, muß der Operand bereits im ersten Paß ausgewertet werden. 


Diese Auswertung übernimmt die Routine <ausdruck > im Abschnitt ‚Operand be- 
rechnen‘ Sie wertet arithmetische Ausdrücke mit den Grundrechenarten ‚+‘, ‚-‘, ‚*‘ 
und ‚/’, die ab ‚buffer +3° stehen von links nach rechts aus. Ist der Ausdruck noch 
undefiniert, wird in der Speicherstelle ‚labeltyp‘ Bit 7 gesetzt. Andernfalls steht der 
Wert des Ausdrucks in ‚zahl!‘ 


Die Adressierungsart wird durch die Routine <getadrmode> im Abschnitt ‚Adres- 
sierungsart‘ aus dem Text unter ‚adrmotxt‘, und dem bereits berechneten Operanden 
gewonnen. Sie legt unter ‚adrmode‘ die Adressierungsart wie folgt codiert ab: 


Adressierungsart 


implizit oder Akkumulator 
Unmittelbar 
Relativ 
Indirekt 
(Indirekt,X) 
(Indirekt),Y 
Absolut 
Zero-Page 
Absolut,X 
Zero-Page,X 
Absolut,Y 
Zero-Page\Y 





f 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
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Die Adressierungsart Relativ (Nr. 3) wird nicht erkannt, sondern als Absolut (Nr. 
7) zurückgegeben. 


Als nächstes wird der Befehlscode ermittelt. Die Routine <getcode> im Abschnitt 
‚Code ermitteln‘ sucht in der Tabelle der 6510-Befehle den Befehlscode. Wurde Zero- 
Page Adressierung erkannt, aber diese ist bei dem angegebenen Befehl nicht mög- 
lich, wird auf die längere Adressierung umgeschaltet, was durch einfaches Erniedri- 
gen der Adressierungsarten 8, 10 und 12 um eins erreicht wird. Die Adressierungsart 
Relativ wird in <getcode> ebenfalls korrigiert. Der ermittelte Befehlscode wird in 
‚order‘ gespeichert. 


Damit ist die Zeile komplett übersetzt. Nun muß der erzeugte Code noch in den 
Speicher und/oder auf Diskette gebracht, und ggf. ein Protokoll gedruckt werden. 
Diese Arbeit erledigt die Routine <codeout> im Abschnitt ‚Code ausgeben‘ 


Bei einem Fehler bei der Übersetzung wird die Routine <asserror> aufgerufen. Sie 
gibt den Fehler auf, erhöht den Fehlerzähler um eins, und wartet ggf. auf ein Kom- 
mando von der Tastatur (bei .wa). 


Der bisher gezeigte Übersetzungsvorgang gilt natürlich nur für die offiziellen 6510 
Mnemonics. Die von dem Assembler ebenfalls beherrschten Pseudo-Befehle müssen 
anders behandelt werden. Bei einem Pseudo-Befehl wird zunächst nur ein evtl. vor- 
handenes Symbol in die Symboltabelle eingetragen. Dann wird die weitere Arbeit 
der Routine <exepse> im Abschnitt ‚Pseudo-Befehle‘ überlassen. Diese sucht zu- 
nächst den Befehl in der Tabelle ab ‚pscol“ Dann wird die Adresse der zugehörigen 
Routine aus einer Tabelle geholt. Da manche Pseudo-Befehle im ersten Paß anders 
abgehandelt werden, als im zweiten Paß, wird die Adresse der zum Befehl gehören- 
den Routine im ersten Paß aus der Tabelle ab ‚jupal‘, und im zweiten Paß aus der 
Tabelle ab ‚jupa2‘ geholt. Die Ausführung dieser Routinen schließt dann die Über- 
setzung ab. 


4/5.4.4.5 


Verändern des Assemblers 





Mit den angegebenen Hinweisen auf die Arbeitsweise des Assemblers sollte es Ihnen 
möglich sein, den Assembler selbst zu verändern, indem Sie zum Beispiel weitere 
Pseudo-Befehle einbauen oder erweiterte Editiermöglichkeiten. Im einfachsten Fall 
kann aber auch nur eine Veränderung der Standardparameter nötig sein. 
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Wie der Assembler eingegeben werden kann, wurde bereits im Kapitel 4/5.4.3.1 ge- 
zeigt. Wenn Sie aber bereits im Besitz des Assemblers sind (Diskette vom Verlag), 
und diesen verändern wollen, sollten Sie wie folgt vorgehen: 


1. Kopieren der Quelltexte und ASS.RAM auf eine andere Diskette, damit Sie 
weiterhin über das Original verfügen. Dies ist aber insbesondere auch bei der 
vom Verlag gelieferten Diskette nötig, da diese schreibgeschützt ist. 


2. Starten von ASS.RAM 


3. Mit dem ‚O‘-Befehl den Symbolspeicher auf 9000-FFFF setzen, da der Standard- 
symbolspeicher für die Anzahl der verwendeten Symbole nicht ausreicht. 


4. mit ‚A‘ assemblieren starten, als Dateinamen ASS.SRC angeben. 


5. Die Abfragen beantworten. Der Assembler erstellt daraufhin eine neue Version 
mit dem Namen ASS.EXE auf der Diskette. 


6. gef. der Diskette einen Validate-Befehl senden, um die bei der Floppy 1541 immer 
wieder vorkommenden falschen Blockbelegungen zu korrigieren. 


7. ggf. den Symbolspeicher wieder auf normale Werte setzen. 
8. ggf. ASS.RAM löschen und ASS.EXE in ASS.RAM umbenennen. 
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4/5.5 
Disassembler 





Als erste Erweiterung unseres Assemblersystems wollen wir einen Disassembler vor- 
stellen, der sich leicht in das System einbinden läßt. 








| Das Programmm befindet sich auf der Grundwerksdiskette 





4/5.5.1 


Aufgabe des Disassemblers 





Der Disassembler hat die Aufgabe ein fertiges Objekt-Programm wieder in einen 
lesbaren Text zu verwandeln. Der hier vorgestellte Disassembler wird vollständig in 
das System eingebunden, und kann über den Menüpunkt ‚Monitor‘ vom Haupt- 
menü aus gestartet werden. Er erwartet dann die Eingabe einer Startadresse als vier- 
stellige Hexadezimalzahl. Daraufhin beginnt er den Speicherinhalt ab der einge- 
gebenen Adresse als Klartext auszugeben. Er kann dann mit der <SHIFT >-Iaste 
angehalten werden. Die Ausgabe wird mit der <C= >-Iaste fortgesetzt. Mit der 
<STOP >-Iaste wird der Disassembler verlassen. 


Natürlich ist die Ausgabe des Disassemblers nicht mit dem Quelltext eines As- 
semblerprogramms zu vergleichen. Zum einen liefert der Disassembler die physikali- 
schen Adressen von Sprungzielen und Daten, und keine symbolischen Adressen, 
und zum anderen kann der Disassembler nicht zwischen Programm und Daten un- 
terscheiden. Läuft er also beim disassemblieren in einen Dätenbereich hinein (z.B. 
eine Zeichenkette), so versucht er diese Daten zu übersetzen. Gelingt ihm das, zeigt 
er Befehle an, die allerdings von dem Programm niemals ausgeführt würden, an- 
dernfalls gibt er drei Fragezeichen aus. 
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Teil 4: Software-Erstellung 


Als Beispiel soll das folgende Programm dienen: 


‚os 

‚wa 

.ba $c000 
start: Ida #’3 

sta help 

dex 


bne start 
rts 














.by “dies ist text” 
help: .by 0 











Wenn man dieses Programm übersetzt, steht es ab der Adresse $C000 im Speicher. 
Nun kann man mit ‚N’ vom Hauptmenü aus den Disassembler starten. Als nächstes 
wird durch Eingabe von „C000” die Startadresse festgelegt. Der Disassembler liefert 


daraufhin die folgende Ausgabe: 











_ 





C000 A9 33 LDA #833 Disassemblierter Programmbereich 
coo2 8D 16 CO STA $C016 
0005 CA DEX 
Co006 DO F8 BNE $C000 
C008 60 RTS N 
C009 44 2??? Übersetzung des Datenbereichs 
COOA 49 45 EOR #845 führt zu falschen Befehlen 
C00C 53 22? und Fehlermeldungen (‘777’) 
CooD 20 49 53 JSR 35349 
Co10 54 27? 
C011 20 54 45 JSR $4554 
C014 58 CLI 
0015 54 27? 
0016 00 BRK 
4/5.5.2 


Arbeitsweise des Disassemblers 





Der Disassembler arbeitet der Einfachheit halber mit der Befehlstabelle des Assem- 
blers, in der ja alle Befehle mit ihren Adressierungsarten in Klartext und verschlüs- 


selt eingetragen sind. 
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Zunächst wird jedoch die Startadresse des zu assemblierenden Speicherbereichs 
übernommen. Dies erledigt die Routine <hexbereich>. Anschließend beginnt ab 
‚disloop‘ die Hauptschleife des Programms, welche als erstes die Adresse des gerade 
assemblierten Bereichs ausgibt. Der unter dieser Adresse stehende Code wird in der 
Speicherstelle ‚buf‘ abgelegt, und als zweistellige Hexadezimalzahi durch die Rou- 
tine <ausgeben> ausgegeben. Anschließend wird der Code in der Befehlstabelle 
gesucht. Dies geschieht ab ‚seaopcodel“ War die Suche erfolgreich, findet man ab 
‚buf’+1 den Befehlsnamen, und in ‚buf’+4 die Nummer der Adressierungsart. An- 
dernfalls werden drei Fragezeichen ausgegeben, und die Disassemblierung bei der 
nächsten Adresse fortgesetzt. 


Bei erfolgreicher Suche kann nun die Anzahl der zum Befehl gehörenden Byte aus 
der Tabelle ‚arganz’ entnommen werden. 


Gehören noch einige Byte zum Befehl, werden diese zunächst ausgegeben, und ab 
„buf‘+6 gespeichert. Bei einem Sprungbefehl wird statt der Sprungweite die Ziel- 
adresse berechnet (ab ‚goname‘) und in ‚buf‘+6 sowie ‚buf‘+7 gespeichert. 


Nun kann der Befehlsname ausgegeben werden. Um auch die Adressierungsart kor- 
rekt auszugeben, sind ab ‚adrtxt‘ die Texte der einzelnen Adressierungsarten abge- 
legt, jedoch ohne irgendwelche Werte. Für die Adressierungsart Zero-Page,Y lautet 
der Text also ‚($),Y“ Dieser Text wird nun ausgegeben. Dabei wird überprüft, ob das 
Dollarzeichen ausgegeben wurde. Ist dies der Fall, muß an dieser Stelle der Ope- 
rand, welcher ab ‚buf‘+6 abgespeichert wurde, ausgegeben werden. Ab ‚patend‘ 
wird nun die nächste zu disassemblierende Adresse berechnet. Die Routine 
<moabort?> testet abschließend, ob der Vorgang gestoppt oder abgebrochen wer- 
den soll. Ist dies nicht der Fall, kann der Vorgang bei der Hauptschleife fortgesetzt 
werden. 
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4/5.5.3 


Einbinden in das Assembler-System 





Der Disassembler wird auf einfache Weise in das Assemblersystem eingebunden. Im 
Quelltext ‚PSEUDO* existieren drei Sprungbefehle, die für eine Monitorerweiterung 
vorgesehen sind. Einen dieser Sprungbefehle werden wir nutzen, um über den 
Monitor-Befehl im Hauptmenü in den Disassembler zu springen. Dies ist jedoch 
nur eine Übergangslösung. Wenn wir später die Monitorerweiterung veröffent- 
lichen, wird der Disassemblerbefehl in den Monitor mit aufgenommen. 


Die Erweiterung geschieht bei dem Basic-Lader durch einfaches Hinzufügen von 
Programmzeilen. Dieses Verfahren ist im Kapitel 4/5.7 beschrieben. Wer mit dem 
Quelltext des Disassemblers arbeitet, muß zunächst den Quelltext des Disassemblers 
eingeben, und unter den Dateinamen ‚DIS‘ auf Diskette speichern. Anschließend 
wird die Quelltextdatei ‚PSEUDO* geladen, um die Sprungvektoren zu ändern. Mit 
der Funktionstaste ‚F7‘ gelangen Sie an das Textende. Dort finden Sie hinter dem 
Symbol ‚monitor‘ die drei Sprungbefehle. Diese müssen auf die Disassemblererwei- 
terung eingestellt werden. Außerdem muß die Datei mit dem Ladebefehl für die 
Quelltextdatei , DIS‘ angeschlossen werden. Die sehen? hinter ‚monitor‘ muß also 
wie folgt aussehen: 


monitor: jmp disas 
jmp main 


jmp main 
„fi “dis” 





Wer die Diskette des Verlags bestellt hat, braucht natürlich nichts zu ändern. Hier 
sind die Disassembler- und die Monitorerweiterung bereits eingebunden. 
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4/5.6 
Monitor 





Als zweite Erweiterung wollen wir einen kleinen Monitor vorstellen, der es ermög- 
lichen soll, weitergehende Operationen im Speicher des C 64 vorzunehmen. Auch 
er soll wieder vollständig in das bestehende System eingebunden werden, so daß ein 
Aufruf vom Hauptmenü aus möglich ist. Den bisher unter dem Menüpunkt „‚Moni- 
tor‘‘ eingebundenen Disassembler werden wir als Befehl in den Monitor mit auf- 
nehmen. 


Damit wird unser Assemblersystem zu einem kompletten kleinen Entwicklungs- 
system für 6502-Maschinenprogramme auf dem C 64. Wer die Möglichkeit hat, 
sollte das Programm als Modulversion betreiben. Nur so kommt die volle Leistungs- 
fähigkeit, der Zugriff auf alle Speicherstellen in RAM, ROM und V/O zum Tragen. 
Insbesondere die Möglichkeit, den Assembler auf einer mit einer Batterie gepuffer- 
ten RAM-Modulplatine zu betreiben, macht die Arbeit mit dem Assembler sehr 
bequem. 


Beachten Sie bei der Modulversion bitte, daß ein 8-KByte-Modul nicht ausreicht, 
um den Assembler aufzunehmen. Im 16-KByte-Modul ist hingegen noch genügend 
Platz für eigene Erweiterungen. Das Erstellen der Modulversion ist übrigens nur mit 
Hilfe des Quelltextes möglich. Der Basic-Lader erzeugt immer die RAM-Version. 











Das Programmm befindet sich auf der Grundwerksdiskette 





4/5.6.1 


Aufgabe des Monitors 





Ein Monitor dient zur Fehlersuche in Programmen. Er stellt für diese Aufgabe eine 
Reihe von Befehlen zur Verfügung, die der Speichermanipulation dienen. Mit Hilfe 
seiner Befehle ist es möglich, jedes Byte im Speicher des C 64 zu verändern, Pro- 
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gramme aufzurufen und sich die Registerinhalte der CPU anzusehen. Unser Moni- 
tor erlaubt darüber hinaus, auch die Informationen auf der Diskette zu verändern. 


4/5.6.2 


Grundroutinen zur Speicherveränderung 





Unser Monitor enthält mehrere Routinen zur Speicherveränderung. Die einfachste 
dieser Routinen ist die Blockverschieberoutine, welche mit dem ‚„V’”’-Befehl auf- 
gerufen wird. Diese Routine ist praktisch schon im Editor enthalten, um die Text- 
teile beim Einfügen und Löschen von Zeilen zu verschieben. Wir brauchen der Edi- 
torroutine <move> also nur noch den zu verschiebenden Bereich übergeben. Dies 
wird in der Routine <verschieben> des Monitors durchgeführt. Sie liest zunächst 
die drei Eingabewerte ein und ruft dann <move> auf. 


Die anderen Routinen zur Speicherveränderung dienen dem Ändern einzelner Bytes 
im Speicher. Am häufigsten wird von diesen Befehlen der ‚‚M‘‘-Befehl benötigt. Er 
zeigt einen Speicherbereich auf dem Bildschirm an. Ein Beispiel: 


.cfcCBMB 
ASICO(A’ 


„W($+>+ 
.0.,$).( 





Diese Ausgabe wird von der Routine <memor> erzeugt. Sie gibt zunächst am An- 
fang der Zeile einen Doppelpunkt aus, auf den wir später noch zu sprechen kom- 
men. Dann wird die momentan gültige Adresse, welche sich unter der Adresse 
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„zg‘‘ findet, ausgegeben. Nun werden in der Schleife ‚„‚memol’’ acht folgende Byte 
aus dem Speicher geholt, als zweistellige Hexadezimalzahl ausgegeben und ab 
„buf”’ gespeichert. Am Ende der Zeile werden nun noch die acht im ‚‚buf’’ gespei- 
cherten Werte als Zeichen ausgegeben. Dies wird von der Routine < zeichnen > erle- 
digt. Diese Ausgabe wird wiederholt, bis die Stoptaste gedrückt oder die Endadresse 
erreicht wurde. Damit ist die Aufgabe des ‚„M’”’-Befehls praktisch beendet. Um die 
angezeigten Werte auch ändern zu können, steht am Zeilenanfang der Doppel- 
punkt. Wird nämlich ein Wert in einer Zeile geändert und die <RETURN> -Iäste 
gedrückt, so erscheint dies dem Computer als Eingabe einer Zeile. Im Beispiel sei 
dies die letzte der Zeilen: 





Der Doppelpunkt dient daher als Befehl, genau wie das „‚M’’ des anzeigenden Be- 
fehls. Wird der Doppelpunkt vom Computer gelesen, so springt er in die Routine 
<doppelpunkt>. In dieser wird zunächst die Adresse der Bytes eingelesen werden 
und dann die acht folgenden Werte. Diese werden dann ab der angegebenen Adresse 
gespeichert. 


Zwei weitere Routinen, die eine Speicherveränderung ermöglichen, arbeiten nach 
dem gleichen Prinzip. Nur geben sie keine Hexadezimalzahlen aus, sondern die 
Werte als ASCII-Zeichen (,A?’’-Befehl), oder als POKE-Code (,C”’-Befehl). Die 
Ausgaben werden von den Routinen <asciitext> bzw. <codetext> erzeugt. Im 
Beispiel für die Ausgaben dieser Routinen können Sie erkennen, daß dem ‚„A’”’- 
Befehl ein Komma vorangestellt ist, während dem ‚‚C’’-Befehl das Zeichen ‚,’ ” 
vorangestellt wird. 


A-Befehl: 1332. 
‚1352 ..%..OH. 


‚1372..”.&.&..) 
‚1392 %.)...OH. 
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Wird eine der Zeilen verändert, werden die neuen Werte von der Routine <mokom- 
ma> (bzw. <tick>) wieder eingelesen. Dabei werden die Punkte als nicht eindeu- 
tig anzuzeigende Zeichen überlesen. Gespeichert werden daher nur die eindeutigen 
Zeichen. 


4/5.6.3 


Aufruf von Programmen 





Das Aufrufen von Programmen kann auf zwei Arten erfolgen: Für Programme, wel- 
che mit dem RTS-Befehl abgeschlossen wurden, dient der ‚U’’-Befehl. Das Pro- 
gramm wird dann über einen JSR-Befehl aufgerufen. Als zweite Möglichkeit kann 
ein Programm über den ‚G’’-Befehl aufgerufen werden (mit Hilfe eines JMP- 
Befehls). Um in den Monitor zurückkehren zu können, muß das Programm dann 
einen BRK-Befehl enthalten. 


Der „G”’-Befehl wird von der Routine <go> abgearbeitet. Zu ihren Aufgaben ge- 
hört es, den Sprungbefehl „JMP Adresse” in die RAM-Routine zu kopieren. Dann 
werden die Register der CPU mit den Startwerten geladen, welche mit dem „R“- 
Befehl festgelegt werden können (siehe 4/5.6.5 ‚Weitere nützliche Routinen”’) Über 
die RAM-Routinen wird dann die gewünschte Adresse angesprungen. 
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Stößt der Computer bei der Abarbeitung der durch „G’’ aufgerufenen Routine auf 
den BRK-Befehl, so springt er zu der Adresse „‚break’”’ in den Monitor. Hier werden 
dann die aktuellen Registerinhalte der CPU in ‚„buffer3’’ gespeichert und die Regi- 
ster mit Hilfe der Routine <register> ausgegeben. 


Der „U”’-Befehl wird hingegen von der Routine <unterprg> abgewickelt. Er funk- 
tioniert analog zum „G’’-Befehl. Allerdings wird hier ein „JSR Adresse’ in die 
RAM-Routine kopiert und dann die Routine aufgerufen. Nach einem RTS-Befehl 
wird so der Monitor bei der Adresse „‚monirt”’ fortgesetzt. Hier werden wieder die 
Register in „buffer3’’ gerettet und mit Hilfe der Routine <register> ausgegeben. 


4/5.6.4 


Suchen mit dem Monitor 








Ein recht nützlicher Befehl ist der Suchbefehl ‚‚F’’, welcher das Suchen von Bytefol- 
gen im Speicher des C 64 ermöglicht. Dieses Suchen von Bytefolgen wird von der 
Routine <mofind> erledigt, welche sich zunächst die Adressen des Speicherbe- 
reichs holt, in dem gesucht werden soll. Alle weiteren Eingaben werden als zu su- 
chende Bytefolge interpetiert. Diese wird ab „‚mofiarg’” in „buffer” eingelesen. Je- 
de in Hochkomma eingeschlossene Zeichenfolge wird dabei von <ttxtarg> in den 
Buffer übertragen. Alles andere wird als Folge von zweistelligen Hexadezimalzahlen 
aufgefaßt, und als solche eingelesen. 


Das Suchen der Bytefolge geschieht dann ab „‚seastr””, indem die Bytefolge in „buf- 
fer”’ mit der im zu untersuchenden Speicherbereich stehenden Bytefolge byteweise 
verglichen wird. Stimmen sie überein, wird die Anfangsadıesse des Bereichs ausge- 
geben (ab ‚„mofound’’) und weitergesucht. Sonst wird die Anfangsadresse des Be- 
reichs um eins erhöht und weitergesucht bis die Endadresse erreicht ist. So bekom- 
men Sie eine Liste aller Anfangsadressen der gesuchten Bytefolge im angegebenen 
Bereich. 
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4/5.6.5 


Weitere nützliche Routinen 





Als weiteren wichtigen Befehl betrachten wir den ‚‚R’’-Befehl, welcher von der Rou- 
tine <register> repräsentiert wird. Er wurde gelegentlich schon angesprochen. Der 
„R’’-Befehl gibt die Register der CPU in der folgenden Form aus: 





PC AC XR YR SP NV-BDIZC CHL SR PP 


‚oO, 08 00 0C F6 00110000 111 30 37 





Die Bedeutung der Ausgaben wurde bereits im Kapitel 4/5.4.2.10 beschrieben. 


Durch das Voranstellen des Semikolons können diese Werte auch verändert, und 
wieder eingelesen werden. Auf diese Weise lassen sich den Registern Startwerte für 
die mit „„G” oder ‚‚U’ aufgerufenen Routinen übergeben. 


Durch Ändern der Werte für die internen Leitungen Char/Hiram und Lowram wird 
außerdem festgelegt, auf welche Speicherbereiche sich die Routinen des Monitors 
beziehen. Auf einfachste Weise kann man sich so ROM und RAM des C 64 
ansehen. 


Das Einlesen der veränderten Daten erledigt die Routine <regsin>. Sie holt sich 
die angegebenen Daten und speichert sie neu ab. Anschließend werden die Daten 
über die Routine <register> neu angezeigt. 


Der Befehl ‚‚=’” dient dem Vergleichen von Speicherbereichen und startet die Routi- 
ne <ramvergl>. Die beiden Adressen werden eingelesen und in „zahll’” bzw. 
„zahl2”’ gespeichert. In der Vergleichsschleife ab ‚„‚doramver”’ werden dann die Da- 
ten unter den angegebenen Adressen geholt und miteinander verglichen. Bei glei- 
chen Daten werden die Adressen erhöht und die Schleife fortgesetzt. Sonst werden 
die aktuellen Adressen ausgegeben (ab „ungleich’’). 
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Mit dem ‚P’’-Befehl ist es möglich, den Drucker die Arbeit mit dem Monitor proto- 
kollieren zu lassen. Die Routine <priplumi>, welche den „P’’-Befehl abarbeitet, 
erwartet als Eingabe ein ‚‚+’” bzw. „-” für Ein- bzw. Ausschalten des Druckerproto- 
kolls. Zum Einschalten wird ab ‚‚priplu’’ der Druckerkanal eröffnet und die Flagge 
für „Ausgabe auf Drucker” gesetzt. Beim Ausschalten wird der Kanal wieder ge- 
schlossen und die Flagge zurückgesetzt. 


Der ‚‚D’’-Befehl ersetzt die vorläufige Einbindung des Disassemblers in das Assem- 
blersystem. Der Disassembler wird also in Zukunft mit dem ‚‚D’”’-Befehl vom Moni- 
tor aus aufgerufen. 


Mit dem „X’’-Befehl gelangen Sie schließlich wieder über die Routine <exit> in 
das Hauptmenü. 


4/5.6.6 


Diskettenroutinen 





Zum Ein- und Auslesen von Speicherbereichen auf bzw. von Diskette dienen der 
„L’- bzw. ‚S”-Befehl. Mit diesen Befehlen können Bildschirminhalte oder Pro- 
gramme gelesen und gespeichert werden. Auch das Laden von Programmen an eine 
andere als vom Programm vorgegebene Startadresse ist hiermit möglich. 


Der ‚L’-Befehl startet die Routine <monload>. Diese testet zunächst, ob eine 
Adresse folgt. Ist dies der Fall, wird sie eingelesen und als Startadresse benutzt. An- 
dernfalls wird das Programm bei ‚„absload’’ fortgesetzt. Nach dem Einlesen des 
Dateinamens kann dann die Datei eröffnet werden. Aus dieser wird zunächst die 
Startadresse gelesen. Hat der Benutzer beim Aufruf bereits eine Adresse angegeben, 
wird die aus der Datei gelesene Adresse nicht weiter beachtet, sonst ist diese die gül- 
tige Startadresse. Dann wird in der Schleife ab „lorel’’ die"Datei eingelesen. Zum 
Schluß muß die Datei nur noch geschlossen werden. Als zusätzliche Information 
für den Benutzer wird noch die Start- und Endadresse des gelesenen Bereichs ausge- 
geben. 
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Die Routine <monsave> repräsentiert den „S’’-Befehl. Sie ließt zunächst den Da- 
teinamen ein. Anschließend verlangt sie die Start- und Endadresse des zu speichern- 
den Bereichs. Nach dem Eröffnen der Datei wird die Startadresse dann in die Datei 
übertragen. Ab ‚„mosa’” wird nun noch der Speicherbereich in die Datei ge- 
schrieben. 


Neben den gewöhnlichen Befehlen bietet unser Monitor noch einige Befehle zum 
Manipulieren von Daten auf der Diskette. Wie Sie sicherlich wissen, sind die Daten 
auf der Diskette in Blöcke zu je 256 Byte eingeteilt. Diese Blöcke verteilen sich auf 
35 Spuren (Tracks), die je eine unterschiedliche Anzahl von Blöcken (dann Sektoren 
genannt) aufnehmen. Die Diskettenroutinen des Monitors basieren auf der Idee, je- 
weils einen Block in einen Buffer ab $CF00 einzulesen, zu verändern und wieder 
auf Diskette schreiben zu können. Als kleine Hilfe zeigt die folgende Tabelle kurz 
die Organisation der Floppy 1541 an: 


Track Sektoren 
dezimal hex dezimal hex. 





Der Track 18 ist für das Inhaltsverzeichnis der Diskette reserviert. In Track 18 Sektor 
0 werden die belegten Blöcke markiert, und ab Sektor 1 folgen die Namen und die 
Startblöcke der Dateien auf der Diskette. 


Zum Lesen eines der Blöcke wird der „B’”’-Befehl benutzt. Dieser Befehl wird von 
der Routine <readbuffer> ausgeführt. Sie eröffnet zunächst den Befehlskanal der 
Diskettenstation über der Routine <kanal 15>. Dann wird mit Hilfe der Routine 
<sector> der gewünschte Track und Sektor eingelesen. Stellt <sector> fest, daß 
keine Eingabe gemacht wurde, wird von der Routine <logicsec> der logisch näch- 
ste Sektor ermittelt. Über den Blocklesebefehl der Diskette wird dann der Block in 
den Puffer eingelesen. 
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Analog wird beim Schreiben des Blocks auf Diskette vorgegangen. Der „W’’-Befehl 
startet die Routine < writebuffer >. Hier wird zunächst getestet, ob eine weitere Ein- 
gabe folgt. Ist dies nicht der Fall, wird die Routine bei „sameblock”’ fortgesetzt. 
Sonst wird der gewünschte Track und Sektor von der Routine <sector> eingelesen. 
Dann wird über den Blockschreibbefehl der Block auf Diskette zurückgeschrieben. 


Um die im Puffer stehenden Daten manipulieren zu können, könnte man über den 
„M’’-Befehl den Buffer ansprechen. Dies geht jedoch kürzer mit dem „E’’-Befehl, 
der eine Abkürzung des „M’’-Befehls darstellt, und daher auch über die gleichen 
Routinen abgearbeitet wird. Er verlangt für die Adressen nur noch das Lowbyte der 
vollständigen Adresse und gibt diese bei der Ausgabe auch nur aus. Ein Beispiel für 
die Ausgabe des „‚E’’-Befehls sehen Sie im folgenden Bild: 








Die Daten können wieder verändert werden, und werden dann an die richtige Adres- 
se im Puffer geschrieben. Der Monitor erkennt die verkürzte Eingabe an dem Punkt 
am Anfang der Zeile. 


Eventuell bei der Arbeit mit der Diskettenstation auftretende Fehlermeldungen kön- 
nen Sie sich mit dem „‚@’’-Befehl ansehen. Die Routine <flomeld> gibt daraufhin 
den Fehlertext aus. Sie benutzt dazu die im Assemblersystem bereits vorhandene 
Routine <diskerr>. 


Als kleine Hilfe existiert noch der „I’’-Befehl, welcher über die Routine <info> 
den gerade eingestellten Track und Sektor als zwei zweistellige Haxadezimalzahlen 
ausgibt. 
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4/5.6.7 


Einbinden in das Assemblersystem 





Das Einbinden in das Assemblersystem geschieht wieder auf die gleiche Weise, wie 
bei der Disassemblererweiterung. Die drei Sprungbefehle am Ende der Quelldatei 
„PSEUDO” werden auf die Monitorerweiterung eingestellt. Sie müssen daher fol- 
gendermaßen abgeändert werden: 


monitor: jmp monstart 
jmp monirt 


jmp break 
fi mon” 





Der Pseudobefehl ‚,.fi „mon‘“’ sorgt für das Anhängen des Monitorquelltextes. 
Der Quelltext des Disassemblers wird anschließend vom Quelltext „MON?’ aus ein- 
geladen, so daß der Monitor praktisch zwischen dem ursprünglichen Assemblersy- 
stem und dem Disassembler eingeschoben wird. 
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4/6 
Utilities 





Trotz mannigfacher Problemlösungen aus den unterschiedlichsten Bereichen gibt 
es immer wieder Programmteile, die in den verschiedensten Programmen ein- 
gesetzt werden können. Im allgemeinen hat sich für solche Programmsequenzen 
der englische Begriff Utilities eingebürgert. Innerhalb von Kapitel 4/6 möchten 
wir für Sie nach und nach eine Unterprogrammsammlung aufbauen, mit der Sie 
dann Teilbereiche Ihrer Probleme lösen können. 


Zunächst wollen wir dabei auf allgemeine Algorithmen eingehen, wie z.B. Sortier- 
verfahren, das Selektieren von Daten, Menüstrukturen oder die Verarbeitung von 
Kalenderdaten. Dies sind sicherlich die gebräuchlichsten Einsatzbereiche, die 
zudem noch rechnerunabhängig sind. Als nächstes folgen zwei Kapitel, wo wir 
Utilities aus den verschiedensten Bereichen aufgrund der Programmierweise 
zusammengefaßt haben: Basic-Utilities und Assembler-Utilities. 


Da der C 64 im Verhältnis zu seinen Eigenschaften über ein sehr mageres Basic 
verfügt, wollen wir auch Basic-Erweiterungen im Rahmen der Utilities vorstellen. 
Zunächst in Kapitel 4/6.4 für den C 64, in Kapitel 4/6.5 aber auch für den C 128, 
da trotz des umfangreicheren Basic des C 128 sicherlich noch einiges wünschens- 
wert ist. Im Rahmen dieser beiden Kapitel werden wir auch die Vorgehensweise 
zur Erweiterung der Basic-Varianten besprechen. 


‚Utilities finden Sie jedoch nicht nur in Kapitel 4/6, sondern auch innerhalb der 
Musterprogramme in Teil 5, sowie hauptsächlich im Rest von Teil 4, bei den 
Beispielen zu den verschiedenen Kursen. 
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4/6.1 
Basic-Utilities 





Nachdem wir Kapitel 4/6.2 Algorithmen von allgemeiner Bedeutung gewidmet 
haben, möchten wir im vorliegenden Teil speziell auf Basic-Utilities eingehen. 
Die Basic-Utilities wollen wir auch wieder nach Themengebieten unterteilen, 
zunächst nach den Gebieten Grafik, Sound und mathematische Utilities, weitere 
werden folgen. 


4/6.1.1 
Grafik-Utilities 





Durch die Grafikfähigkeiten, die die Home-Computer heutzutage allgemein ha- 
ben, ist es auch dem Heimanwender erlaubt, künstlerische oder statistische 
Grafiken zu erzeugen. Dabei tauchen des öfteren die gleichen Probleme auf. 
Mit den folgenden Routinen wollen wir Ihnen die Möglichkeit in die Hand geben, 
Ihre Probleme effizient zu lösen. 


Da Sprites und Shapes nur besondere Darstellungsformen von Grafiken sind, 
haben wir diese ebenfalls im vorliegenden Kapitel zusammengefaßt. 
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4/6.1.1.1 


- Sprites spiegeln 





Manchmal ist es notwendig, Sprites zu entwerfen, die bis auf eine spiegelbild- 
liche Darstellung vollkommen identisch sind. In diesem Buch verwenden wir zum 
Beispiel gespiegelte Sprites in unserem Spritekurs für den C 128 in Kapitel 4/4.3.2. 
Deshalb wollen wir im Folgenden zwei kurze Programme vorstellen, die ein Sprite 
einerseits an der X-Achse, und andererseits an der Y-Achse spiegeln, was sicher- 
lich nicht nur für unsere Anwendung interessant ist. 


Die Beispiele sind für den C 128 gedacht, da hier die Spritedaten an eine Zeichen- 
reihe übergeben werden können. Prinzipiell ist eine Spiegelung nach dem gleichen 
Schema auch im 64er-Modus möglich. Die Beispiele sind ebenfalls dem Sprite- 
kurs des C 128 entnommen. 


Zunächst wollen wir uns die Spiegelung an der X-Achse vornehmen, da dies die 
einfachere Vorgehensweise ist. In diesem Fall muß die erste Zeile zur letzten 
Zeile werden und die letzte Zeile zur ersten, wenn man sich ein Sprite in Zeilen 
aufgelöst darstellt. Dies kann man sehr einfach mit der MID$O-Anweisung voll- 
ziehen, wenn man - die letzten vier Zeichen (= Byte) einmal außer Acht 
lassend - jeweils von hinten drei Zeichen abschneidet und umgekehrt aneinander- 
setzt. Dies wird von folgendem kleinen Programm erledigt: 




















Listing 4/6.1.1.1-1 
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Zuerst wird Sprite #1 mittels der Variablen O$ (für Original) in eine Zeichenreihe 
verwandelt und anschließend die Hilfsvariable K$ (für Kopie) als leere Zeichen- 
reihe definiert. Dann werden in der Schleife ab Zeile 1070, beginnend ab dem 
61. Zeichen, jeweils Zeichenreihen mit je drei Zeichen von hinten abgeschnitten 
und an die Variable K$ angefügt. Anschließend müssen zur Definition der Größe 
noch in Zeile 1110 die letzten vier Byte an K$ angefügt werden, womit das 
umgekehrte Sprite mit einer neuen Spritenummer versehen, gespeichert werden 
kann. Wir haben hier die Umkehrung in den beiden Spritenummern 3 und 4 
abgelegt. 


Wie Sie sich nun mit Hilfe des Sprite-Editors (SPRDEF) ansehen können, haben 
Sie nun in den Spritenummern 3 und 4 zwei im Kopfstand fliegende Luft- 
schiffe. 


Als nächstes wollen wir nun an der Y-Achse spiegeln und die Flugzeuge 
‚rückwärts‘ fliegen lassen. 





SAY LCE 


PR) 

















Listing 4/6.1.1.1-2 (1) 
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IF EI AHR 3 4 
FEI AND 5 = 
IF EI AHD = 4 
IF EI AKT =}: = 
FEI AHnD © THEM Au=Al+ 15 
F EI AHN 4 THEN Al=Al+ 32 
FEI HAHD & THEH Allerll+ 54 
FEI FAHO 1 THEH AlsAl+128 


AUEF=SCHREIRLD 





RETURH 





Ei EHT 











Listing 4/6.1.1.1-2 (2) 


Hier liegt der Fall etwas komplizierter, da man nicht das linke mit dem rechten 
Byte vertauschen kann, sondern auch noch die Bits innerhalb der Bytes umge- 
kehrt dargestellt werden müssen. Ebenso muß beim mittleren Byte einer Zeile 
eine Spiegelung innerhalb dieses Bytes erfolgen. 


Besprechen wir zunächst das Unterprogramm zum Spiegeln eines einzelnen Bytes. 
Eingabeparameter ist die Variable EI$, die das zu spiegelnde Zeichen (Bitmuster) 
enthält und zur Umsetzung in die Variable EI als Zahl verwandelt wird. Als 
Ausgabe soll entsprechend eine Zeichenreihevariable AU$ fungieren, die das 
Zeichen (Bitmuster) gespiegelt enthält. 


Zum Spiegeln werden die Zahlen herangezogen, also EI für das originäre Muster 
und AU für das gespiegelte. Die einfachste Möglichkeit besteht darin, jedes 
einzelne Bit im originären Muster abzufragen und das entsprechende Bit im 
gespiegelten Muster zu setzen, was die Zeilen 2070 bis 2140 für jedes einzelne Bit 
erledigen. Hierbei muß man sich veranschaulichen, daß den einzelnen Bits die 
2er-Potenzen von I bis 128 zugeordnet sind. Wenn also in einem originären 
Bitmuster das erste Bit, entsprechend dem dezimalen Wert 128, gesetzt ist, so 
muß im gespiegelten Muster das letzte Bit, entsprechend dem Wert 1, gesetzt 
werden. 


Das Bitmuster für die Ausgabe ergibt sich dann aus der Summe der addierten 
Zahlen. Weil die Umsetzung durch die Wahl der Dezimalzahlen bitweise erfolgt, 
und für jedes einzelne Bit eine eigene Bedingung kreiert wurde, braucht in Zeile 
2160 lediglich noch das Zeichen zum entsprechenden ASCII-Code erstellt zu 
werden. 


Bei dieser Vorgehensweise sollten Sie sich immer verahschaulichen, daß alle 
Informationen im Rechner nur in Bits (0/1) gespeichert sind und acht Bits zu 
einem Byte zusammengefaßt werden. Ob dieses Byte nun als Zahl zwischen O0 und 
225 oder als Bitmuster oder auch als Zeichen aufgrund des ASCII-Codes (ASCI 
= American Standard Code of Information Interchange) aufgefaßt wird, ist Sache 
des Anwenders. 
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Das Hauptprogramm beginnt zunächst, ebenso wie bei unserem letzten Beispiel- 
programm, in dem die Daten aus Sprite #1 an die Variable O$ übergeben werden 
und die Zeichenreihe für das kopierte Zeichen geleert wird. 


Im Gegensatz zum letzten Beispielprogramm beginnen wir hier jedoch beim ersten 
Zeichen, wobei jeweils drei Zeichen innerhalb einer Schleife behandelt werden. 
Als erstes muß das rechte Byte einer Zeile transformiert werden, um die trans- 
formierten Zeichen wiederum einfach an bereits transformierte in der Variablen K$ 
anzuhängen. Dies wird erreicht, indem wir in Zeile 1100 zum Wert der Lauf- 
variablen noch ‚2‘ addieren und dann das soeben beschriebene Unterprogramm 
aufrufen. Dann muß das mittlere Zeichen innerhalb einer Sprite-Zeile transfor- 
miert werden, was in den Zeilen 1140 bis 1160 geschieht. Zum Schluß das erste 
Zeichen entsprechend in den Zeilen 1180 bis 1200. 


Ebenfalls wie beim letzten Programm müssen die letzten vier Byte an die Varia- 
ble K$ angehangen werden und dann kann die Zeichenreihe einer Spritenummer 
übergeben werden. Wir haben in unserem Beispiel die beiden Sprites 5 und 6 
gewählt. 


Achten Sie bei einer eigenen Anwendung darauf, daß Sie die Spritenummern 
entsprechend Ihren Wünschen ändern und vor dem Programmlauf auch das Ori- 
ginalsprite in den Hauptspeicher geladen ist. 


Wenn Sie nun das gleiche Programm laufen lassen, als Originalsprite aber die 
Daten von Sprite #3 heranziehen und die Konvertierung in den Sprites #7 und 
#8 speichern, so haben Sie auch die zurückfliegenden Tiefflieger, indem Sie 
nacheinander an der X- und Y-Achse gespiegelt haben. 


Das gleiche Verfahren können Sie auch mit dem SSHAPE-Befehl erstellten 
Variablen anwenden, wenn Sie sich die Werte in den letzten vier Byte zunutze 
machen und entsprechend als Anweisung bei den Laufvariablen einbauen. 
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4/6.2 
Allgemeine Algorithmen 





4/6.2.1 


Sortierverfahren 





Sortieren ist ein zentrales Thema im Zusammenhang mit Computern. Nachdem die 
Computer immer weniger zum Rechnen und immer mehr zur reinen Datenverarbei- 
tung herangezogen werden, hat sich die Bedeutung des Sortierens von Daten auch 
weiter vergrößert. 


Eine der drei Vorteile eines Computers im kommerziellen Einsatz, aber auch gele- 
gentlich im Heimbereich, ist der Informationsgewinn. Gleiche Daten können auf 
vielfältige Weise verknüpft und insbesondere sortiert werden. Der Informations- 
gewinn resultiert aus der Schnelligkeit des Computers beim Erstellen und Drucken 
von Listen, die in Kleinbetrieben vorher nie erstellt wurden. 


Dazu einige Beispiele: Wird bei einer Lagerverwaltung die umgesetzte Stückzahl 
bzw. der umgesetzte Geldwert gespeichert, und man sortiert nach diesen Werten, so 
kann man Hits und Ladenhüter sehr leicht lokalisieren. Bei einem umfangreichen 
Artikelsortiment eine Liste sortiert nach Stückumfang per Hand zu erstellen, hätte 
überhaupt keinen Sinn, da die Liste schon nicht mehr aktuell wäre, wenn sie fertig 
ist. Auch Karteileichen lassen sich mit Hilfe des Computers schnell auffinden, wenn 
man z.B. in einen Kundendatensatz einen Eintrag ‘Datum der letzten Rechnung’ 
vorsieht. 


Ebenso bietet das Sortieren bei einer privaten Adreßdatei Vorteile. Bei normaler 
schriftlicher Notierung in einem kleinen Buch werden alle Adressen unter ihrem An- 
fangsbuchstaben, und dort nicht weiter sortiert, eingeordnet. Selbst wenn man zu 
jeder Adresse das Geburtsdatum dazu schreibt, vergißt man so manchen Geburts- 
tag, wenn man sich nicht eine extra Geburtstagsliste, eventuell in einem "Termin- 
kalender, anlegt. Sind alle Adressen inklusive Geburtsdatum erfaßt, so ist es eine 
Kleinigkeit für den Computer, eine Liste der Adressen, nach Kalenderdatum geord- 
net, aufzustellen. 
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Aufgrund der vielfältigen Einsatzmöglichkeiten von Sortierverfahren ist es nicht 
weiter verwunderlich, wenn im Laufe der Zeit immer bessere und schnellere Sortier- 
verfahren entwickelt wurden. Wir wollen in diesem Kapitel nicht alle Sortierverfah- 
ren besprechen, da alle Verfahren ihre Vor- und Nachteile haben, aber drei wichtige 
Verfahren herauspicken, die für die verschiedensten Einsatzzwecke von Vorteil sind. 
Dies ist zum einen das eigentlich langsamste Sortierverfahren, das aber bei bereits 
vorsortierten Daten eine enorme Schnelligkeit entwickelt, zum anderen ein mittel- 
schnelles Sortierverfahren, das sehr leicht programmierbar ist, welches wir für auf- 
und absteigendes Sortieren vorstellen, und natürlich das zur Zeit schnellste Sortier- 
programm überhaupt, was man auch seinem Namen entnehmen kann: Quicksort. 


SHELL-SORT 


Die Vorgehensweise bei den drei verschiedenen Sortierverfahren beschreiben wir am 
besten durch einen Vergleich mit einem Stapel zu sortierender Karteikarten, wobei 
der Stapel Karteikarten natürlich nicht vorsortiert ist. 


Das Verfahren SHELL-SORT ist dabei leicht erklärt. Sie fangen vorne bei den Kar- 
teikarten an und vergleichen immer zwei aufeinanderfolgende Karteikarten. Wenn 
der Eintrag auf der hinteren Karteikarte kleiner ist als der Eintrag auf der vorderen 
Karteikarte, werden einfach beide Karten vertauscht. Die hintere Karteikarte bei der 
aktuellen Durchsuchung ist gleichzeitig die vordere Karteikarte für die nächste 
Durchsuchung. Wenn Sie am Ende angekommen sind, fangen Sie wieder von vorne 
an. Das Sortieren ist abgeschlossen, wenn Sie einen Durchlauf durch den Stoß Kar- 
teikarten gemacht haben und keine einzige Vertauschung durchgeführt wurde. 


Durch dieses Vertauschen werden die Karteikarten mit den kleineren Finträgen lang- 
sam nach vorne bewegt, bis sie ihren Platz erreicht haben, und gleichzeitig Kartei- 
karten mit alphanumerisch großen Einträgen nach hinten. Der Aufwand für dieses 
Sortierverfahren ist natürlich sehr groß, was Sie schon alleine an einem Spezialfall 
sehen. Alle Karteikarten sind sortiert bis auf eine, die kleinste, die sich am Schluß 
befindet. Bei 1000 Karteikarten müssen sie 999mal den Stapel durchgehen, bis die 
kleinste Karte endlich vorne ist. Dies bedeutet ca. 1.000.000 Überprüfungen und 999 
Vertauschungen. Dies ist gleichzeitig auch der Extremfall (von Überprüfungen), da 
hier der längste Weg für eine Karteikarte zurückzulegen ist. Wären auch noch an- 
dere Karten nicht an der richtigen Stelle, würden sie im Laufe der Durchgänge auto- 
matisch mit nach vorne wandern. 


Da Sortierprogrammteile in vielen Anwenderprogrammen benötigt werden, haben 
wir die Beschreibung den Unterprogrammen aus Kapitel 4/4.7 angepaßt und etwas 
ausführlicher gestaltet. Zunächst also die Dokumentation für SHELL-SORT zum 
Sortieren von Zahlen (die Programmierung für Sortierung nach Zeichenreihen be- 
nutzt nur Stringvariablen), mit dem ein Feld WE ( ) sortiert wird. 
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6.2 Allgemeine Algorithmen Teil 4: Software-Erstellung 






SHELLZAHL 
SHELL-SORT für Zahlen 








REM - TESTRAHMEN FUER SHELL-SORT - 
1020 REM -------------- -- -- -- 
1030 : 

1040 AN=15 

1050 DIM WE{AN) 

1060 : 

1070 FOR I=1 TO AN 

1080 : WECI)=INT{RND{TI)*1000)+1 

1090 NEXT 

1100 : 

1110 T=TI 

1120 GOSUB 7000 

1130 T=(TI-T)/80 

1140 : 

1150 FOR I=1 TO AN 

1160 : PRINT I,WE(I) 

1170 NEXT 

1180 : 

1190 PRINT"BENOETIGTE ZEIT ";T; "SEKUNDEN = ";T/60; "MINUTEN" 
1200 : 

1210 END 

1220 : 

7000 REM ----------------—-—------- 

7010 SHELL-SORT 
7020 
7030 : 

7040 FE=1 

7050 : 

7060 FOR I=1 TO AN-1 

7070 : IF WE(I+1)<WE(I) THEN HI=WE(I) : WECIJ)=SWE(I+1) : WECIH1)=HI : FE=O 
7080 NEXT 

7090 : 

7100 IF FE=O THEN 7040 

7110 : 
























RETURN 






. Listing 4/6.2.1-1 
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6.2 Allgemeine Algorithmen Teil 4: Software-Erstellung 


Struktogramm: 














Merker für sortiertes Feld setzen 





Solange noch nicht fertig 





Für alle Werte des Feldes bis zum vorletzten 





Ist nächstes Element im Feld größer 
als das aktuelle Feldelement? 





ja 





vertausche beide Felder (mit Hilfsvariable HI) 





setze Merker für sortiertes Feld zurück 











Rücksprung 


Variablen: 









zul. Bereich 





Bedeutung 





Eingabeparameter: 


AN 












Anzahl der Elemente im zu 
sortierenden Feld 
WE() Dezimalzahlen | zu sortierendes Feld 


Integer 











Ausgabeparameter: 








we) 







Dezimalzahlen sortiertes Feld 





Lokale Variablen: 














FE 0, 1 Merker für fertig sortiertes Feld 
Hl Dezimalzahl Hilfsvariablen zum Vertauschen 














zweier Feldelemente 
I 1... AN-1 Laufvariable 
Globale Variablen: keine 
Rücksprünge: R 


In Zeile Art Bedingung Bemerkung 





7120 Return _ fertig 
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Aufgrund der zu Anfang gegebenen Beschreibung der Arbeitsweise des Sortierver- 
fahrens und der Dokumentation, sowie den auf den nächsten Seiten aufgeführten 
Beispielen, erübrigt sich jede weitere Erklärung. Da SHELL-SORT unser erstes 
Sortierprogramm ist, wollen wir hier auch das Listing für Sortierung nach Zeichen- 
reihen aufzeigen, bei dem — neben dem geänderten Testrahmen — lediglich die 
Variablennamen zu ändern sind. 








1000 REM -------------- - -- -- - ------—-- u 

1010 REM - TESTRAHMEN FUER SHELL-SORT - 

1020 REM ---------- -- - - -- - - —- -- 7 

1030 : 

1040 AN=15 

1050 DIM WES(AN) 

1060 : 

1070 DATA INTEREST, MAIER, MEIER, MAYER, MAYR, MEYER, SCHNEIDER, SCHMIDT, SCHMITT 
1080 DATA SCHMITZ, NIGGL, EBERL, FRIESE, STRAUSS, WIMMER 

1090 : 

1100 FOR I=1 TO AN 

1110 : READ WES(I) 

1120 NEXT 

1130 : 

1140 T=TI 

1150 GOSUB 7500 

1160 T=(TI-T)/60 

1170 : 

1180 FOR I=1 TO AN 

1190 : PRINT I,WE$(I) 

1200 NEXT 

1210 : 

1220 PRINT"BENOETIGTE ZEIT ";T; "SEKUNDEN = ";T/60; "MINUTEN" 

1230 : 

1240 END 

1250 : 

7500 
7510 
7520 
7530 : 

7540 FE=1 

7550 : 

7560 FOR I=1 TO AN-1 

7570 : IF WESCI+1)<WESCI) THEN HIS=WES(I) : WESCI)SWES(I+1) : WESCI+1)=HIS : FE= 





7580 NEXT 

7590 : 

7600 IF FE=O THEN 7540 
7810 : 

7620 RETURN 

7630 : 











Listing 4/6.2.1-2 


Lassen Sie uns abschließend noch kurz auf das Zeitverhalten und einige Verbesse- 
rungen bei SHELL-SORT eingehen. Bei 10 unsortierten Zahlen braucht SHELL- 
SOIRT ca. zwei Sekunden zum Sortieren. Bei 50 unsortierten Zahlen werden bereits 
ca. 47 Sekunden benötigt, bei 100 Zahlen ca. 3 Minuten und 11 Sekunden. Weitere 
Daten entnehmen Sie bitte der Gegenüberstellung am Schluß des Kapitels. 
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Für große zu sortierende Mengen ist SHELL-SORT anscheinend nicht das geeignete 
Hilfsmittel. Aber SHELL-SORT ist das beste Hilfsmittel um zu prüfen, ob eine sor- 
tierte Folge vorliegt. Hier die ungefähren Zeitangaben bei sortierten Daten: 0,5 Se- 
kunden (für 10 sortierte Zahlen), 1,5 Sekunden (für 100 Zahlen), 15,5 Sekunden 
(1000) und nur ca. 77 Sekunden für 5000 sortierte Zahlen, im FAST-Modus des 
C 128 sogar nur 37 Sekunden. In diesem Fall ist das vorgestellte Sortierverfahren 
unschlagbar. Anwendungsbeispiele für das Prüfen, ob sortierte Daten vorliegen, 
sind sehr vielfältig. Wenn man die unten beschriebenen Verfahren zur Beschleuni- 
gung von SHELL-SORT anwendet, und unser Extrembeispiel vom Beginn heran- 
zieht, ergibt sich auch ein gutes Einsatzfeld im Heimbereich: Sie haben 1000 Adres- 
sen, Schallplatten oder Dias gespeichert, die sortiert vorliegen. Wenn Sie nur wenige 
Daten neu erfassen müssen, wäre es unsinnig, alle Daten vollkommen neu zu sortie- 
ren. Sie brauchen lediglich an die richtige Stelle verschoben zu werden, wobei 
SHELL-SORT auch wieder Vorteile für sich verbuchen kann. 


Es wurden einige Wege gefunden, um SHELL-SORT etwas schneller zu machen, 
von denen wir hier zwei kurz erläutern wollen. Zum einen kann man sich die jeweili- 
gen äußeren Grenzen merken, wo die Karteikarten schon sortiert sind. Nehmen wir 
an, Sie stellen beim ersten Durchlauf fest, bis zur 500. und ab der 700. Karteikarte 
ist der Stapel bereits richtig sortiert, so ist nur der Bereich von 500 bis 700 zu durch- 
suchen, wobei es allerdings sein kann, daß die Grenzen sich nach außen hin ver- 
schieben, Sie also das nächstemal von 499 bis 701 durchsuchen müssen. Für unser 
eingangs erwähntes Extrembeispiel (alles sortiert, nur das kleinste zu sortierende 
Element befindet sich am Ende) würde dies bedeuten, daß wir beim ersten Durch- 
lauf feststellen, daß die Elemente Nummer 999 und 1000 zu vertauschen sind, das 
Element mit der Nummer 1000 dann richtig ist, und wir den zweiten Durchlauf bei 
998 beginnen und bei 999 beenden können. Die Vertauschungen werden dann alle 
direkt ausgeführt, ohne daß wir sämtliche Elemente bei jedem Durchlauf über- 
prüfen müssen. 


Damit sind wir auch gleich bei der zweiten Möglichkeit, das Verfahren SHELL- 
SORT zu beschleunigen: Sobald wir beim Prüfen feststellen, daß zwei Karten ver- 
tauscht werden müssen, gehen wir nicht nach hinten weiter, sondern prüfen die vor- 
dere der vertauschten Karten (die ja gerade nach vorne gewandert ist) mit der Karte 
davor. 


Mit anderen Worten, es wird eine weiter hinten gefundene kleinere Karteikarte so- 
lange nach vorne vertauscht, bis sie ihren richtigen Platz hat. Dann kann man an 
der Stelle weitermachen, wo die erste Vertauschungsserie begonnen. hat. 


Abschließend noch drei kleine, einfache Beispiele, die die unterschiedlichen Vor- 
gänge deutlich machen (p bedeutet prüfen; pv bedeutet prüfen und vertauschen): 
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SHELL-SORT normal Schritt 


10 20 30 
| j 


10 20 30 


10 2 @ 
10 20 En 
10 20 30 
10 20 30 
10 20 30 
10 20 30 
20 30 

20 

20 

20 

20 

20 

20 


! 
20 


! 

14 
14 
14 
14 


14 
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6.2 Allgemeine Algorithmen Teil 4: Software-Erstellung 


Man benötigt sieben weitere Schritte, um festzustellen, daß man fertig ist, für acht 
— fast sortierte — Zahlen also 28 Schritte. 





SHELL-SORT mit Grenzen (U: untere Grenze, O: obere Grenze) 


45 14 78 85 65 (N 
14 78 85 65 (2 
85 
85 65 
85 65 
85 


85 
! 


65 





65 
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6.2 Allgemeine Algorithmen Teil 4: Software-Erstellung 


Wie Sie an diesem Beispiel sehen, ist prinzipiell beim Verrücken der Untergrenze 
eine Einheit vorher mit der Prüfung zu beginnen und bei Erreichen der Obergrenze 
kann eine Einheit früher aufgehört werden. Da in den Schritten 13 bis 15 keine Ver- 
tauschungen mehr vorgenommen werden, wird an der Stelle » festgestellt, daß die 
Untergrenze gleich der Obergrenze ist, und in Schritt 16 stellt man fest, daß die bei- 
den Grenzen nicht weiter verändert werden brauchen. 


Trotz der ungünstigen Obergrenze benötigen wir nur 16 Schritte, fast die Hälfte der 
28 Schritte beim ‘normalen’ SHELL-SORT. 


SHELL-SORT mit fortlaufender Vertauschung 
(M bedeutet Position merken) 


10 20 30 45 78 85 

I !p 

10 20 30 78 85 
! Ip 


10 20 30 78 85 
! ! 


10 20 78 85 


10 j 78 85 
78 85 
78 85 


78 85 
! p (gemerkte Stelle) 


78 85 
Ip 

78 

! 


78 





Die gemerkte Stelle ist hier bereits das Ende, so daß nach abgeschlossener Vertau- 
schung der Sortiervorgang beendet ist. 





Teil 4 Kapitel 6.2.1 Seite 10 





Utilities 
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Selbst in unserem — aus Platzgründen recht einfach gewählten Beispiel — sparen 
wir in der letzten Version nochmals drei Schritte ein. 


Weil alphanumerisch kleinere Karteikarten so nach vorne wandern, wie Blasen (eng- 
lisch Bubbles) in einer Flüssigkeit nach oben steigen, wird das Verfahren auch als 
Bubble-Sort bezeichnet. 


MINSORT/MAXSORT 


Das nächste Verfahren, das wir vorstellen wollen, ist etwas schneller, hat aber seinen 
besonderen Vorteil in der relativ einfachen Programmierung gegenüber dem noch 
schnelleren Verfahren QUICKSORT. Je nachdem, ob man aufsteigend oder abstei- 
gend sortieren will, wird das Verfahren als MINSORT (von MINimum) oder MAX- 
SORT (von MAXimum) bezeichnet. 


Auch hier wollen wir uns wieder einen Stapel unsortierter Karteikarten vorstellen. 
Da die Beschreibung für auf- bzw. absteigende Sortierung ähnlich ist — es kommt 
nachher nur darauf an, von welcher Seite man sich den Stoß ansieht — besprechen 
wir hier die aufsteigende Sortierung. 


Der Vorgang: Sie durchsuchen den Stoß von vorne nach hinten, wobei Sie sich je- 
weils die Karteikarte mit dem kleinsten Eintrag merken, eventuell durch leichtes 
Herausziehen dieser Karteikarte. Zu Beginn wird die erste Karte als kleinstes Ble- 
ment herangezogen und jede der folgenden Karten vergleichen Sie mit der ersten 
Karte, bis Sie eine kleinere finden, die dann markiert und zum Vergleich herangezo- 
gen wird (die vorher als Kleinere ausgesuchte verschwindet wieder im Stapel). 
Haben Sie den ganzen Stoß durchsucht, entnehmen Sie einfach die markierte klein- 
ste Karte und legen sie umgedreht neben den Stoß. Ebenso verfahren Sie in den 
nächsten Durchgängen und legen alle anderen gefundenen Karten des Stapels nach- 
einander auf den neuen Stapel. Als letztes werden Sie dann die Karteikarte mit dem 
größten Eintrag in der Hand halten. 


Wenn Sie fertig sind, haben Sie z.B. bei 1000 Karteikarten 500.000 Überprüfungen 
vorgenommen. Allgemein sind n?/2 Überprüfungen notwendig, da bei fortschrei- 
tender Suche der zu durchsuchende Stapel immer kleiner wird. 
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Weil wir mit zwei Stapeln operieren, müßten wir im Computer auch zwei Felder vor- 
sehen, das eine zum Ablegen der gefundenen jeweiligen kleinsten Elemente, und das 
andere Feld mit den zu sortierenden Daten, wobei ein aussortierter Datensatz natür- 
lich noch kenntlich gemacht werden muß. 


Da sich die Anzahl der Karteikarten naturgemäß beim Sortieren nicht ändert, läßt 
sich die Sortierung allerdings auch in einem einzigen Feld erledigen. Dazu sind — 
wie bei SHELL-SORT — nach einem Durchsuchungsvorgang des restlichen Stapels 
zwei Karten zu vertauschen und zwar die vorderste vom zu durchsuchenden Reststa- 
pel mit der Karte mit dem kleinsten gefundenen Eintrag. Die jeweiligen Karten mit 
den kleinsten Einträgen werden nicht mehr auf einen gesonderten Stoß gelegt, son- 
dern nach vorne geholt. 


Mit Kenntnis dieser Vorgehensweise ist es für Sie sicherlich nicht schwierig, daraus 
ein Computerprogramm zu bilden. Auch hier wollen wir wieder das eigentliche Sor- 
tieren als Unterprogramm ausgestalten, so daß es von jedem Anwenderprogramm 
unter Berücksichtigung der Ein-/Ausgabeparameter verwendet werden kann. 


MINZAHL 
MINSORT für Zahlen 





1010 REM --- TESTRAHMEN FUER MINSORT -- 
1020 REM 2-22 mm 
1030 : 

1040 AN=15 

1050 DIM WE(ANZAHL) 

1060 : 

1070 FOR I=1 TO AN 

1080 : WE(IJ=INT(RND(TI)*1000)+1 

1080 NEXT 

1100 : 

1110 T=TI 

1120 GOSUB 8000 

1130 T=(TI-T)/60 

1140 : 

1150 FOR I=1 TO AN 

1160 : PRINT I,WE(I) 

1170 NEXT 

11980 : 

1190 PRINT"BENOETIGTE ZEIT ";T; "SEKUNDEN = ":T/60; "MINUTEN" 
1200 : 

1210 END 

1220 : 

8000 REM --—------ I 
8010 REM -—- MINSORT => 
8020 REM ------------ mm 
8030 : 

8040 FOR I=1 TO AN-1 

8050 : MI=1000000 

8060 : - 
8070 : FOR J=I TO AN 








Listing 4/6.2.1-3 (Teil 1) 
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Teil 4: Software-Erstellung 





8080 : : IF WE(J) < MI THEN MI=WE(J) : WO=J 
8090 : NEXT 

8100 : 

8110 : HI=WE(I) : WE(I)=WE(WO) : 


8120 NEXT 
8130 : 

8140 RETURN 
8150 : 


Listing 4/6.2.1-3 (Teil 2) 


Struktogramm: 


WE(WO)=HI 





Für alle Elemente des Feldes bis zum vorletzten 





setze Hilfsvariable höher als größtes Feldelement 





Für alle Feldelemente vom aktuellen bis zum letzten 





ja 


Ist aktuelles Feldelement kleiner als 
das bisher kleinste gefundene? 


nein 





merke aktuelles Element als kleinstes gefundenes 








merke Index (Feldnummer) des aktuellen Elementes 











vertausche das kleinste gefundene Element mit dem ersten des aktuell 
durchsuchten Bereiches 





Rücksprung 


Variablen: 


Name zul. Bereich 





Bedeutung 





Eingabeparameter: 





A Integer 





WE() Dezimalzahlen 


Anzahl der Elemente im zu 
sortierenden Feld 
zu sortierendes Feld 
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Ausgabeparameter: 

WE() Dezimalzahl sortiertes Feld 

Lokale Variablen: 

HI Dezimalzahl Hilfsvariabien zum Vertauschen 
zweier Feldelemente 

I 1...AN-1 Laufvariable 

J i... AN Laufvariable 

MI . ... 1000 000 Merker für kleinstes gefundenes Element 

wo 1...AN Merker für Index des kleinsten 
gefundenen Elementes 

Globale Variablen: keine | 








Rücksprünge: 


In Zeile Bedingung Bemerkung 





8140 _ fertig 





Da es sich beim alphanumerischen Sortieren nur um kleine Änderungen handelt, 
die wir bei SHELL-SORT schon besprochen haben, soll auf die Abbildung der Pro- 
grammänderungen und des Testprogrammes verzichtet werden. 


Bei MINSORT (aufsteigendes Sortieren) stellt die äußere Schleife (Laufvariable: i) 
jeweils den zu durchsuchenden Restteil dar, wobei das erste Element dieses Teiles 
nach Abschluß des Suchens mit dem gefundenen, kleinsten Element vertauscht 
wird. Die innere Programmschleife ist dabei für das eigentliche Durchsuchen zu- 
ständig, und unsere Hilfsvariable WO stellt das Markieren des gefundenen kleinsten 
Elementes dar. Wenn Sie das Feldelement WE(0) nicht benutzen, kann statt der 
Hilfsvariable HI auch das Element WE(0) zum Vertauschen herangezogen werden. 


Das aufsteigende Sortieren (MAXSORT) kann man auf zwei Wegen erreichen: 
Einerseits, indem man immer das größte Element sucht und nach vorne bringt, an- 
dererseits, indem man weiterhin das kleinste Element sucht, dies aber — bei unse- 
rem bildlichen Beispiel — hinten in den Stapel einbringt. Wir haben uns in unserem 
Programm für die letzte Möglichkeit entschieden, und so läuft unsere äußere 
Schleife von hinten nach vorne und die innere Schleife nicht vom aktuellen Element 
‘“j’ bis zum Ende, sondern vom Anfang bis zu diesem Element. Da ansonsten die 
Dokumentation derjenigen von MINSORT entspricht, möchten wir Ihnen lediglich 
das Programm zum Sortieren von Zahlen, sowie das zugehörige Testprogramm zum 
direkten Abtippen darstellen. 
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REM --- TESTRAHMEN FUER MAXSORT 
REM 


AN=10 
DIM WECAN) 


FOR I=1 TO AN 
: WECTJ=INT(RND(TI)*1000)+1 
NEXT 


T=T1 
GOSUB 8500 
T={TI-T)/60 


FOR I=1 TO AN 
: PRINT I,WE(I) 
NEXT 


PRINT"BENOETIGTE ZEIT ";T;"SEKUNDEN = ";T/60; "MINUTEN" 


FOR IsaN TO 2 STEP -1 
: MI=1000000 


: FOR J=1 TO I 
IF WE(J) < MI THEN MISWE(S) : WO=J 
NEXT 


: HI=WE(I) : WE(CI)=WE(WO) : WE(WO)=HI 
NEXT 


RETURN 


Listing 4/6.2.1-4 


Teil 4: Software-Erstellung 
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Ähnlich wie bei SHELL-SORT wollen wir ein kures Ablaufbeispiel durchrechnen: 


96 87 54 
96 87 54 
96 87 54 
96 87 54 
96 87 54 


54 187 96 


54 58 | 96 


























54 58 59 | 85 


54 58 59 63 
54 58 59 63 
54 58 59 63 
54 58 59 63 
54 58 59 69 
54 58 59 63 














Das letzte Element braucht offensichtlich nicht mehr sortiert zu werden. 


. Auch hier wollen wir wieder einige kurze Zeitvergleiche anstellen, zunächst wieder 
für unsortierte Zahlen. MINSORT/MAXSORT brauchen für 10 Zahlen etwa 
1/2 Sekunde, für 50 Zahlen knapp 8 Sekunden, für 100 Zahlen ungefähr 28 Sekun- 
den und für 500 Zahlen circa 10,5 Minuten, was bei 500 Zahlen in etwa einem Vier- 
tel der Rechenzeit von SHELL-SORT ausmacht. Im Gegensatz zu SHELL-SORT 
verkürzen sortierte Daten die Rechenzeit nicht, wie man aufgrund des Verfahrens- 
ablaufes schon ablesen kann, da immer alle Elemente durchsucht werden müssen. 


Bei sortierten Daten wäre es vielleicht sinnvoll, das Vertauschen vorher noch durch 
eine Bedingung zu prüfen, ob überhaupt vertauscht werden muß. Bei unsortierten 
Daten würde diese Bedingungsabfrage jedoch die Rechenzeit noch erhöhen und bei 
sortierten Daten nur geringe Zeitersparnis bringen. 
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Der Vorteil von MINSORT/MAXSORT liegt in der relativ einfachen Programmie- 
rung und ist ca. 3 bis 4 mal schneller als SHELL-SORT. Für nicht zu große Daten- 
mengen reicht dieses Sortierverfahren aus, und so werden wir es auch als Hilfssor- 
tierverfahren für das nächste Verfahren verwenden. 


QUICKSORT 


QUICKSORT ist das derzeit schnellste bekannte Verfahren für unsortierte Daten- 
mengen, wobei sortierte Daten allerdings auch in der Rechenzeit berücksichtigt wer- 
den. 


Erläutern wir das Verfahren wieder an einem Stapel mit 1000 Karteikarten, die z.B. 
nach Namen sortiert werden sollen. Das Verfahren QUICKSORT ist deshalb so 
kompliziert, weil es in einem Durchgang nur eine gewisse Teilsortierung herstellt, 
und man die teilsortierten Bereiche anschließend wieder mit einem beliebigen Sor- 
tierverfahren weitersortieren kann, z.B. auch QUICKSORT. Da QUICKSORT sich 
für Teilbereiche immer wieder selber aufrufen kann, ist es auch ein sogenanntes re- 
kursives Sortierverfahren. Bei Basic stellt sich natürlich das Problem der rekursiven 
Programmierung, da rekursive Unterprogramme — ähnlich PASCAL — nicht vor- 
gesehen sind. Bei unserer bildlichen Darstellung werden Sie diese Rekursivität sehr 
schnell erkennen, 


Sie sollten bei der gedanklichen Bearbeitung der Karteikarten schon einmal etwas 
Platz um sich herum schaffen, denn Sie werden ihn brauchen. 


Zunächst sucht man sich bei QUICKSORT ein Vergleichselement, das ungefähr in 
der Mitte der zu sortierenden Daten liegt, bei Karteikarten nach Namen z.B. ein 
Name, der mit N anfängt. Obwohl das folgende Verfahren für Karteikarten etwas 
außergewöhnlich anmutet, ist es sicherlich auch im praktischen Einsatz das schnell- 
ste — und komplizierteste. Stellen Sie den Kartenstapel quer vor sich, so daß Sie 
links den vorderen und rechts den hinteren Teil des Kartenstapels bearbeiten können. 


Nun beginnen sie links mit der Bearbeitung. Als Vergleichskriterium hatten wir 
einen Namen mit N gewählt. Wir legen die geprüften Karteikarten jeweils rechts und 
links von unserem Ausgangsstapel auf einen neuen Stapel. Alle Namen, die mit A 
bis M beginnen, gehören auf den linken Stoß und alle Namen von N bis Z auf den 
rechten Stoß. So lange die Karten, die sie von links dem Ursprungsstapel entneh- 
men, ihren Anfangsbuchstaben im Bereich A bis M haben, legen Sie diese einfach 
auf den linken Stoß. Sobald die erste Karte von dieser Seite einen Namen mit dem 
Anfangsbuchstaben aus dem Bereich N bis Z beinhaltet, legen Sie diese Karte zwar 
oben auf, beenden aber die Überprüfung auf der linken Seite. Die Überprüfung 
wird auf der rechten Seite fortgesetzt, und zwar werden jetzt alle Karten auf den 
rechten Stoß gelegt, die in dem Bereich N bis Z ihren Anfangsbuchstaben haben. 
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Sobald Sie auf die erste Karte treffen — wir sind immer noch rechts — deren An- 
fangsbuchstabe im Bereich A bis M liegt, legen Sie diese Karte ebenfalls noch 
obenauf und brechen den Prüfvorgang ab. 


Sie haben jetzt neben den zu sortierenden Karteikarten links einen Stoß, wo alle Na- 
men mit A bis M beginnen, mit Ausnahme der obersten Karte, und rechts einen 
Stapel, bei dem die Anfangsbuchstaben alle mit N bis Z anfangen, bis auf die 
oberste Karte. Wenn Sie nun die beiden obersten Karten vertauschen, gilt das eben 
Gesagte für beide Stöße, diesmal ohne Ausnahme. 


Machen Sie nun links weiter und prüfen Sie, ob die Karten im Bereich A bis M lie- 
gen ‚und brechen Sie die Überprüfung bei einem anderen Anfangsbuchstaben sofort 
ab. Daraufhin prüfen Sie den rechten Bereich wieder auf den Bereich N bis Z. Ist 
auch hier eine Karte aus dem falschen Bereich aufgetaucht, tauschen sie die beiden 
obersten Karten von den Stapeln rechts und links wieder aus und setzen die Prüfung 
fort, bis der ganze zu sortierende Kartenstoß auf die beiden Stapel verteilt ist. 


Sie haben nun einen Stoß links, wo die Anfangsbuchstaben ausnahmslos im Bereich 
A bis M liegen und rechts einen Stoß für den Bereich N bis Z. Auf diese beiden 
Stöße können Sie nun ein beliebiges Sortierverfahren anwenden, gegebenenfalls für 
jeden Stoß ein anderes Sortierverfahren. Wenn wir mit 1000 Karten angefangen ha- 
ben, haben wir jetzt auf jedem Stoß ungefähr 500 Karten, wenn die Namen auf den 
Karten nicht alle Schulz, Schmitt, Schmitz oder Schneider sind. Man sollte sein Ver- 
gleichskriterium (bei uns das N) so wählen, daß es möglichst zu einer gleichmäßigen 
Aufteilung kommt. Von der geschickten Wahl Ihres Vergleichskriteriums hängt ent- 
scheidend die gesamte Sortierzeit ab. 


Wenden wir nun z.B. auf den Stapel mit den Anfangsbuchstaben N bis Z wieder 
das Verfahren QUICKSORT an, so müssen wir natürlich ein neues Vergleichskrite- 
rium suchen, z.B. “T’”. Ein Stapel wird nach erneuter Verteilung, wie oben beschrie- 
ben, gebildet, der alle Karteikarten mit den Anfangsbuchstaben N bis S enthält, und 
. der andere die von T bis Z. Sie sollten immer den Stapel mit den größten Sortierkri- 
terien zuerst behandeln. Als nächstes würde also der Stapel mit den Karten der An- 
fangsbuchstaben T bis Z behandelt. Zur weiteren Bearbeitung liegen dann immer 
noch die Stapel mit den Anfangsbuchstaben von A bis M und von N bis S. 


Sie sehen, das Verfahren ist sehr platzaufwendig, da Sie für jeden zu bearbeitenden 
Stapel zwei neue erhalten. Wenn Sie auf jeden Stapel immer wieder QUICKSORT 
anwenden, müssen Sie dies so oft tun, bis jeder Stapel nur noch aus einer einzigen 
Karte besteht. Sicherlich wird Ihnen bis dahin der Platz ausgegangen sein, und Sie 
werden sich z.B. entschließen, bei 10 oder 15 Karten nicht mehr QUICKSORT als 
Sortierverfahren zu wählen, sondern z.B. SHELL-SORT oder MINSORT/MAX- 
SORT. 
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In Wirklichkeit würden Sie natürlich nicht die Stapel von links und rechts bearbei- 
ten, sondern den Ursprungsstapel in die Hand nehmen und nach den erwähnten 
Kriterien auf zwei Stapel aufteilen, wie man es z.B. auch bei einen 104-Blatt-Karten- 
spiel durchführt, wenn die roten und blauen Karten wieder getrennt werden sollen. 
Die genannte Vorgehensweise erlaubt allerdings eine einfachere Übertragung für 
den Computer, da wir wieder innerhalb des Ausgangsfeldes sortieren können, und 
kein Hilfsfeld benötigen. Letztendlich wird es im Computer also bei einem Stapel 
bleiben, wobei der Rechner sich für die einzelnen Bereiche Trennelemente merkt. 


Im Computer brauchen wir also nicht soviel Platz, da wir — wie bei MIN- 
SORT/MAXSORT — mit einigen kleinen Tricks ein Feld in sich selbst sortieren 
können. Bei Programmiersprachen mit rekursiver Programmiermöglichkeit, wie 
z.B. PASCAL, wird dabei die Grenzenverwaltung (in unseren Beispielen A bis M, 
N bis S, T bis Z) durch das Programm selbst übernommen. 


Bei Basic müssen wir einen kleinen Umweg gehen und uns diese Grenzen selbst mer- 
ken. Da das Merken und Aufbereiten der Grenzen in Basic verhältnismäßig lange 
dauert, ist es hier von Vorteil, bei kleinen ‘Stapeln’ auf ein anderes Verfahren aus- 
zuweichen, wozu wir MINSORT gewählt haben. 


Bevor wir uns der eigentlichen Programmierung zuwenden, wollen wir wieder ein 


kleines Zahlenbeispiel vorführen, wo wir die später verwendeten Zeiger schon ein- 
bauen (p bedeutet ‘nur prüfen’ und pv bedeutet ‘prüfen und später vertauschen’): 


Ausgangssituation: 





10 20 45 74 87 52 46 14 12 51 63 89 87 73 58 
! ! 
links = links(1) rechts(1)=rechts 
=| Vergleichselement = 50 =j 





Zeiger=0 (vor sortieren) 
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51 
51 
51 
51 
51 
51 
51 


51 


51 87 
pi 


51 89 87 


51 63 89 87 
(tauschen) 

51 63 89 87 
(i und j versetzen) 
51 63 89 87 


51 63 89 87 


51 693 89 87 
(tauschen) 

51 63 89 87 
(i und j versetzen) 
51 63 89 87 


51 63 89 87 


51 63 89 -87 
(tauschen) 

51 63 89 87 
(i und j versetzen) 


ONNDI NND NND NND CI OT I OT OR OL 
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Ende 1. Durchgang: — Zeiger auf 1 setzen 
— links(l) = links (=D 
— rechts) = ] (= 6) 
— Zeiger auf 2 setzen 
— links(2) = i (= 
— rechts?) = rechts (=15) 
Für 2. Durchgang: — links = links(2) 
—i = links 
— rechts = rechts(2) 
—j — rechts 


— Zeiger auf 1 zurücksetzen 





2. Durchgang (in etwas verkürzter Form): 


20 45 12 14 46!52 74 51 63 89 
j vergleich = 63 


20 45 12 46 !52 74 51 63 89 
ip 
20 45 12 46 !52 74 51 63 87 


20 45 12 46152 & 7a 51 63 87 


10 20 45 12 14 46!52 74 51 63 87 
(tauschen und versetzen) i pv ] 
10 20 45 12 14 152 74 51 63 87 73 
i pi 
10 20 45 12 14 !52 7a 51 63 58 73 
i Pi 
"20 45 12 14 152 74 51 63 87 73 
; : 
20 45 12 14 152 74 51 63 87 73 
i Pvj 
10 20 45 12 14 46152 63 51 74 87 73 
(tauschen und versetzen) j 
10 20 45 12 14 46!52 63 4 89 87 73 
ij  (i prüfen) 
10 20 45 12 14 46!52 63 74 89 87 73 
(wird nicht getauscht, da i größer j) j i pv 
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Ende 2. Durchgang: — Zeiger auf 2 setzen 


— links(2) = links (= 

— rechts(2) n ] (= 10) 

— Zeiger auf 3 setzen 

— links(3) En i (=11) 

— rechts3) = rechts (=15) 
Für 3. Durchgang: — links — links(3) 

—i = links 

— rechts — rechts(3) 

—j u rechts 


— Zeiger auf 2 zurücksetzen 





10 20 45 12 14 46!5 58 6 51!74 8 87 73 87 i=11 


vergleich = 87 ip j j=15 
10 20 45 12 14 46!52 58 63 51!74 89 87 73 8 i=12 
i pv j j=15 

10 20 45 12 14 46!52 58 63 51!74 89 87 73 84 i=12 
; i pv j j=15 

10 20 45 12 14 46!52 58 63 51!74 87 87 73 89 i=13 
(tauschen und versetzen) ip j j=14 
10 20 4 12 14 46!52 58 63 51!74 87 87 73 84 i=14 
{i prüfen) ij j=14 

10 20 45 12 14 46!52 58 63 51!74 87 87 73 84 i=15 
(i prüfen. und ‘vertauschen’, wird aber wegen i ii j=e14 


größer j nicht durchgeführt) 





Ende 3. Durchgang: — Zeiger auf 3 setzen 
— links(3) — links (=11) 
— rechts3) = j (=14) 


— da i nicht kleiner als rechts ist (beide 15), ist das 
letzte Element schon ‘sortiert’ und es wird keine 
zweite Speicherung in links( ) und rechts( ) vorge- 
nommen. 
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Für 4. Durchgang: — links = links(3) 
—i = links 
— rechts = rechts(3) 


j rechts 
— Zeiger auf 2 zurücksetzen 





4. Durchgang 
(da wir in unserem Beispiel nur 15 Elemente sortieren, wollen wir 
MINSORT für vier Elemente aufrufen) 


10 20 45 12 14 46!52 58 63 51!73 74 87 87 8 





Nach dem vierten Durchgang werden keine neuen Teilbereiche festgelegt. 


Für 5. Durchgang: — links = links?) (= N 
—i = links 
— rechts = rechts(2) (=10) 
—jJ = rechts 


— Zeiger auf 1 zurücksetzen 


5. Durchgang 
(auch hier wieder MINSORT): 





10 20 45 12 14 46!51 52 58 68173 74 87 87 89 ' 








Nach dem fünften Durchgang werden keine neuen Teilbereiche festgelegt. 


Für 6. Durchgang: — links = linksl) (=D 
—i = links 
— rechts = rechts(l) (=6) 


j rechts 
— Zeiger auf 0 zurücksetzen 
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6. Durchgan 
(mal Meder QUICKSORT: nur Ergebnis; 
Vergleich=12): 


10 12!45 20 14 46!51 52 58 63 73 74 87 87 8 
ii (ev) 





Die neuen Grenzen sind 1/2 und 3/6. Noch zweimal MINSORT aufrufen, und die 
Sache ist erledigt: 


10 12 14 20 45 46 51 52 58 63 73 74 87 87 8 


Damit wurden alle Spezialfälle behandelt. 


Damit die Zahlen alle kleiner als 100 sind, wählen wir als Vergleichskriterium zu 
Beginn natürlich die Zahl 50. Weil wir aber im allgemeinen nicht wissen, was für 
Daten sich in dem Feld befinden, eine Überprüfung ist meist nicht möglich, oder 
kostet zusätzliche Rechenzeit, versuchen wir uns wenigstens bei vorsortierten Daten 
dem Optimum soweit wie möglich zu nähern. Dazu benutzen wir als Vergleichskri- 
terium ein Element in der Mitte des Feldes, bei einer ungeraden Anzahl von Ele- 
menten, das Mittlere. Die jeweils rechte und linke Grenze der sortierten Teilberei- 
che müssen wir uns natürlich merken, was wir später in Basic in zwei Feldern RE( ) 
und LI( ) tun werden. Ein Zeiger (ZE) zeigt dabei auf die nächsten zu bearbeiten- 
den Elemente aus RE( ) und LI(). 
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Hier nun die Dokumentation für QUICK-SORT nach Zahlen: 






QUICKZAHL 
QUICKSORT für Zahlen 























1010 REM - TESTRAHMEN FUER QUICKSORT 
1020 REM -----=--- 2-2 ---- 777 

1030 : 

1080 AN=500 

1070 DIM WE(ANZAHL} 

1071 DIM LI(AN/2} 

1072 DIM RE(AN/2) 

1080 : 

1090 FOR I=1 TO AN 

1100 : WE(I)=INT{RND(TI)*10XAN)+1 

1110 NEXT 

1120 : 

1130 T=TI 

1140 GOSUB 9000 

1150 T=({TI-T}/60 

1160 : 

1170 FOR I=1 TO AN 

1180 : PRINT I,WE(I) 

1190 NEXT 

1200 : 

1210 PRINT"BENOETIGTE ZEIT ";T; "SEKUNDEN = ";T/60; "MINUTEN" 
1220 : 

1230 END 

1240 : 

8000 
8010 
8020 
8030 : 
8040 PRINT "MINSORT ",LI,RE 
8050 FOR K=LI TO RE-1 

80860 : MI=1000000 





8070 : 

8080 : FOR L=K TO RE 

8090 : : IF WE(L) < MI THEN MI=WE(L) : WO=L 
8100 : NEXT 

8110 : 

8120 : HI=WECK) : WE(K)=WE(WO) : WE(WO)=HI 
8130 NEXT 

8140 : 

8150 


RETURN 
8160 : 
2000 








Listing 4/6.2.1-5 (Teil 1) 
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20 IF (RE-LI)<15 THEN GOSUB 8000 : GOTO Y9auu 
VE = WE((LI+RE)/2) . 
I=LI 
J=RE 
PRINT "QUICKSORT LINKS"; I, "RECHTS" ;J, "VERGLEICH"; VE 
FOR Z=1 TO 1000000 
IF WE(I) <= VE AND I<J THEN I=I+1 : GOTO 9200 


IF WE(J) > VE AND J>I THEN J=J-1 : G0TO 9210 
IF I=>J THEN 9340 


© HI WE(I) 
: WECI) = RES) 
: WED) = HI 


: I=I+l 
2 J=J-1 

IF J <= I THEN 9340 
NEXT 


IF I=J AND I=RE IHEN J=J-1 
IF I=J AND J=LI THEN I=I+i 
IF LI<J THEN ZE=ZE+1 : LI(ZE)=LI : RE(ZE)=J 
IF I<RE THEN ZE=ZE+1 : LI(ZE)=I : RE(ZE)=RE 


FOR X=1 TO ZE : PRINT "ZEIGER";X;":";LICX),RE(X) : NEXT 
IF ZE>O THEN 9080 


RETURN 





Listing 4/6.2.1-5 (Teil 2) 
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Struktogramm: 


Wert für Zeiger auf Grenzfelder initialisieren (=1) 





Grenzen des zu sortierenden Feldes in die Grenzfelder (LI() und RE() bei Index 1 
eintragen 





solange Teilbereiche zu sortieren sind 





Grenzen für den nächsten Sortiervorgang (Li und RE aus den Grenzfeldern über- 
nehmen) 





Zeiger in Grenzfelder eine Einheit zurücksetzen 





Wenn weniger als 15 Elemente zu sortieren sind, dann MINSORT aufrufen 





Vergleichselement festlegen (siehe Text) 





‘Laufvariablen’ | und J auf die äußeren Grenzen setzen 





solange der Sortiervorgang nicht beendet ist 





solange das aktuelle Element, auf das die Laufvariable | zeigt, kleiner 
oder gleich dem Vergleichselement ist und I noch nicht den Wert von J 
erreicht hat 








erhöhe Wert von I um 1 (aktuelle linke Grenze nach rechts) 





solange das aktuelle Element, auf das die Laufvariable J zeigt, 
größer als das Vergleichselement ist und J größer I ist 


vermindere Wert von J um 1 (aktuelle rechte Grenze nach links) 








Ist I größer oder gleich J? 


Vertausche Elemente i Ist ursprüngliche linke 
i ? 
mit Indices I und J Grenze links von J? 





erhöhe | um i ja nein 





vermindere j um 1 erhöhe Zeiger auf Ist ursprüngliche 
Grenzfelder um 1 rechte Grenze, 





merke ursprüngliche 
linke Grenze im 
Grenzfeld für links 








erhöhe Zeiger auf 
merke J im Grenzfeld Grenzfelder um 
für rechts 


merke | im 
Grenzfeld für 
links 


merke ursprüng- 
lich rechte 
Grenze im 
Grenzfeld 
für rechts 




















Rücksprung 
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Variablen: 

Name zul. Bereich Bedeutung 





Eingabeparameter: 























WE() Dezimalzahlen zu sortierende Daten 

Ausgabeparameter: 

WE() Dezimalzahlen sortierte Daten 

Lokale Variablen: (alle Integer kleiner als AN) 

HI Dezimalzahl zum Vertauschen 

| Integer linke Grenze des aktuellen Durchlaufes 

J Integer rechte Grenze des aktuellen 
Durchlaufes 

LI Integer linke Grenze des aktuellen Teil- 
bereiches 

LI() Integer linke Grenzen der noch zu sor- 
tierenden Teilbereiche 

RE Integer rechte Grenze des aktuellen Teil- 
bereiches 

RE() Integer rechte Grenzen der noch zu sor- 
tierenden Teilbereiche 

VE Dezimalzahi Vergleichselement (s. Text) 

ZE Integer(AN/2) Zeiger in die Hilfsfelder der 


zu sortierenden Teilbereiche 





Globale Variablen: 











AN Integer Größe des zu sortierenden Feldes 





Weitere Unterprogrammaufrufe: 


in Zeile nach Zeile Zweck 





9120 8100 MINZAHL muß angepaßt werden 








Rücksprünge: - 


In Zeile Art Bedingung Bemerkung 





9420 Return _ fertig 
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Wegen der Komplexität des Algorithmus wollen wir jedoch noch auf einige wesent- 
liche Punkte eingehen. Außer dem Feld für die zu sortierenden Daten müssen noch 
zwei Felder LI( ) und RE( ) im Hauptprogramm dimensioniert werden. Die Dimen- 
sionierung braucht maximal nur bis zur Hälfte der Anzahl der zu sortierenden 
Datenelemente zu gehen, da wir ja nicht bis zu einem einzelnen Element herunter 
mit QUICKSORT arbeiten, meist reichen auch kürzere Felder. In die ersten Ele- 
mente von LI() und RE() tragen wir die äußeren Grenzen aller zu sortierenden 
Daten ein, also 1 und AN. Auch den Zeiger auf den nächsten zu sortierenden Teilbe- 
reich setzen wir auf 1, da wir schließlich zu Beginn das ganze Feld bearbeiten müs- 
sen. 


Die Zeilen 9050 bis 9070 werden nur einmal benötigt. Bitte beachten Sie, daß Zeile 
9080 bereits zur Programmschleife gehört, in der QUICKSORT sich immer wieder 
selbst aufruft. Daher können wir auch eine Zuweisung in der Form ‘LI=1’ und 
“RE=AN‘ nicht durchführen, sondern verwenden gleich die entsprechenden Feld- 
elemente. Wenn wir einen neuen Durchlauf starten, müssen wir natürlich auch den 
Zeiger auf die aktuellen Grenzen vermindern (9100). 


Die Variablen RE und LI beinhalten also Indices auf das zu sortierende Feld. Wenn 
ihre Differenz kleiner als 15 ist, haben wir es nur mit einem kleinen Teilbereich zu 
tun, den wir aus den genannten Gründen nicht mit QUICKSORT, sondern MIN- 
SORT sortieren wollen. 


Wenn wir das Verfahren MINSORT angewendet haben (das noch auf unsere speziel- 
len Belange angepaßt werden muß, wie aus den Zeilen 8050, 8080, 8090 und 8120 
hervorgeht), können wir gleich zur Überprüfung übergehen, ob überhaupt noch ein 
Teilbereich zu sortieren ist. Dies ist der Fall, wenn unser Hilfselement ZE noch nicht 
den Wert 0 erreicht hat. Die Variable ZE gibt also nicht nur den aktuellen Index 
von LI) und RE( ) an, sondern zählt auch noch die zu sortierenden Teilbereiche. 


Hat der aktuell zu sortierende Teilbereich 15 oder mehr Elemente, so wird er mit 
QUICKSORT sortiert. Dazu wird in Zeile 9130 das Vergleichselement nach der be- 
reits erwähnten Methode ermittelt. Außerdem werden die beiden Laufvariablen auf 
die äußeren Grenzen des zu sortierenden Teilbereichs gesetzt. Zeile 9170 soll nur an- 
deuten, daß QUICKSORT seine Arbeit aufgenommen hat, und anhand der Gren- 
zen kann man den Sortierfortschritt erkennen, gegebenenfalls können sie die 
PRINT-Befehle löschen oder mit REM ausklammern. 


Die Zeilen 9150 bis 9320 bilden eine prinzipielle Endlosschleife. Die Laufvariable I 
läuft nun vom linken Rand zur Mitte und Laufvariable J vom rechten Rand zur 
Mitte. Abbruchkriterium ist in den Zeilen 9220/9310 der Vergleich von I und ]. 
Wenn I größer als J ist, ist der Teilbereich zu Ende sortiert, und die Werte werden 
als Rand für die beiden sortierten Teilbereiche herangezogen. 
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Zeile 9240 wird erreicht, wenn der Teilbereich noch nicht zu Ende sortiert wurde. 
Für den nächsten Suchvorgang müssen natürlich die aktuellen Laufvariablen ent- 
sprechend erhöht bzw. vermindert werden. 


Nachdem der Teilbereich sortiert wurde, ergeben sich zwei neue Teilbereiche, einer 
vom linken Rand bis zu der durch J markierten Stelle, und einer vom rechten Rand 
bis zu der von I markierten Position. Beide Grenzen werden in die Felder LI( ) und 
RE( ) eingetragen, wozu auch noch der Zeiger auf das aktuelle Feldelement erhöht 
wird. Es sei noch darauf hingewiesen, daß die Variable ZE nicht erhöht wird, wenn 
das Unterprogramm MINSORT aufgerufen wird. 


Die Zeilen 9340 und 9350 behandeln einen Spezialfall, nämlich wenn I und J gleich 
sind, und außerdem noch auf einer der beiden äußeren Begrenzungen. Hier würde 
der “liebste Fehler’ eines Programmierers auftreten: eine Endlosschleife. Der ak- 
tuelle Teilbereich würde immer wieder neu sortiert. Wir schaffen Abhilfe, indem wir 
die rechte oder linke Grenze — je nachdem, wo sich I und J befinden — um eine 
Einheit zur Mitte schieben. Der Fall tritt bei unglücklicher Wahl des Vergleichs- 
elementes auf. 


Sie sehen, daß die Verwaltung der einzelnen Teilbereiche bei QUICKSORT sehr auf- 
wendig ist. Versuche haben ergeben, daß andere Sortierverfahren bei 10 bis 15 zu 
sortierenden Elementen schneller sind, so daß QUICK-SORT immer in Verbindung 
mit einem anderen Sortierverfahren verwendet werden sollte. Wie der Sortiervor- 
gang im Hinblick auf die Teilbereiche und Zeiger abläuft, zeigt Ihnen Bild 4/6.2.1-6. 


QUICKSORT LINKS 1 
ZEIGER 1 : 1 
ZEIGER 2 : 81 
QUICKSORT LINKS 81 
ZEIGER 1 : 1 
ZEIGER 2 : 81 
ZEIGER 3 : 85 
QUICKSORT LINKS 85 
ZEIGER 1 : 1 
ZEIGER 2 : 81 
ZEIGER 3 : 85 
ZEIGER 4 : 97 
MINSORT 

MINSORT 

MINSORT 

QUICKSORT LINKS 1 
ZEIGER 1 : 1 
ZEIGER 2 : 55 


Bild 4/6.2.1-6 (Teil 1) 


RECHTS 100 


RECHTS 100 


RECHTS 100 
80 
84 
97 
100 
100 
97 


94 
RECHTS 80 
54 
80 


VERGLEICH 787 


VERGLEICH 809 


VERGLEICH 967 


VERGLEICH 522 
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QUICKSORT LINKS 55 RECHTS 80 VERGLEICH 576 
ZEIGER 1 : 1 54 

ZEIGER 2 : 55 84 

ZEIGER 3 : 65 80 

QUICKSORT LINKS 65 RECHTS 80 VERGLEICH 588 
ZEIGER 1 : 1 54 

ZEIGER 2 : 55 84 

ZEIGER 3 : 65 67 

ZEIGER 4 : 68 80 

MINSORT 68 80 

MINSORT 65 67 

MINSORT 55 84 

QUICKSORT LINKS 1 RECHTS 54 VERGLEICH 150 
ZEIGER 1 : 1 12 

ZEIGER 2 : 13 54 

QUICKSORT LINKS 13 RECHTS 54 VERGLEICH 373 
ZEIGER 1 : i 12 

ZEIGER 2 : 13 44 

ZEIGER 3 : 45 54 

MINSORT 45 54 

QUICKSORT LINKS 13 RECHTS 44 VERGLEICH 278 
ZEIGER 1 : 1 12 

ZEIGER 2 : 13 29 

ZEIGER 3 : 30 44 

MINSORT 30 44 

QUICKSORT LINKS 13 RECHTS 29 VERGLEICH 222 
ZEIGER 1 : 1 12 

ZEIGER 2 : 13 20 

ZEIGER 3 : 21 29 

MINSORT 21 29, 

MINSORT 13 20 

MINSORT 1 12 





Bild 4/6.2.1-6 (Teil 2) 


Es ist offensichtlich, daß die benötigte Rechenzeit mit der Anzahl der zu sortieren- 
den Elemente anwächst. Allerdings ist — wie Sie am Beispiel QUICKSORT sehen 
— nicht nur die Anzahl der Elemente ausschlaggebend. Wenn man nur die Anzahl 
der Elemente betrachtet (n), so ist bei SHELL-SORT der Aufwand proportional n? 
bei MINSORT/MAXSORT n?/2 und bei QUICK-SORT n»In(n). Nimmt man den 
Programmaufwand (Prüfen und gegebenenfalls Vertauschen), so ergibt sich nach 
Knuth (Arts of Computerprogramming, Art 3, Sorting and Searching) für ein pri- 
mitives Verfahren wie unser erstes Beispiel ein Aufwand von 2«n2 +9s*n und für 
QUICK-SORT ein Aufwand von 12»n=In({n)+2«n. 


Zwei Faktoren sind bei QUICKSORT jedoch von entscheidender Bedeutung, wenn 
man von dem Programmaufwand und der Anzahl zu sortierender Elemente ein- 
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mal absieht: Das Vergleichselement und die verwendete Programmiersprache bzw., 
der verwendete Rechner. Da der Programmaufwand bei QUICKSORT sehr groß ist, 
ergibt sich bei kompilierten Programmiersprachen ein deutlich größerer Vorteil. Ein 
ungeschickt gewähltes Vergleichselement kann andererseits den ganzen Rechenzeit- 
vorteil von QUICKSORT zunichte machen. Optimum ist, wenn jeder zu sortierende 
Teilbereich halbiert wird. 


Bevor wir kurz auf einige andere Sortierverfahren eingehen, noch eine kleine Tabelle 
mit den Rechenzeiten der drei vorgestellten Algorithmen: 


Sortierte Daten Unsortierte Daten 


MIN/MAX 











(circa-Angaben in: s=Sekunden; m=Minuten; h=Stunden) 
(QUICKSORT mit MINSORT bei weniger als 15 Elementen) 





Andere Sortierverfahren 


Zum Abschluß möchten wir noch kurz auf zwei andere Sortierverfahren eingehen. 
Wir haben zur Darstellung des Ablaufes der genannten Sortierverfahren immer das 
Beispiel ‘Sortieren von Karteikarten’ verwendet. Im normalen Büroalltag wird man 
sicherlich so vorgehen, daß man bei großen Mengen zunächst nach den Anfangs- 
buchstaben A bis Z 26 Stapel bildet, und diese dann in sich sortiert. Sind diese 
26 Stapel auch wieder sehr groß, wird man dann nach dem zweiten Buchstaben vor 
sortieren. Diese Vorgehensweise ist auch auf den Computer übertragbar, und das 
zugehörige Sortierprogramm wird RADIXSORT genannt. 


Beim Computer, insbesondere der Datenverarbeitung im kommerziellen Bereich, 
verwendet man für große Datenmengen (Kundenstammdaten etc.) bei dem Zugriffs- 
schlüssel auf einen Datensatz sehr häufig Suchbäume. Der einfachste Suchbaum ist 
der Binär-Baum (vergleiche Kapitel 4/4.7). Abgesehen davon, daß Suchbäume ei- 
nen schnellen, gezielten Zugriff auf bestimmte Datensätze ermöglichen, läßt sich 
durch einen geeigneten Weg in einem Suchbaum auch eine sortierte Reihenfolge er- 
zielen. Liegt also ein solcher Suchbaum, z.B. ein Binär-Baum, vor, so kann das Sor- 
tieren entfallen, da nur noch der Suchbaum abgearbeitet werden muß. 
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Es gibt auch ein Sortierverfahren HEAP-SORT, das zunächst einen Binär-Baum 
aufgrund der Daten aufstellt und diesen dann in der sortierten Reihenfolge abarbei- 
tet. In Basic ist das Aufstellen eines Binär-Baumes ein ziemlicher Rechenaufwand, 
so daß das Verfahren HEAP-SORT für eine Sortier- Anwendung meist nicht ge- 
eignet erscheint. Auch ist die Komplexität des Vorganges nicht so leicht zu durch- 
schauen, wie bei den vorgestellten Verfahren. Bei Programmiersprachen, die Varia- 
blen in sogenannter Verbundstruktur zulassen, wie z.B. PASCAL, und die 
außerdem durch eine Compilierversion relativ schnell sind, wird das Verfahren über 
Suchbäume häufig eingesetzt. 
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4/6.3 
Assembler-Utilities 





Bei den Utilities sollen neben Basic-Programmen und allgemeinen Routinen natür- 
lich auch Assembler-Utilities nicht zu kurz kommen. Zu unterscheiden ist hier zwi- 
schen eigenständigen Assembler-Utilities und solchen, die als Basic-Erweiterung 
eingebunden werden. Bei vielverwendeten Utilities ist es sicherlich besser, diese über 
einen neuen Basic-Befehl, gegebenenfalls mit Parametern, aufzurufen. Diesem Be- 
reich sind die Kapitel 4/6.4 für Erweiterung beim C 64 und 4/6.5 für Erweiterung 
beim C 128 vorbehalten. 


Zunächst sind als Assembler-Utilities ein Interrupt-Manager und Zahlkonvertierun- 
gen vorgesehen. Der Interruptmanager erlaubt es Ihnen, mehrere Programme 
gleichzeitig (jedenfalls aus Sicht des Anwenders) ablaufen zu lassen, wobei die 
Interrupt-Routine der Commodore-Rechner benutzt wird. 


Zahlkonvertierungen unterstützen allgemein die Arbeit mit dem Rechner, da man 
bei intensiver Arbeit ständig mit Dezimalzahlen, Binärzahlen und Hexadezimal- 
zahlen arbeiten muß. 


4/6.3.1 


Interrupt-Manager 
(Autor: Werner Eberl) 





Der C 128 weist gegenüber dem C 64 einige funktionelle Merkmale auf, die dem 
Benutzer das Programmieren dieses Rechners wesentlich erleichtern, so z.B. viele 
praktische Basic-Befehle und ein besser stukturiertes und urhfangreicheres Betriebs- 
system. 








Teil 4 Kapitel 6.3.1 Seite 2 Utilities 








6.3 Assembler-Utilities Teil 4: Software-Erstellung 


Was aber immer noch fehlt, ist eine Möglichkeit, mehrere Programme gleichzeitig 
nebeneinander laufen zu lassen, etwa im Sinne eines Multi-Tasking-Betriebes. Um 
dies wenigstens für Maschinenprogramme zu ermöglichen, stellen wir Ihnen im fol- 
genden einen Interrupt-Manager vor, der es ermöglicht, bis zu acht kleine Pro- 
gramme quasi gleichzeitig ablaufen zu lassen. Bei jedem Interrupt (also alle 1/60 
Sekunden) werden diese Programme nacheinander abgearbeitet. 


Mögliche Anwendungen sind: 
— Keyclick; bei jedem Tastendruck ertönt ein Klick im Lautsprecher. 


— Spezielle Musik- oder Grafikroutinen; dynamische Vorgänge wie etwa das Auf- 
und Abschwellen eines Tones oder dynamische Grafikeffekte lassen sich leicht 
in einem kleinen Maschinenprogramm formulieren, das dann vom Interrupt- 
Manager aufgerufen wird. 


— Blinkeffekte mit Rahmen- oder Hintergrundgarbe 
— Anschluß zusätzlicher Tasten über Joystick-Anschluß 
— Bedienung selbstgebauter Hardware-Erweiterungen 
— und vieles mehr 


Wir wollen an dieser Stelle keine der oben aufgeführten Programme abbilden, son- 
dern nur die notwendigen Hilfszellen und das eigentliche Programm des Interrupt- 
Managers darstellen. Ebenso nicht abgebildet ist die Routine zum Umbiegen des 
IRQ-Vektors auf unsere Manager-Routine. Dieses kleine Problem können Sie jedoch 
in ein paar Maschinenprogrammzeilen lösen, wobei Sie beachten müssen, daß Sie 
während des Umstellens des Vektors das Interrupt-Disable-Flag setzen müssen. Die 
nötigen Befehle sind z.B. in der Initialisierungs-Routine für unsere Basic-Erweite- 
rungen enthalten. 





FOEHTMAHL 
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Die erste Hilfszelle mit dem Namen IRQM stellt das Maskenregister für die acht 
Routinen dar. Ist das entsprechende Bit des Registers gleich 1, wird die zugehörige 
Routine bei jedem IRQ-Interrupt aufgerufen, sonst nicht. 


Als nächstes folgt die Sprungtabelle mit den Startadressen der einzelnen Interrupt- 
Routinen. In der vorliegenden Version des Interrupt-Managers ist es nur möglich, 
Routinen in den ersten 16 K der Bank O0 unterzubringen. Für die meisten Anwendun- 
gen dürfte dies jedoch ausreichen, da selbst mit dem Basic-Befehlsdekoder und dem 
Basic-Funktionsdekoder aus Kapitel 4/6.5.1 noch etwa 1 KByte frei ist. Die Ziel- 
adressen müssen in der Form Low Byte, High Byte eingetragen werden. 


Im abgedruckten Programmtext steht an Stelle der eigentlichen Ziele die Routine 
IDUMMY, die schlicht einen RTS-Befehl enthält, also nichts tut. Dies ist notwen- 
dig, damit der Rechner nicht ins Leere springt, falls versehentlich einmal ein Bit des 
Maskenregisters IRQM gesetzt wurde. An dieser Stelle sollte gesagt werden, daß die 
einzelnen Routinen immer mit RTS aufhören müssen, weil sie vom Interrupt- 
Manager im Prinzip mit einem JSR-Befehl aufgerufen werden. Die Verwendung des 
RTS-Befehls als Endemarke hat auch den Vorteil, daß beim Testen die Routine ein- 
fach mit SYS aufgerufen werden kann. 


Die Zelle TADR dient zur Aufnahme des späteren Sprungziels, die Zelle IRQZ mar- 
kiert die aktuell angesprochene Routine, indem an der entsprechenden Stelle eine 1 
gesetzt wird. 
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Das eigentliche Interrupt-Manager-Programm beginnt mit dem Label EIRQ. Das ist 
der Wert, auf den der Vektor IIRQ ($0314, $0315) gesetzt werden muß. Der Stan- 
dardwert dieses Vektors ist das Label NIRQ (=$FA65). 


Der Manager beginnt damit, eine 1 in die hinterste Stelle des Zählerbytes IRQZ zu 
schreiben. Die Schleife für alle acht Routinen befindet sich zwischen den Labels 
INTMANS und den darauffolgenden BCC-Befehl. Dabei wird jeweils das Zähler- 
register mit dem Maskenregister UND-verknüpft und, wenn in beiden Zellen an der 
entsprechenden Stelle eine 1 war, zur Interrupt-Ausführroutine gesprungen, sonst 
nur das Zählerbit weitergeschoben und zur Schleife gesprungen. Die Schleife wird 
beendet, wenn das Zählerbit in das Carry-Flag geschoben wurde. Daraufhin wird 
zur Standard-Routine NIRQ gesprungen. 


Die Interrupt-Ausführroutine wandelt zunächst die Information des Zählerbits (die 
Stelle, wo die 1 steht) in einen Offset-Zeiger für die Interrupt-Sprungtabelle um. Die 
entsprechenden Sprungzielwerte werden in die Zellen IADR und IADR +1 kopiert 
und dann ein indirekter Sprung ausgeführt. Um Sprünge in andere RAM-Bänke 
durchzuführen, müßte man anstatt des indirekten Sprungs eine Routine anspringen, 
die ähnlich der bei den Basic-Erweiterungen aufgeführten Weitsprungsequenz auf- 
gebaut ist (vgl. Kapitel 4/6.5.1.2). 


Um Ihnen die Vorgehensweise und die Möglichkeiten des Interrupt-Managers vor 
Augen zu führen, bieten wir nun ein ganz kleines Beispielprogramm an, daß einfach 
ca. alle vier Sekunden die Rahmenfarbe ändert. Wollen Sie diese Routine in den 
Manager einbauen, so müssen Sie die Adresse dieser Routine in eine der Zellen der 
Interrupt-Sprungtabelle eintragen und dann das entsprechende Bit im Maskenregi- 
ster IRQM setzen. 





14FF 00 ZAEHL: .BY 0 

1500 CE FF 14 TESTI: DEC ZAEHL 

1503 Do 03 BNE FERTIG 

1505 EE 20 DO INC $D020; Rahmenfarbe 
1508 60 FERTIG: ARTS 





Zum Testen können Sie folgendes Programm verwenden: 





10 FOR 1=1TO 10 

20 READ A$ 

30 POKE DEC (“14FF")+1—1,DEC(A$) 

40 NEXT 

50 DATA 0,CE,FF,14,D0,03,EE,20,D0,60 

60 POKE DEC("1307'‘),DEC(‘‘00“) : REM Low-Adresse 
70 POKE DEC(“1308‘),DEC(‘‘15“) : REM High-Adresse 
80 POKE DEC{'1306“),1 : REM Maskenregister 





Hier wird also nichts anderes durchgeführt als fortlaufend ein Zähler vermindert 
und, wenn dieser null ist, die Rahmenfarbe erhöht. 
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46.3.2 


Zahlenkonvertierung 
(Autor: Werner Eberl) 





Häufig benötigte Unterprogramme sind diejenigen zur Umwandlung von Zahlen- 
formaten. Die wichtigsten Zahlenformate sind: 


— Fließkommazahlen 
— Ganze Zahlen in 16-Bit-Darstellung 
— Zeichenreihen. 


Die folgenden Routinen sind so zusammengestellt, daß einheitliche Konventionen 
über die Parameterübergabe eingehalten werden können. Im einzelnen wurde fol- 
gendes vereinbart: 


— Fließkommazahlen werden im Fließkomma-Akkumulator als Ein- oder Aus- 
gabeparameter übergeben. 


— Positive ganze Zahlen von O bis 65535, auf englisch heißen solche Zahlen non 
signed integers. Sie werden in den Prozessor-Registern Akku und Y übergeben, 
wobei das höherwertige Byte im Akku steht. 


— Ganze Zahlen im Bereich von -32768 bis + 32767, sogenannte vorzeichenbehaf- 
tete ganze Zahlen, werden in Zweierkomplementdarstellung im Akku und 
Y-Register übergeben, wobei wieder das höherwertige Byte, das hier auch das 
Vorzeichen enthält, in den Akku gehört. 

— Zeichenreihen werden — unabhängig davon, ob sie in hexadezimaler, binärer 
oder dezimaler Form vorliegen — ab dem Label PUFFER-1 (=$00FF/255) ab- 
gelegt. Das Ende der Zeichenreihe wird mit einem 0-Byte markiert. Das erste 
Zeichen der Reihe ist bei dezimaler Darstellung ein Leerzeichen, bei hexadezi- 
maler Darstellung ein Dollarzeichen und bei binärer Darstellung ein Prozent- 
zeichen. 


Integer nach Fließkomma 


Eine vorzeichenlose ganze Zahl in 16-Bit-Darstellung kann mit der ROM-Routine 
NOSFLLT, die bei $84C9 beginnt, in eine Fließkommazahl, die im FAC gespeichert 
wird, umgewandelt werden. 


Fließkomma nach Integer 


Für die Umkehrung des oben beschriebenen Vorgangs gibt es leider keine ROM- 
Routine, die unseren Parameterkonditionen genügt, so daß wir hier ein Programm 
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mit 21 Byte angeben müssen, was diesen Zweck erfüllt. Zu beachten ist, daß im 
Gegensatz zu der Routine GETADR des ROMs diese Routine nicht den Inhalt der 
Zellen POKER, POKER+1 verändert. Die Routine verzweigt zu einer Fehlermel- 
dung, wenn das Vorzeichen negativ ist oder Exponent größer als 64 ist. Die eigent- 
liche Umwandlung geschieht mit der ROM-Routine QINT, die das Ergebnis im 
niederwertigsten Byte des FAC hinterlegt, aus welchem wir sie lesen können. 








FLEHOS: 
gas F R ; ICHEN TESTEN 
i SMEGATIY, DANM FEHLER 


B SHEHTEH TESTEH 
„GRDESSER ALS 4 

: DAHN FEHLER 

; IHTEGER BILDEN 
SHIGH-ETTE 
LOW-ETTE 


" FEERR Ill, ARAHT. ERR,“ 
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Signed-Integer nach Fließkomma 


Hier haben wir es wieder einfach, weil hier im ROM eine entsprechende Routine 
vorhanden ist. Sie hat allerdings einen seltsamen Namen: GIVAYF und beginnt bei 
$793C. 


Fließkomma nach Signed-Integer 
Auch hier geht’s einfach und zwar mit der Routine FLPINT ab $84B4. 


Dezimalstring nach Fließkomma 


Diese Aufgabe entspricht der Basic-Funktion VAL. Wir können auch die entspre- 
chende Basic-Befehls-Routine ab $804A verwenden, wobei wir jedoch beachten 
müssen, daß diese Routine erwartet, daß ein Stringdeskriptor auf dem Stringstapel 
liegt, wie dies z.B. der Fall ist, wenn ein Stringparameter mit der Routine FRMEVL 
geholt wird. 


Die andere Möglichkeit ist, das Label VALI1, das bei $8052 liegt, zu benützen. Dann 
müssen wir jedoch die Startadresse des Strings in die Zellen INDEX, INDEX +1 
($24,$25) und die Länge im Akku übergeben. Außerdem muß sichergestellt sein, 
daß der String eine nichtverschwindende Länge besitzt. 


Fließkomma nach Dezimalstring 


Diese Umwandlung entspricht der STR$-Funktion. Die entsprechende Standard- 
Routine aus dem ROM macht zwar das, was wir wollen, aber sie macht auch zuviel: 
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Sie kopiert den String aus dem Pufferbereich in die Bank 1 und legt einen String- 
deskriptor des neuen Strings auf den Springstapel. Das ist in manchen Fällen sogar 
praktisch; wenn er aber stört, muß man ihn mit einem Aufruf von FRESTR wieder 


entfernen. 


Hexadezimal nach Integer 


Handwerk hat goldenen Boden und deshalb werden wir hier die gesamte Umwand- 
lungsroutine programmieren, ohne auf das ROM zurückzugreifen. Anstelle des 
Akkus und des Y-Registers wollen wir jedoch die Hilfszellen H2, H3 (=$64,$65) be- 
nutzen. Im Y-Register übergeben wir dann der Routine die maximale Anzahl von 
hexadezimalen Ziffern, die sie auswerten soll. Nach der Umwandlung gibt uns die 
Routine in diesem Register die Zahl der tatsächlich umgewandelten Ziffern zurück. 


























HEHIMT: 
Str > MARIMALZAHL MERKEN 
Lo 
Sr 
u, 
HERIMTL: 
cp Hi >MAS IMALZAHL VE 
BES HEHINTS 
LEA PLFFER. >HREÖHSTES ZEICHEN 
SE 
##20 SEnDE FUER "a" SIUE,. 
#10 
HESINTZ DA El 
Te LEHT 1 
:KLEIHER 12. DANH E% 
‚>=1%5. DAN ENDE 
HEAIHTE: 


;H2,H2 MIT 15 
:MULTIFLIEIEREN 





SMERT IH DIE LETZTEH 
4 EIT EINTE 
;HREIHSTE HE 






ENE HEHIHTI 





HESIHTS: 














416.3.2-2 
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Integer nach Hexadezimal 


Auch hier wollen wir eine ausprogrammierte Routine vorstellen, obwohl man in 
vielen Fällen die HEX$-Routine des ROM benützen kann. 
Im Y-Register wird der Routine übergeben, aus wievielen hexadezimalen Ziffern die 


Zahl bestehen soll. Auch hier werden die Zellen H2, H3 an Stelle von Akku und 
Y-Register als Eingabeparameter verwendet. Die Zeichenreihe wird ab $1010=256 


abgelegt. 





































4a IMTHE= : 
415 LO #4 
+11 STA FUFFER. Tr ; EHDEMAREITERUHG 
4lz DET 
413 IHTHERL: 
414 Hz 
+15 #EAF >4+ BIT YO HE 
+iE He 
+17 IHTHE ;ELEINER 18 
5 #06 SERRRT GESETZT 
IHTH 
En > #8 Y ESLERR 1 
= FLFFER. AGEH 
Bi : HZ ;H2.H2 DURCH 
Es 4 H3 18 TEILEH 
EI 4 HZ 
2 + : HZ 
4 4 Hz 
Sr 4 
5 + 
ei 4 
E ; 
4 INTHES1 
4 
4 
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Binär nach Integer 


Die Vorgehensweise ist hier ganz analog zur Umwandlung von Hexadezimal nach 
Integer (s. 0.). 


Utilities 
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Integer nach Binär 


EININT: 


EIMINTI: 


EINIHTZ: 


EIHNINTS: 


Str 
tr 
Str 
STr 


SR 
BER 


Hi 
Ha 


H3 


Hi 
EIHIHTR 
PUÜFFER. 
# a 


: EINIMTS 


#331 


% EBININTZ 


EIMIHNTS 


H3 
Hz 


EINIHNTI 
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AS IMALZAHL MERKEN 


ELHSTE ZIFFER 


> CAR BERCHTEH 


‚Fr REINRÖTIERH 


HLEIFE 


Hier ist die Routine analog zur Routine „Integer nach Hexadezimal“ programmiert. 








S4lE FR Eu 
non Ba al 
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INTEIH: 


IMTEIHL: 
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LEA 
STA 
DET 





Tür 
LORA 
AD 
STA 
DET 
EFL 
RTS 


#2 
FUFFER. 


* HE 


#5 
#+25 
FUFFER: 


IMTEIMI 





> EHDIEMARKTERLNG 


;EIT RAUSSCHIEBEH 
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4/6.3.6 


Datenkomprimierung 
Autor: Manfred Friese 





Wenn Sie auf Ihrem C64 Maschinenprogramme laufen lassen, mehrere Bildschirme 
nutzen, Berge von Daten berechnen, Speicherbereiche unter den ROMs nutzen oder 
Graphiken erstellen, stehen Sie sicherlich oft vor dem Problem, einen Speicher- 
bereich auf Diskette speichern oder von Diskette lesen zu wollen. Wenn Sie dies 
außerdem noch intensiv betreiben, ärgert Sie sicherlich zusätzlich die recht kleine 
Kapazität der Floppy 1541. 


Doch hier bietet sich eine Lösung an: die Datenkomprimierung. Bei der Daten- 
komprimierung versucht man, bestimmte in dem zu speichernden Bereich vorkom- 
mende Bytefolgen durch kürzere zu ersetzen. Eine Methode der Datenkomprimie- 
rung wollen wir in diesem Beitrag vorstellen. 


Wenn man Datenkomprimierung auf dem 64er betreibt, sollte man aber vorher 
überlegen, welchen Aufwand man für die Komprimierung treiben will. Der Spei- 
cherbereich des 64er ist mit 64 KByte heute als sehr klein zu betrachten. Hinzu 
kommt die langsame Datenübertragung zur Floppy 1541 über den seriellen Bus. 


Daher lohnt sich nur eine einfache Datenkomprimierung. Sie hat den Vorteil, 
schnell zu sein (so schnell, daß man bei der 1541 nichts davon bemerkt) und sich 
recht kurz programmieren zu lassen. Was nutzt eine aufwendige Komprimierung, 
wenn die Routine dazu bereits den halben Speicher belegt? 


Wir werden bei unserer Komprimierung versuchen, Folgen gleicher Byte zu finden. 
Eine Graphik beinhaltet oft große Flächen gleicher Farbe. Diese werden im Speicher 
durch Byte gleichen Wertes repräsentiert. Zählt man die Bytes gleichen Wertes, kann 
man eine Folge gleicher Bytes durch ein Byte mit der Anzahl und einem Byte mit 
dem Wert ersetzen. 


Was macht man aber mit Folgen ungleicher Byte? Jedem eine Anzahl voranstellen? 
Das würde wohl eher zu größeren Dateien führen. Aber es geht auch anders. Wir 
können ja abzählen, wie viele ungleiche Byte folgen. 
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Dann müssen wir noch eine Anzahl gleicher von einer Anzahl ungleicher Byte 
unterscheiden. Für diesen Zweck benutzen wir das oberste Bit des Bytes, in dem die 
Anzahl gespeichert ist. Ist es gesetzt, folgt eine Sequenz ungleicher Byte, andernfalls 
eine Sequenz gleicher Byte. In den restlichen sieben Bits können wir dann die An- 
zahl unterbringen. Ein Byte dieser Form werden wir im folgenden Steuerbyte nen- 
nen. 


Auf diese Weise lassen sich Sequenzen bis zu 127 Byte kodieren. Längere Sequenzen 
müssen daher zerlegt werden. 


Beispiel 





Aus der Bytefolge 
1,2,3,4,5,5,5,5,5,5, 6, 7,8 9, 10 


der Länge 15 Byte wird 
132, 1,2,93, 4, 
6,5, 
133, 7, 8, 9, 10 
der Länge 12 Byte. 











Mit dieser einfachen Methode sparen wir aber nur etwas, wenn Sequenzen gleicher 
Byte in dem Bereich vorkommen. Wenn wir Pech haben, gibt es keine solche Se- 
quenz. Dann würde die Datei sogar größer, denn die Datei würde für jeden Block 
von 127 Byte durch das Hinzukommen des Steuerbytes 128 Byte speichern. Dies ent- 
spricht einer Vergrößerung um 0,7%. 


Komplexere Komprimierungsmethoden versuchen daher ganze Bytekombinationen 
durch kürzere zu ersetzen, was auch bei derartigen Dateien zu Verbesserungen füh- 
ren kann. Aber auch sie müssen unter Umständen passen. Gute und aufwendige 
Komprimierungsprogramme versuchen daher verschiedene Methoden und verwen- 
den dann die Methode mit dem kürzesten Ergebnis. Dies kann unter Umständen 
dann auch die unkomprimierte Fassung sein. 


Solche Programme brauchen aber recht lange und werden daher nur zur Archivie- 
rung angewandt. Für unsere Zwecke wären sie ungeeignet. 


Nachdem wir uns über die Komprimierungsmethode klar geworden sind, können 
wir uns mit der Gestaltung des Programms befassen. Eine unserer Forderungen war 
eine angemessene Geschwindigkeit. Dieser Forderung müssen wir natürlich auch bei 
dem Programm nachkommen. Als Programmiersprache nehmen wir daher den in 
diesem Buch vorgestellten Assembler. 


Bleibt die Frage des Aufrufs der Routinen zu klären. Wir haben uns’hier dazu ent- 
schlossen, die Routinen als Erweiterung der Befehle LOAD und SAVE des 64er BA- 
SIC zu implementieren. Dazu werden wir eine kleine Routine schreiben, welche die 
Aufrufe von LOAD und SAVE erkennt und unsere erweiterten Aufrufe analysiert. 
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Wenn Sie die ebenfalls in diesem Buch vorgestellte Basic-Erweiterung benutzen, 
können sie die Routinen natürlich auch dort verwenden. 


Die Befehle LOAD und SAVE sollen bei unserer Implementierung weiter wie bisher 
arbeiten. Wenn wir die Komprimierung wünschen, signalisieren wir dies mit dem 
BASIC-Schlüsselwort ON. Also lauten die Aufrufe dann 


LOAD ON ““< Dateiname >"; <Device> 


o 


ZW. 


SAVE ON “< Dateiname >", <Device> 


Gespeichert wird auch hier wieder ein im Speicher befindliches Programm. Für 
BASIC-Programme lohnt die Komprimierung aber meist nicht. Nur wenn z.B. 
Graphiken mit dem PRINT-Befehl enthalten sind, kann man akzeptable Kompri- 
mierungen erreichen. Außerdem wollen wir ja auch Hires-Graphiken und ähnliches 
speichern können. Wir brauchen daher noch einen Aufruf, der es uns ermöglicht, 
beliebige Speicherbereiche auf Diskette zu übertragen. Dieser Aufruf soll die Form 


SAVE ABS <von>, <bis> ‘<Dateiname>‘<Device> 


haben. Die Variable von gibt dabei die Startadresse des Speicherbereichs an, und 
die Variable bis die erste nicht mehr zu speichernde Adresse. Wenn Sie z.B. eine 
Hires-Graphik im Speicherbereich von $A000 bis $BFFF erzeugt haben, wird diese 
durch den Aufruf 


SAVE ABS 10*4096,12*4096,‘Test‘;8 


als Datei 7est auf Diskette geschrieben. Unser neuer LOAD-Befehl lädt Daten 
immer an ihre Originaladresse. Die gespeicherte Graphik kann daher jederzeit durch 
den Befehl 


LOAD ON “Test"‘8 


wieder in den Bereich $A000 bis $BFFF geladen werden. Manchmal möchte man 
jedoch Daten in einen anderen Speicherbereich laden. Auch diese Möglichkeit soll- 
ten wir daher vorsehen. Nehmen wir z.B. an, Sie wollen die Graphik der Datei Test 
in den Speicherbereich ab $E000 laden. Genau dies soll dann der Aufruf 


LOAD ABS 14*4096,'Test‘;8 


leisten. 


n 
Ss 
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Fassen wir die möglichen Aufrufe noch einmal in einer Tabelle zusammen: 













Aufruf 
SAVE “Name“;D,S 


Bedeutung 








speichert das aktuelle Programm unter dem Namen Name 
auf das Gerät D mit Sekundäradresse $. (wie bisher). 





SAVE ON “'Name‘\,D speichert das aktuelle Programm komprimiert unter dem 


Namen Name auf das Gerät D. 





SAVE ABS Von,Bis‘‘Name‘;D | speichert den Bereich von Von bis Bis (ausschließlich) unter 


dem Namen Name auf das Gerät D. 






LOAD ‘‘Name‘,D,S 
LOAD ON “Name‘‘D 


wie bisher. 









dekomprimiert und lädt die Datei Name von Gerät D an ihre 
Originaladresse. 






LOAD ABS Von,'Name‘,D dekomprimiert und lädt die Datei Name von Gerät D an die 


Adresse Von. 


Bitte beachten Sie dabei, daß bei den Speicher- und Ladebefehlen die ROM-Berei- 
che immer ausgeblendet werden. Alle Daten beziehen sich daher auf den 64-KByte- 
RAM-Speicher des C 64. 


Wenden wir uns jetzt dem Programmlisting zu. Im folgenden finden Sie das Über- 
setzungsprotokoll der neuen Lade- und Speicherbefehle. Wir werden sie abschnitt- 
weise besprechen. 


Das Listing beginnt mit der Vereinbarung der benötigten Konstanten für Zeiger, 
Betriebssystemroutinen und Vektoren. Als Adresse der Routinen ist $C000 vorge- 
sehen, was Sie selbstverständlich ändern können. Während des Assemblerlaufes 
erfolgt die Ausgabe der Routinen in das RAM. Sie können anschließend durch den 
Befehl 


SYS 12+4096 


von BASIC aus in das Betriebssystem eingebunden werden. 


Die Konstante Datei vereinbart die logische Dateinummer für die verwendeten 
Open-Befehle. Sie kann frei gewählt werden. Wir haben hier 13 angegeben. 


Die Konstanten TkLoad bis TkAbs enthalten die Werte der Token für LOAD bis 
ABS. 
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** Pass 1 **+ 
Ausgabe auf Diskette? (J=1) 1 


x Pass 2 ++ 











1 
2 ce 
3 (c} M.Friese 6/89 
4 DERZERERZESEFSFERSERE EIER FE E ne 
5 
c000 6 .ba $c000 ;‚Startadresse 
7 .0S ;Ausgabe in RAM 
8 „wa ;bei Fehler warten 
9 Routinen: ;St artadresse merken 
10 
11 DATEI: .eq 13 ;logische Dateinummer f. alle Operationen 
12 
13 SpNorm: .eq $37 ;ROM eingeschaltet 
14 SpRAM: „eg $34 ;alles RAM 
15 PP: .eq 1 ‚Prozessorport 
16 
17 Ymem: .eq 2 ;Speicher fuer Y-Register 
18 Integer: .eq $14 ;Integer-Akku des BASIC 
19 BasStart: .eq $2b ;Startadr. BASIC 
20 BasEnd: .eq $2d ;Endadr. BASIC 
21 Status: .eq $90 ‘ ;Statusflag IEC-Bus 
22 
23 a2g: .eq 251 ‚allgem. Zeiger 1 
24 azg2: .eq 253 ;allgem. Zeiger 2 
25 
26 GetVec: .eq $308 ;CHRGET-Vektor 
27 
28 TkLoad: .eq 147 ;Token: LOAD 
29 TkSave: .eq 148 ;Token: SAVE 
30 TkOn: .eq 145 ;Token: ON 
31 TKAbS: .eq 182 ;Token: ABS 
32 
33 ChrGet: .eq $73 ;CHRGET-Routine 
34 ChrGot: .eq $79 ;CHRGOT-Routine 
35 N 
36 Open: .eq $ffco ;Datei oeffnen 
37 Close: .eq $ffc3 ;Datei schliessen 
38 Chkout: .eq $ffc9 ‚Ausgabe in Datei umlenken 
39 ChkIn: .eq $ffc6 ;Eingabe aus Datei umlenken 
40 Eeirch: .eq $ffcc ;Ein- und Ausgabe normal 
41 BasIn: .eq $ffct ;ein Zeichen lesen 
42 BasOut: „eg $ffd2 ;ein Zeichen schreiben 
43 BasLoad: .eq $e168 ;BASIC-LOAD-Befenl 
44 BasSave: .eq $ei56 ;BASIC-SAVE-Befehl 
45 FileParas: .eq $eld4 ;Fileparameter lesen 
46 GetNum: .eq $ad8a ;numerischen Wert lesen 
47 ValInt: .eq $b7f7 ;Wert nach Integer wandeln 
48 ChkKom: .eq $aefd ;auf Komma testen 
49 
50 








Listing 4/6.3.6-1 


Wenn der erzeugte Code auf Diskette ausgegeben werden soll, wird die Ausgabe in 
das RAM abgeschaltet. Zusätzlich zu den Routinen erzeugen wir dann noch einen 
BASIC-Programmkopf, der es uns erlaubt, die Routinert mit einem normalen 
LOAD-Befehl zu laden und mit RUN zu starten. Da wir dies bereits bei vielen Gele- 
genheiten gezeigt haben (z.B. bei dem Assembler selbst), wollen wir hier nicht weiter 
darauf eingehen. 
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Dem BASIC-Vorspann folgt noch eine Verschiebeschleife, welche die Routinen nach 
$C000 verschiebt. Wenn Sie die Startadresse der Routinen ($C000) ändern wollen, 
brauchen Sie dies nur bei dem .ba-Befehl in Zeile 6 zu tun, da diese Adresse durch 
das Label Routinen übernommen wird. 


An die Verschiebung schließt sich noch die Ausgabe einer kleinen Meldung an. 
Durch den Befehl 


werden die Routinen automatisch in das Betriebssystem eingebunden. Sie können 
dies aber jederzeit noch durch 


SYS 12*4096 


erreichen (z.B. nach einem RESET). Durch den NEW-Befehl im BASIC-Kopf 
löscht sich das Programm nach der Initialisierung selbst. 





"Ausgabe auf Diskette? (J=1) ” 

























55 .?e DISK-1 ‚Ausgabe auf Disk? 
0801 56 .ba $801 ‚dann Basis $801 
57 .0C ‚und keine Ausgabe in’s RAM 
58 .ou "@0:kompri” ‚Ausgabe in Datei "kompri" 
59 ö 
0801 Od 08 c5 60 .by 13,8,<1989,>1989; 1989 SYS2063:NEW 
07 
0805 Ye 32 30 61 .by 158,"2063” ‚erzeugen 
36 33 
0804 3a a2 62 „by 58,162 
080c 00 00 00 63 „by 0,0,0 
64 
080f a9 72 65 Ida #<ANFANG ‚azg auf Anfang des Codes 
0811 a2 08 66 1dx #>ANFANG 
0813 85 fb 67 sta azg 
0815 86 fc 68 stx azg+1 
0817 a9 00 69 ida #<Routinen ;‚azg2 auf Zieispeicher 
0819 a2 cO 70 ldx #>Routinen 
081b 85 fd 71 sta azg2 
081d 86 fe 72 stx azg2+1 
081f a0 00 73 Idy #0 
0821 b1 fb 74 Kopie: ida (azg),y ;Speicher kopieren 
0823 91 fd 75 sta (azg2),y 
0825 e6 fb 76 inc azg ;azg+! * 
0827 do 71T *%+2+2 








Listing 4/6.3.6-2 (Teil 1) 
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0829 e6 fc 78 inc azg+i 
082b e6 fd 19 inc azg2 ;azg2+1 
082d dO 02 80 bne *+2+2 
o082f e6 fe 81 inc azg2+1 
0831 a5 fd 82 Ida azg2 ‚Endwert erreicht ? 
0833 c9 0c 83 cmp #<ENDE+1 
0835 dO ea 84 bne Kopie ‚nein 
0837 a5 fe 85 Ida azg2+1 
0839 c9 c2 86 cmp #>ENDE+1 
083b dO e4 87 bne Kopie ‚nein 
88 
0834 20 00 cO 89 jsr Start ;Programm starten 
90 
0840 b9 Ac 08 91 Melden: Ida Meldung, y ;Meldung ausgeben 
0843 fO 06 92 beq Fertig 
0845 20 d2 ff 93 jsr BasOut 
0848 c8 94 iny 
0849 dO f5 95 bne Melden 
084b 60 96 Fertig: rts ‚und fertig 
97 
98 ;Text der Meldung 


084c Od cb Af 99 Meldung: .by 13,"Komprimierungsroutinen” 
4d 50 52 49 Ad 49 45 52 55 4e 47 53 52 4f 55 54 49 4e 45 4e 





0863 Od 49 4e 100 .by 13," installiert!",13,0 
53 54 41 Ac 4c 49 45 52 54 21 0d 00 
101 ANFANG: 
102 
103 .cb Routinen ‚Basisadr. wieder korrigieren 
104 „eb 
105 


106 


Listing 4/6.3.6-2 (Teil 2) 


Die nun folgende Start-Routine steht immer an der Adresse $C000 (bzw. an der von 
Ihnen in Zeile 6 gewählten Adresse). Sie bindet die neuen Befehle in das System ein, 
indem sie den Vektor der ChrGet-Routine auf eine eigene Routine umlenkt. Die 
ChrGet-Routine wird vom Betriebssystem benutzt, um ein Zeichen aus dem BASIC- 
Programm zu lesen. 


19 





Teil 4 Kapitel 6.3.6 Seite 8 





Utilities 








6.3 Assembler-Utilities Teil 4: Software-Erstellung 


107 

108 

109 5 
c000 a9 Ob 110 & ida #<NeuBef ;CHRGET auf neue Routine 
c002 a2 co 111 idx #>NeuBef ;umlenken 


c004 &8d 08 03 112 sta GetVec 
c007 8e 09 03 113 stx GetVec+1 
c00a 60 114 rts 

115 





Listing 4/6.3.6-3 


Unsere neue Routine ruft zunächst die alte ChrGet-Routine auf. Liefert diese das 
Token für LOAD oder für SAVE, so arbeiten wir unsere eigenen Befehle ab. An- 
dernfalls überlassen wir alles weitere wie bisher den Routinen des Betriebssystems. 


73 00 116 Neußef: jsr ChrGet ;ein Zeichen holen 
93 117 cmp #TkLoad ;LOAD-Token ? 

da 118 beq MyLoad ‚ja 

94 119 cmp #TkSave ;SAVE-Token ? 


71 120 beq MySave ;Jja 
79 00 121 3sr ChrGot ‚sonst an BASIC zurueckgeben 
e7 a7 122 jmp $a7e7 

123 


124 





Listing 4/6.3.6-4 


Die Routine MyLoad wird bei einem LOAD-Befehl aufgerufen. Sie testet, ob dem 
LOA.D-Ioken ein Token für ON oder für ABS folgt, und ruft dann die entsprechen- 
den Routinen auf. Folgt weder ein ABS noch ein ON, wird einfach die Laderoutine 
des Betriebssystems gestartet. 
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c0ic 20 73 00 128 MyLoad: jsr ChrGet ‚ein Zeiche lesen 
coif c9 b6 129 cmp #TkAbs ;Token ABS ? 
co21 fü 0a 130 beq LoadAbs ‚ja 
c023 c9 91 131 cmp #TkOn ;Token ON ? 
c025 fO 36 132 beq Load ‚Ja 
c027 20 68 ei 133 jsr BasLoad ‚sonst normale Routine aufrufen 
c02a 4c ae a7 134 jmp $a7ae ‚und zu BASIC 
135 
136 


I 


Listing 4/6.3.6-5 








Im folgenden wird der LOAD-ABS-Befehl ausgeführt. Wir lesen die Zieladresse als 
Integer-Zahl (ganzzahlige Zahl zwischen Null und 65535) ein und speichern sie in 
azg. Dann wird über die Betriebssystemroutine FileParas Dateiname, Geräteadresse 
und Sekundäradresse eingelesen. Als logische Dateinummer setzen wir Datei. Die 
evtl. eingelesene Sekundäradresse wird durch Null ersetzt. Dann kann die Datei ge- 
öffnet werden. 


Durch den Aufruf der ChkIn-Routine legen wir fest, daß die Eingabe ab sofort aus 
der Datei erfolgt. Nachdem wir noch die in der Datei stehende Adresse überlesen 
haben, können wir bei LoadEnd fortfahren. 


LoadAbs: 
‚Adresse einlesen 
Vallnt ;in Integer wandeln 
Integer ;azg auf Adressse 
azg 


Integer+1 

azg+1 

Chkkom ;auf Komma testen 
FileParas ‚restliche Parameter holen 
#DATEI ;log. Dateinummer 

$b8 ‚setzen 

#0 ;Sekundaeradr. 








Listing 4/6.3.6-6 (Teil 1) 
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sta $b9 ;immer Null 

jsr Open ;Open Datei 

1dx #DATEI ‚Eingabe aus Datei 
jsr ChkIn 

jsr BasIn ‚Adresse ueberlesen 


jsr BasIn 
JSmp LoadEnd ;weiter bei LoadEnd 





Listing 4/6.3.6-6 (Teil 2) 


Die LOAD-ON-Sequenz ist noch einfacher. Hier können wir auf das Einlesen der 
Integer-Zahl verzichten. Die Adresse, die wir bei LOAD ABS überlesen haben, spei- 
chern wir statt dessen in azg. Dann rufen wir die Ladeschleife LoadLoop auf. Sie 
lädt die Daten in den Speicher. Beendet wird der Befehl wieder von dem Betriebs- 
system. Es erwartet für seine Arbeit in X und Y die Endadresse des Speicher- 
bereichs. 











PT ee... 
161 DT 
162  ;-- LOAD-ON-Befehl ai 
163 GT m nn 
co5d 20 73 00 164 Load: jsr ChrGet 
c060 20 d4 ei 165 jsr FileParas ‚Parameter holen 
c063 a9 Od 166 Ida #DATEI ;log. Dateinummer 
c065 85 b8 167 sta $b8 ‚setzen 
c067 a9 00 168 Ida #0 ;Sekundaeradr. 
c069 85 b9 169 sta $b9 ‚immer Null 
c06b 20 cO ff 170 jsr Open ;Open Datei 
cObe a2 0d ı71 1dx #DATEI ‚Eingabe aus Datei 
c070 20 c6 ff 172 jsr ChkIn 
c073 20 cf ff 173 jsr BasIn ‚Adresse in azg 
c076 85 fb 174 sta azg ‚einlesen 
c078 20 cf ff 175 jsr BasIn 
c0Tb 85 fc 176 sta azg+i 
c07Td 20 97 ci 177 LoadEnd: jsr LoadLoop ‚Ladeschleife 
c080 a6 fb 178 ldx azg ;‚Endadr. in X/Y 
c082 a4 fc 179 ldy azg+i 
c084 Ac al et 180 jmp $eiat ‚weiter beim BASIC-LOAD 
181 
182 





Listing 4/6.3.6-7 
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Bitte beachten Sie, daß der LOAD-ON- bzw. LOA.D-ABS-Befehl genau wie der nor- 
male LOAD-Befehl abgeschlossen wird. Dies bedeutet insbesondere, daß ein Basic- 
Programm von vorn abgearbeitet wird. Ist dies nicht erwünscht, sollten Sie die Zeile 
180 durch den Befehl 


einsetzen. Die Zeilen 178 und 179 können dann entfallen. Allerdings wird dann auch 
nicht mehr das Speicherende beim Laden von komprimierten Basic-Programmen 
richtig gesetzt. 


Die Routine MySave arbeitet wie MyLoad. Sie wird bei einem SAVE-Befehl aufge- 
rufen. Sie testet, ob dem SAVF-Token ein Token für ON oder für ABS folgt, und 
ruft dann die entsprechenden Routinen auf. Folgt weder ein ABS noch ein ON, wird 
wieder einfach die Speicherroutine des Betriebssystems gestartet. 


MySave: jsr ChrGet ‚ein Zeichen lesen 
cmp #TkAbs ;ABS-Token ? 
beq SaveAbs ‚Ja 


cmp #TkOn ;ON-Token 

beq Save ‚3a 

jsr BasSave ‚sonst normale SAVE-Routine 
jSmp $a7ae ;zurueck zu Basic 





Listing 4/6.3.6-8 


Bei dem SAVE-ABS-Befehl lesen wir zunächst die Startadresse ein und speichern sie 
in Von. Dann muß ein Komma folgen. Die nun folgende Endadresse wird wieder 
eingelesen und in Bis abgelegt. Dann können wir unsere Arbeit bei DoSave fort- 
setzen. 
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!-- SAVE-ABS-Befehl 


SaveAbs: 
‚Adresse lesen 
;in Integer wandeln 
;als VON speichern 


Integer+1 

von+1 

ChkKom ‚auf Komma testen 
GetNum ‚Adresse lesen 
ValInt ;in Integer wandeln 
Integer 

bis ;als BIS speichern 
Integer+1 

bis+1 

ChkKom ‚auf Komma testen 
DoSave ;weiter bei DoSave 





Listing 4/6.3.6-9 


Noch einfacher ist es bei dem SAVE-ON-Befehl. Hier brauchen wir keine Adressen 
einzulesen, sondern wir kopieren einfach die BASIC-Startadresse in Von und die 
BASIC-Endadresse in Bis. 


Dann werden die restlichen Dateiparameter gelesen. Wie bei den LOAD-Befehlen 
wird die logische Dateinummer gesetzt und eine evtl. vorhandene Sekundäradresse 
ersetzt. Dann kann die Datei geöffnet werden. Durch den folgenden ChkOut-Auf- 
ruf wird jede nun folgende Ausgabe in die Datei umgeleitet. 


Die Routine SaveLoop speichert den angegebenen Bereich dann in die Datei. 
Anschließend können wir die Kontrolle wieder an das Betriebssystem übergeben. 


216 
217 
218 
a5 2b 219 - Ida BasStart ;VON ist Basic- 


8d 07 c2 220 sta von ‚Startadresse 

a5 2c 221 Ida BasStart+1 

8d 08 c2 222 sta vont+1 

ab 2d 223 ida BasEnd ;BIS ist Basic- * 
8d 09 c2 224 sta bis ‚Endadresse 








Listing 4/6.3.6-10 (Teil 1) 
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BasEnd+t1 
bis+1 
ChrGet 

DoSave: FileParas ;Fileparameter lesen 
#DATEI ;log. Dateinummer 
$b8 ‚setzen 
#1 ‚Sekundaeradr. 
$b9 ;ist immer 1 
Open ‚Open Datei 
#DATEI ;Ausgabe in Datei 
Chkout 


von ;Startadr. in Datei schreiben 


azg 
BasOut 

von+1 

azgt1 ;und in azg bringen 
BasOut 

SaveLoop ;Speicherschleife 
$a7ae ‚und weiter im BASIC 





Listing 4/6.3.6-10 (Teil 2) 


Bis jetzt haben wir nur vorbereitende Arbeiten erledigt. Mit Datenkomprimierung 
oder Datendekomprimierung hatte das nichts zu tun. 


Die Datenkomprimierung erfolgt in der hier folgenden Speicherschleife SaveLoop. 
Um sie zu verstehen, sollten Sie die Funktion der Routinen GetAZG, CmpAZG und 
PutAZG kennen. Sie werden weiter unten beschrieben. 


SaveLoop versucht zunächst eine möglichst lange Sequenz gleicher Byte zu finden. 
Spätestens nach 127 Byte muß jedoch abgebrochen werden, da für längere Sequen- 
zen kein Steuerbyte mehr erzeugt werden kann. Die Länge der Sequenz befindet sich 
dann im Y-Register. 


Falls die Endadresse Bis durch die Sequenz überschritten wird, reduziert der Aufruf 
von SaEnde? die Länge auf das zulässige Maß. 


Bei mehr als zwei gleichen Byte wird ein Steuerbyte erzeugt und zusammen mit dem 
Byte in die Datei geschrieben. Dann wird auf azg die Länge der Sequenz addiert. 
Haben wir die Adresse Bis erreicht, können wir die Datei schließen und zur aufru- 
fenden Routine zurückkehren. Andernfalls beginnt SaveLoop von vorn. 
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Finden wir weniger als zwei gleiche Byte, suchen wir die maximale Sequenz unglei- 
cher Byte. Natürlich darf auch diese höchstens 127 Byte lang sein und die End- 
adresse nicht überschreiten. 


Dann schreiben wir ein Steuerbyte in die Datei, gefolgt von der Sequenz der unglei- 
chen Byte. Anschließend wird wieder die Länge der Sequenz auf azg addiert und 
mit der Adresse Bis verglichen. Haben wir die Endadresse erreicht, können wir die 
Datei schließen und zur aufrufenden Routine zurückkehren. Andernfalls beginnt 
SaveLoop wieder von vorn. 








246 Dana use yechla rag Oares Ar air Tate Te aha Eei TE EEE 
247 ;- SAVE-Speicherschleife = 
248; 
c104 a0 00 249 Saveloop: idy #0 ‚ab azg folgende Byte 
c106 20 d4 c1 250 jsr GetAZG ;untersuchen 
c109 c8 251 SuchGleich: iny 
c10a 20 e3 c1 252 jsr CmpAZG ;gleiche Bytes ? 
ct0d dO 04 253 bne EndGleich ;nein 
c10f co Te 254 cpy #126 ‚schon 126 gleiche Byte? 
c111 do f6 255 bne SuchGleich ;nein, weitervergleichen 
256 
c113 20 7f c1 257 EndGleich: jsr SaEnde? ;BIS ueberschritten ? 
c116 c0 02 258 cpy #2 ;mehr als 2 gleiche ? 
c118 bO 38 259 bcs Gleiche ;ja 
cila a0 ff 260 lIdy #$ff ‚sonst Sequenz Ungleiche testen 
cilc 84 02 261 sty Ymem 
cite e6 02 262 SuchUngl: inc Ymem 
c120 a4 02 263 ldy Ymem 
ci122 co Tf 264 cpy #127 ‚schon 127 Ungleiche ? 
c124 fo of 265 beq Zutang ‚ja 
c126 20 d4 ct 266 jsr GetAZG ;beginnt eine Sequenz 
c129 c8 267 iny ;Gleiche ? 
c12a 20 e3 c1 268 jJsr CmpAZG 
c12d dO ef 269 bne Suchungi ‚nein 
c12f c8 270 iny 
c130 20 e3 ci 271 jsr CmpAZG 
c133 dO e9 272 bne SuchUng] ;nein 
i 273 
c135 a4 02 274  Zulang: ldy Ymem ;Sequenz Ungleich abschliessen 
c137 20 Tf cı 275 jsr SaEnde? ‚BIS ueberschritten ? 
c13a 84 02 276 sty Ymem ;Laenge der Sequenz merken 
c13c 98 277 tya 
c13d 48 278 pha 
c13e 09 80 279 ora #128 ‚Bit 7 setzen 
c140 20 d2 ff 280 jsr BasOut ;und ausgeben 
c143 a0 00 281 Idy #0 
c145 20 d4 ci 282 Outloop: jsr GetAZG ;Sequenz der Ung!. 
c148 20 d2 ff 283 jSsr BasOut ‚ausgeben 





Listing 4/6.3.6-11 (Teil 1) 
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;bis alle Byte ausgegeben 
;azg neu setzen 


Gleiche: ;Sequenz Gleiche schreiben 

;Laenge merken 

BasOut ;und ausgeben 

#0 ;Zeichen holen 

GetAZG 

BasOut ‚und ausgeben 
;Laenge zurueckholen 
;und auf azg addieren 

azg 

azg 

SaWeiter 

azg+1 


SaWeiter: azg ‚BIS erreicht ? 
bis 
Saveloop ;nein 
azg+t1 
bis+1 
SaveLoop ;nein 


Circh ‚Ausgabe normal 
#DATEI ;Datei schliessen 
Close 





Listing 4/6.3.6-11 (Teil 2) 


Die Routine SaEnde? testet, ob die Endadresse durch eine Sequenz überschritten 
wird. Dazu erhält sie die Adresse des Anfangs der Sequenz in azg und die Länge 
der Sequenz im Y-Register. 


Durch Subtraktion der Anfangsadresse der Sequenz von der Endadresse des Spei- 
cherbereiches in Bis erhalten wir die maximale Länge einer noch im Bereich liegen- 
den Sequenz. Ist das Highbyte verschieden von Null, so paßt eine Sequenz mit 
Länge in Y immer. Wir ändern daher nichts. 


Sonst vergleichen wir Y mit dem Lowbyte. Ist Y kleiner oder gleich, brauchen wir 


ebenfalls nicht zu korrigieren. Sonst ersetzen wir den Wert in Y durch das Lowbyte, 
was genau der Länge bis zur Endadresse entspricht. 
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;BIS-AZG berechnen 








c180 ad 09 c2 318 Ida bis 

c183 e5 fb 319 sbc azg 

c185 85 fd 320 sta azg2 ;Low-Byte in azg2 

c187 ad 0a c2 321 Ida bisti 

ci8a e5 fc 322 sbc azg+1 

ci8c dO 08 323 bne ok ;High Byte<>0, dann alles ok 


;Y groesser als Low-Byte ? 










;Ja, dann durch Low-Byte ersetzen 





Listing 4/6.3.6-12 


Bei der Ladeschleife LoadLoop haben wir es leicht. Wir lesen immer ein Byte aus 
der Datei ein. Ist es positiv (Bit 7 nicht gesetzt), so gibt es an, wie oft wir das nach- 
folgende Byte speichern müssen. Wir brauchen also nur das nachfolgende Byte zu 
lesen und so oft zu speichern, wie es das Steuerbyte angab. 


War das Steuerbyte hingegen negativ, setzen wir Bit 7 auf Null, so daß wir die 
Anzahl der zu lesenden ungleichen Byte erhalten. Diese werden dann aus der Datei 
gelesen und gespeichert. 


Anschließend testen wir die Statusvariable Status. Ist sie Null, stehen noch Byte zur 
Verfügung. LoadLoop beginnt dann von vorn. Andernfalls haben wir das Datei- 
ende erreicht und können unsere Arbeit beenden. 





330 ee 

331 ;- LOAD-Ladeschleife = 

332 52-20 
c197 20 cf ff 333 LoadLoop: jsr BasIn ;ein Zeichen aus Datei lesen 
c19a c9 00 334 cmp #0 ‚Bit7gesetzt? 
c19c 30 De 335 bmi LoUng] ;ja, Ungleiche laden 
c19e a8 336 tay ;sonst Laenge merken 
c19f aa 337 tax 
cia0 20 cf ff 338 jsr BasIn ‚Zeichen lesen 
cla3 88 339 LoGleich: dey ;und Y-mal speichern 
c1a4 30 18 340 bmi LoWeiter 
c1a6 20 f6 c1 341 JjJsr PutAZG “ 
c1a9 dc a3 c1 342 jmp LoGleich 

343 








Listing 4/6.3.6-13 (Teil 1) 
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LoUngl: #%1111111 ‚Bit 7 auf O0 setzen 
Ymem ‚ergibt Laenge 
;Laenge merken 


#0 
UnglLoop: BasIn ;Y-Mal ein Zeichen lesen 
PutAZG ;und speichern 


Ymem 
UngiLoop 


LoWeiter: ;Laenge auf azg 

;addieren 

azg 

azg 

NoHi2 

azg+1 

Status ‚Status=0 

Loadloop ‚ja, weiter 


CIrch ‚sonst Eingabe normal 
#DATEI ‚und Datei schliessen 
Close 





Listing 4/6.3.6-13 (Teil 2) 


Jetzt fehlen nur noch die Routinen GetAZG, CmpAZG und PutAZG. Sie arbeiten 
analog zu einfachen Assemblerbefehlen. Ihre Funktion entnehmen Sie daher bitte 
der folgenden Tabelle: 


[Rowine Torsenerwie | 





GetAZG Ida (azg).,y 
PutAZG sta (azg),y 
CmpAZG | cmp (azg),y 





Im Unterschied zu den Assemblerbefehlen wird jedoch vor der Aktion der gesamte 
Speicher auf RAM umgeschaltet. Dann wird die Aktion durchgeführt und anschlie- 
ßend wieder die normale Speicheraufteilung eingeschaltet. 
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cid4 78 
c1d5 a9 
c1d7 85 
c1d9 bi 
cidb 48 
cide a9 
cide 85 
cie0 68 
cle1 58 
c1e2 60 


cie3 78 
cie4 48 
cle5 a9 
cle? 85 
c1e9 68 
ciea dt 
ctec 08 
cied 48 
ciee a9 
c1f0 85 
cıf2 68 
cıf3 28 
c1if4 58 
c1f5 60 


c1f6 78 
e1f7 48 
cıf8 48 
cif9 a9 
cifb 85 
cıfd 68 
cife 91 
c200 a9 
c202 85 
c204 68 
c205 58 
c206 60 





34 
01 
fb 


37 
01 


34 


fb 


37 
01 


34 
01 


fb 
37 
01 


368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 


CmpAZG: "sei 


lda 
sta 
pla 
cmp 
php 
pha 
1da 
sta 
pla 
pip 
cli 
rts 


PutAZG: sei 
pha 
pha 
ida 
sta 
pla 
sta 
Ida 
sta 
pla 
chi 
rts 


von: .dw 
bis: .dw 
ENDE: 


Lesen von Vergleichen -- 
bzw. mit (azg),y En 


;kein Interrupt 


#SpRAM ;alles RAM 
PP 
(azg),y ;wert lesen 

;und merken 
#SpNorm ;Speicher norma] 
PP 


;Wert in Akku 
;Interrupt zulassen 


;kein Interrupt 
;Wert merken 


#SpRAM ;alles RAM 
PP 
(azg),y ;Wert vergleichen 


‚Ergebnis merken 
;Wert merken 
#SpNorm ;Speicher normal 
PP 
;Wert in Akku 
‚Ergebnis 
;Interrupt zulassen 


;kein Interrupt 
;Wert merken 


#SpRAM ‚alles RAM 

PP 

(azg),y ;Wert. speichern 
#SpNorm ‚Speicher normal 
PP 


‚Akku wieder auf Wert 
‚Interrupt zulassen 





Listing 4/6.3.6-14 
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An dieser Stelle drucken wir noch das für eine Fehlersuche sehr hilfreiche Label-File 
ab: 



























































Label-File 

add p ei5f azg f azg2 f 00fd bis p c209 
ok p c196 von p ANFANG p 0872 BasEnd f 002d 
Basin f ffef BasLoad f BasOut t ffd2 BasSave f e156 
BasStart f 002b | Chkln f ChkKom f aefd ChkOut f ffc9 
ChrGet f 0073 | ChrGot f 0079 | Close f ffc3 ClIrCh ft ffcc 
CmpAZG p cle3 DoSave p cOdb | DATEI f 000d DISK f 0001 
EndGleich | p c113 ENDE p c20b | Fertig p 084b | FileParas t eild4 
GetAZG p c1d4 | GetNum T ad8a | GetVec f 0308 | Gleiche p c152 
Integer f 0014 | Kopie p 0821 Load p c05d | LoadAbs p c02d 
LoadEnd p c07d LoadlLoop | p c197 LoGleich p cla3 LoUngl p clac 
LoWeiter p elbe | Melden p 0840 | Meldung p 084c | MyLoad p cDic 
MySave p c087 NeuBef p c00b | NoHi2 p e1ic8 Open f tfco 
OutLoop p e145 | PutAZG p eif6 PP f 0001 Routinen p c000 
Save p c0c4 | SaveAbs p c098 | SaveLoop | p c104 SaEnde? p e17f 
SaWeiter p c169 ft 0037 | SpRAM f 0034 | Start p c000 
Status f p c109 | SuchUngl | p ciie TkAbs f 00b6 
TkLoad f 0091 | TkSave f 0094 | UnglLoop | p ctb3 
Vallnt f ZuLang p c135 
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4/6.3.9 


Text-Convert-System 





4/6.3.9.1 


Bedienung von TCS 
Autor: Matthias Groß 





Einleitung 


Was kann das TCS? 


Will man in einem Basic-Programm Texte auf den Bildschirm bringen, so ist das 
ganz einfach: man benutzt den PRINT-Befehl. Für komplizierte Bildschirmmasken 
gibt es zahlreiche Editoren, die eingegebene Texte in Basic-Zeilen umwandeln. Doch 
man stößt schnell an die Grenzen dieser Methode. Der PRINT-Befehl ist zu lang- 
sam, beim Hintereinanderschalten von mehreren Bildschirmseiten entsteht ein star- 
kes Flimmern. 


Ein Wechsel zur Maschinensprache bringt hier auch keine Besserung. Es gibt zwar 
Routinen zur Textausgabe von ASCII-Zeichen, doch diese arbeiten nicht wesentlich 
schneller als von Basic aus. Besser wäre es also, die Zeichencodes direkt in den Bild- 
schirm zu schreiben. Davon abgesehen, daß diese Möglichkeit nur von wenigen 
Assemblern unterstützt wird, existieren hier keine Editoren zum Eingeben der 
Maske. 


Aus diesem Problem heraus entstand das Text-Convert-System. Mit dem TCS-Con- 
verter kann der aktuelle Bildschirminhalt eingefroren und gepackt im Speicher ab- 
gelegt werden. Mit einer Basicerweiterung können bis zu 255 solcher Texte dann 
blitzschnell wieder zurück auf den Bildschirm geholt werden. 
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Die Arbeitsweise des TCS 


Der Umgang mit dem TCS läßt sich am besten an einem Beispiel verdeutlichen. 
Nehmen wir an, Sie wollen aus einem Basic-Programm heraus einige Bildschirme 
ins TCS-Format konvertieren. Dazu gehen Sie folgendermaßen vor: 


1. Laden Sie den Converter mit <LOAD“TCS CONVERTER‘8,1> und starten 
Sie ihn mit <SYS 39300>. 


2. Sie laden nun das Programm, das die Masken enthält, und bringen eine davon 
auf den Bildschirm. Dann drücken Sie zuerst <CTRL> und <Pfeil links>, 
dann die <RETURN> Jaste, und der Bildschirm ist gepackt im Speicher abge- 
legt. So auch mit den anderen Bildschirmen verfahren. 


3. Die Bildschirme mit < DISK‘ <Name>,PW‘40960> auf Diskette speichern. 


4. Jetzt können die Masken eingesetzt werden. Dazu laden Sie den Deconverter 
(LOAD“TCS DECONVERTER“,8 & RUN). Dann laden Sie die vorher abge- 
speicherten Texte mit <DISK‘‘'NAME‘“ >. Jetzt können Sie mit dem Befehl 
<BS <Nr. 1-255> > die Masken zurück auf den Bildschirm holen und so in 
Ihrem Programm einsetzen. 


Um die Befehlserweiterung mit Ihrem Programm abzuspeichern (ohne sie sind die 
Befehle nicht lauffähig), genügt die Eingabe von <NRM> und dann entsprechend 
<SAVE...>. 


In den folgenden Kapiteln finden Sie eine genaue Beschreibung der Befehle und 
Funktionen des TCS. 


Befehlsbeschreibung Converter 
Allgemein 


Der Converter wird mit <LOAD“TCS CONVERTER‘/8,1> eingeladen und mit 
<SYS39300> gestartet. Im Folgenden finden Sie eine Beschreibung der neuen Be- 
fehle, die Ihnen dieser Programmteil zur Verfügung stellt. 


Hinter den eigentlichen Befehlsnamen stehen Begriffe, von denen der Befehl abge- 
leitet wurde. Anschließend wird die genaue Syntax angegeben. Alle Parameter kön- 
nen auch durch Variablen oder entsprechende Ausdrücke angegeben werden. Die 
Befehle lassen sich nicht abkürzen! ; 


Wird ein TCS-Befehl direkt hinter einer IF... THEN-Bedingung verwendet, muß 
ein Doppelpunkt vorangestellt werden. 
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Beispiel: 





100 IF A=1 THEN:BS 5 











1. INIT (Initialisierung) 








SYNTAX: INIT (keine Parameter) 





Dieser Befehl wird beim ersten Start des Converters angesprungen, um eine Sprung- 
tabelle im Speicher anzulegen. Jeder weitere Aufruf dieses Befehls löscht die 
Sprungtabelle und somit die im Speicher befindlichen Bildschirme. Anschließend 
wird der Befehl ‘TAST 1‘ ausgeführt. 


2. START (Anfang) 


SYNTAX: START <Speicheradresse > 


Dieser Befehl legt fest, ab welcher Speicherstelle die Texte vorläufig abgelegt werden 
sollen. Es kann dabei auch das RAM unter dem ROM benützt werden. Der Ein- 
schaltwert ist $A000 (40960). Man sollte vorsichtig mit diesem Befehl umgehen, da- 
mit man keine Adressen in der Zeropage oder dem Basic-Programm angibt, denn 
anschließend wird der Befehl INIT ausgeführt. 


3. TAST (Tastaturvektor an/aus) 





SYNTAX: TAST <Argument 0-255 > 











Dieser Befehl ist für den Tastaturvektor verantwortlich. Ist das Argument 0, wird 
er ausgeschaltet. Die Tastenkombination RUNSTOP/RESTORE schaltet ihn eben- 
falls ab. Bei jedem anderen Argument (1-255) wird der Vektor auf die TCS-Routine 
umgestellt. 


Ist der Tastaturvektor eingeschaltet, wird mit der Tastenkombination <CTRL> 
+ <Pfeil links> der Converter aufgerufen. Im Bildschirmrahmen sind jetzt hell- 
und dunkelblaue Streifen zu sehen: Der Rechner befindet sich im Wartezustand. 
Zwei Tasten haben jetzt noch eine Wirkung: 


SPACE (Leertaste): Das ist die Exitfunktion. Der C 64 springt zurück in den 
Direkt-/ Programmodus. 
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RETURN: Die Convertierroutine. Alles, was in diesem Moment auf dem Textbild- 
schirm zu sehen ist, wird in den Computerspeicher übertragen. Danach wird wieder 
in den Direkt-/Programmodus gesprungen. Der Packvorgang dauert maximal eine 
halbe Sekunde. 


4. SCREEN (Bildschirmparameter) 











SYNTAX: SCREEN <Bildschirmanfang> 





Normalerweise liegt der Bildschirmspeicher ab 1024. Für bestimmte Anwendungen 
ist es günstiger, den Bildschirm zu verschieben. Mit diesem Befehl teilen Sie dem 
TCS die neue Adresse mit. 


5. COL (Farbe) 


SYNTAX: COL < Argument 0-255> 


Das TCS ist in der Lage, zusammen mit dem Bildschirminhalt auch noch die 
Hintergrund- und Rahmenfarbe abzuspeichern. Ist das Argument größer oder 
gleich 1, wird diese Funktion eingeschaltet. <COL 0> schaltet die Option ab. Ein- 
schaltwert ist 0. 





6. MEM (Memory) 








SYNTAX: MEM (keine Parameter) 





Dieser Befehl gibt zwei Zahlen aus: den Anfang der Texte im Speicher (siehe auch 
<START>) und die laufende Adresse. Ab dieser Adresse wird der nächste Bild- 
schirm abgelegt. Wollen Sie aus diesen Angaben die Länge der bis jetzt gespeicher- 
ten Texte berechnen, so beachten Sie bitte, daß vor den eigentlichen Bildschirmen 
eine 512 Byte lange Sprungtabelle steht, die später nur noch teilweise benötigt wird. 


7. NUM (Nummer, Anzahl) 








SYNTAX: NUM (keine Parameter) 





NUM gibt die Anzahl der bisher im Speicher befindlichen Bildschirme aus. 
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8. DISK (Diskettenoperation) 











SYNTAX: DISK ""<Name>,PW', <spätere Startadresse > 





Dieser Befehl sichert die momentan im Speicher befindlichen Texte in einem speziel- 
len Format auf Diskette, die vom Deconverter dann wieder eingelesen werden kön- 
nen. Der Parameter <spätere Startadresse> gibt an, ab welcher Adresse die Texte 
später im Speicher liegen sollen. 


9. OFF (Ausschalten) 





SYNTAX: OFF (keine Parameter) 








Mit diesem Befehl wird die gesamte Erweiterung abgeschaltet. Ein Neustart ist mit 
<SYS 39300> möglich. Die alten Parametereinstellungen bleiben dabei erhalten. 


Befehlsbeschreibung Deconverter 
Der Deconverter wird mit <LOAD“TCS DECONVERTER‘/8> geladen. Nach 


dem Start wird der Basicanfang hinter das Programm verschoben und der Befehl 
<RUN> ausgeführt. 


1. NRM (normal) 








SYNTAX: NRM (keine Parameter) 





NRM stellt die Basiczeiger auf den Anfang des Deconverters. Jetzt kann mittels 
SAVE-Befehl das eigentliche Programm zusammen mit dem Deconverter-Vorspann 
abgespeichert werden. 


2. PRG (Programm) 





SYNTAX: PRG (keine Parameter) 











Dieser Befehl liegt den Basicanfang zurück auf das Programm. 


3. DISK (Diskettenoperationen) : 








SYNTAX: DISK “<Name>"" 
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Analog zum DISK-Befehi des Converters, der die Texte abspeichert, lädt der Befehl 
hier die TCS-Files wieder in den Computerspeicher zurück. Handelt es sich bei dem 
angegebenen Namen nicht um ein TCS-File, wird ein <NO TCS SCREEN 
ERROR> ausgegeben und der Ladevorgang abgebrochen. Während des Pro- 
grammablaufs darf man beliebig viele Textfiles nachladen. 


4. BS (Bildschirm) 





SYNTAX: BS <BS-Nr. X (1-255) 











Dieser Befehl sorgt dafür, daß der Bildschirm Nr. X ausgegeben wird. Ist X=0 oder 
größer als die Anzahl der eingeladenen Bildschirme, wird die Routine mit einem 
<ILLEGAL QUANTITY ERROR> abgebrochen. 

Trifft das Programm beim Ausdrucken des Screens auf ein Zeichen, das nicht vom 
TCS-Converter stammen kann, wird das mit einem <SCREEN ERROR> quit- 


tiert. Sie haben dann wahrscheinlich den von Texten belegten Speicherbereich durch 
POKEs oder ein Maschinensprache-Programm überschrieben. 


5. SCREEN 
Siehe SCREEN-Befehl des Converters. 


6. NUM 


Siehe NUM-Befehl des Converters. 


7. MEM 


Hier wird aber die exakte Anfangs- und Endadresse der Texte im Speicher angezeigt. 


8. SPACE 





SYNTAX: SPACE <X (0-255)> 











<SPACE> legt die Farbe der Leerzeichen fest, voreingestellt ist Null. 





Utilities Teil 4 Kapitel 6.3.9.1 Seite 7 














6.3 Assembler-Utilities Teil 4: Software-Erstellung 


9. BASIC 





SYNTAX: BASIC (<X (0-65535) >) 











Mit diesem Befehl läßt sich der Anfang des Basicspeichers verschieben. Von der an- 
gegebenen Adresse wird eins abgezogen und die sich daraus ergebende Speicherstelle 
auf null gesetzt. Nach der Ausführung des Befehls empfiehlt sich die Eingabe von 
<NEW>. <BASIC> ohne Parameter verlegt den Basicspeicher ans Ende der zu- 
letzt eingeladenen Textfiles. 


10. OFF 


Ein Wiedereinschalten erfolgt mit <SYS 2084>. 


Besonderheiten des TCS 


Dieses Kapitel ist als Ergänzung zu den Befehlsbeschreibungen gedacht und soll den 
Umgang mit den neuen Funktionen sowie deren Eigenheiten erläutern. 


1. Unterschiedliche Leerzeichen 


Der Bildschirmcode für ein Leerzeichen ist normalerweise 32. Es gibt aber auch 
noch einen weiteren Code, dem ein Space zugeteilt ist: Nr. 96. Beim Editieren am 
Bildschirm können diese Codes gemischt vorkommen. Der Benutzer merkt davon 
nichts, die Zeichen sind ja identisch. Für den Converter besteht darin jedoch ein 
Problem, denn er kann z.B. gleiche Zeichenfolgen nur dann zusammenfassen, wenn 
deren Codes auch wirklich gleich sind. Aus diesem Grund wurden die beiden Zei- 
chen gleichgesetzt: überall, wo der Converter auf den Code 96 trifft, ersetzt er ihn 
durch den Code 32. 


Diese Eigenheit des TCS ist im Normalfall unerheblich. Wenn Sie aber einen neuen 
Zeichensatz verwenden, sollten Sie das Zeichen Nr. 96 nicht benützen, denn es 
taucht in einem gepackten Bildschirm nicht mehr auf. 


2. Die Farbe der Leerzeichen 
Treten beim PRINT-Befehl Leerzeichen auf, so erhalten diese die aktuelle Zeichen- 


farbe. Dies ist nur dann wichtig, wenn Sie in die Bildschirmmaske nachträglich noch 
Zeichen „POKEn‘“ wollen. Das TCS berücksichtigt die Farbe der Leerzeichen 
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nicht, man kann sie deshalb nachträglich ändern: Der bei <SPACE> angegebene 
Parameter wird als Farbcode interpretiert und beim nächsten BS-Befehl verwendet. 


Wird als Parameter eine Zahl größer 16 angegeben, so wird der Bildschirminhalt 
nicht gelöscht, sondern die Maske über den aktuellen Bildschirm ‚„gelegt‘“. 


Mit <SPACE 16> wird eine Sonderfunktion des TCS eingeschaltet: Der ‚Window- 
Modus‘“ Dabei werden beim BS-Befehl nur die Leerzeichen des Bildschirms ge- 
löscht, die zwischen dem ersten und letzten Textzeichen stehen. Dieser Modus ist 
speziell für die Unterstützung von Textfenstern gedacht. Der Hintergrund des Fen- 
sters wird gelöscht, die restlichen Zeichen bleiben davon unberührt (siehe Bild). 




















8 39-0 then- bs2: ggsupiB0:bs4:aosub1B 
: space s3:gosubi#d:gotoiß 
8 1798-Au'tnenend 
got 
88 pokei198,8:waıti98,41:return 
eady. 
ıst N 
ifp solche isk''W 
dow. Problem 
p 





Hier ein Beispiel 18 
:S| 18 
aus Demoprogramm i 
8 18 
:$ alten ent- 
8 ein ISSchzen 
88 poke 
eady. 


WIrHÄATDUN Daunen nnaNn 
ooas32 3 

















Bild 4/6.3.9.1 


3. Speicherorganisation 


Zum Speichern der Bildschirme steht dem Benutzer unter TCS prinzipiell der ge- 
samte RAM-Bereich des C 64 zur Verfügung. Deshalb wird man seine Texte ge- 
wöhnlich unter das Basic--ROM ab $A000 legen. Der Nachteil hierbei: Die Files 
müssen einmal vor dem eigentlichen Programmstart von Diskette geladen werden. 
Wem diese Zweiteilung des Programms nicht gefällt, kann die Bildschirme auch 
direkt ins Programm einbinden. Dazu muß beim Abspeichern der Texte die Start- 
adresse 3291 angegeben werden. Der Deconverter lädt das File dann direkt an seinen 
Basicanfang. Mit dem Befehl <BASIC> wird der Basicanfang hinter die Texte 
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gelegt. Um ein jetzt eingetipptes oder eingeladenes Programm zusammen mit dem 
Deconverter und den Texten abspeichern zu können, muß nur der Befehl <NRM> 
eingegeben werden. 


Die Möglichkeit der Speicherverschiebung hat einen weiteren Vorteil: Es läßt sich 
problemios Platz für Sprites, Grafiken oder Maschinenprogramme schaffen, die 
dann zusammen mit dem TCS abgespeichert werden können. Zu diesem Zweck 
kann man den Basicanfang auch an eine beliebige Adresse verschieben. 


4. Geschwindigkeit 


Ein großer Vorteil des TCS ist, daß sich Texte wesentlich schneller auf den Bild- 
schirm bringen lassen als mit dem PRINT-Befehl. In der Tabelle sind einige Meß- 
werte zusammengestellt. Die Zahlen in Klammern geben die Zeiten ohne Bild- 
schirmlöschen an. 


„Komplett-BS‘“ ist der komplexeste Bildschirm, der überhaupt möglich ist. Der 
Bildschirm ist komplett mit Zeichen gefüllt, die abwechselnd invertiert sind und ver- 
schiedene Farben haben. Das ist natürlich ein rein theoretischer Fall, der aber die 
Leistungsfähigkeit des TCS gut verdeutlicht: Die Geschwindigkeitssteigerung beträgt 
knapp 250%! 


„Voller BS“ ist eine aufwendige Bildschirmmaske mit vielen Revers- und Farbum- 
schaltungen. Auch hier ist das TCS 3x schneller. 


„BS 30%‘ ist ein einfaches Auswahlmenü. Das TCS braucht zum Bildschirm- 
löschen generell wesentlich weniger Zeit als der PRINT-Befehl. 


Bei nur einer Zeile fällt der Geschwindigkeitsvorteil kaum noch ins Gewicht. 


Testzeiten in s bei 100 Durchläufen 





























PRINT TCS 
Komplett-BS 132,6 (128,5) | 38,5 (88,5) 
Voller BS 51,7 (47,7) | 15,9 (15,5) 
BS 30% 22,1 (185 | 66 (45) 
1 Zeile 5,9 (18) | 39 (13) 
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Einsatzbereich 


Beim TCS handelt es sich um ein recht ungewöhnliches Utility. Deshalb sollen hier 
einige Vor- und Nachteile des Programms aufgelistet werden. Dadurch kristallisiert 
sich auch der Anwendungsbereich des TCS deutlich heraus. 


Vorteile 


— Die 20 KByte RAM unter dem ROM können benutzt werden 
=> Programmlistings werden kürzer und übersichtlicher 


— Bildschirme werden gepackt 
=> Speicherplatzersparnis bei größeren Programmen 


— Die Bildschirme werden wesentlich schneller ausgedruckt 
=> Professionelle Programmgestaltung in Basic 


— Verschiebung des Basicspeichers einfach möglich 
=> Einfache Einbindung von MC-Routinen und Grafiken 


— Es können beliebig viele Textfiles nachgeladen werden 
=> Ein Basicprogramm kann sehr große Textmengen verwalten 


— Auch von Maschinensprache aus nutzbar 
— Listschutz 


Nachteile 
— Die Bildschirme können nach dem Packen nicht mehr verändert werden 
— Relativ aufwendige Handhabung 


— Die Texte müssen nachgeladen werden 
(Läßt sich umgehen) 


Wägt man diese Argumente ab, so zeigt sich schnell, wo sich das TCS sinnvoll ein- 
setzen läßt. Die größte Effektivität erreicht man bei längeren Programmen (oder 
solche mit großen Datenfeldern), die viele Bildschirmmasken enthalten. Hier kann 
man in der Endphase der Programmierung durch Packen der Texte wertvollen Spei- 
cherplatz sparen und das Programm vereinfachen. 


Mit etwas Phantasie lassen sich bestimmt noch eine Menge weiterer Einsatzgebiete 
für das TCS finden. Wie wäre es zum Beispiel mit einer Diashow aus Textbild- 
schirmen? a 


Auf der beiliegenden Diskette sind noch zwei kurze Beispielprogramme gespeichert, 
die einen kleinen Einblick in die Praxis der Programmierung mit dem TCS geben. 
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4/6.3.9.2 


Programmdokumentation 





Speicherbelegung 


Die beiden Teilprogramme des TCS belegen unterschiedliche Speicherbereiche, wie 
in den Grafiken dargestellt. 


Der Converter 

liegt am Ende des Basicspeichers, das Basicende wird beim Start heruntergesetzt. 
Der restliche Basicspeicher sowie der gesamte ROM-Bereich ab 40960 stehen für 
Texte zur Verfügung. 


Der Deconverter 

liegt am Anfang des Basicspeichers, der Basicanfang wird direkt an das Programm- 
ende verschoben. Jetzt folgende Programme können leicht zusammen mit der Be- 
fehlserweiterung abgespeichert werden. Außerdem liegt hinter dem Converter da- 
durch lückenlos RAM bis zum Speicherende. 

































































a ae 5 0 
Zeiger, Register Zeiger, Register Zeiger, Register 
1024 Ss . 1024 5 2 1024 z 2 
Video-RAM Video-RAM Video-RAM 
2049 2049 2049 
TCS 
BERERR 3289 
Basicspeicher De Basicspeicher 
ee 39300 er 
TCS 
40960 40960 40960 
, Basic-ROM RAM RAM 
ae 
49152 
53248 [18 2 | m] 
/O-Bereich 
ee 2 
57344 N 
Betriebssystem- 
ROM 
65535 65535 65535 
Normal Converter Deconverter 
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Nutzung in Assembler 


Der folgende Abschnitt beschäftigt sich mit dem Einsatz des Deconverters in 
Maschinensprache. In der folgenden Aufstellung wird zuerst die Startadresse der 
Routine und dann die Einsprungadresse aus einem Assemblerprogramm heraus an- 
gegeben. Alle Routinen enden mit einem RTS. Bei Parametereinstellungen werden 
statt dem Einsprung die entsprechenden Speicherstellen angegeben. 


























Routine Startadresse Einsprungadresse Parameter 
NRM $0bae $0bae keine 
PRG $0bb7 $0bb7 keine 
DISK $0abb $0ac7 Der PRG-Name muß 
gesetzt sein (SETFLS). 
BS $0880 $0883 Bildschirmnummer ins 
X-Register. 
SCREEN $0bc2 
Bildschirmanfang in die 
Adressen $0851/$0852 
NUM $0bf5 $0bf5 keine 
MEM $0bcc $obcec keine 
SPACE $0bee 





Farbe der Leerzeichen 
in Adresse $0842 
$0b6d 














BASIC ohne Parameter: $0b72 
mit Parameter: $0b86, 
10/lo des Anfangs 

in A/Y 

$0832 









$0832 





Pack-Algorithmus 


Beim Packen der Bildschirme benutzt das TCS einen speziellen Algorithmus, der 
den Bildschirminhalt komprimiert. Es soll nicht der Versuch gemacht werden, 
diesen doch recht komplexen Programmteil anhand des Listings zu erklären (Inter- 
essierte seien auf den vollständig dokumentierten Quelltext verwiesen). Vielmehr 
soll das Prinzip erläutert werden, um Stärken und Schwächen des Programms her- 
auszustellen. 


Nach dem Aufruf des Converters und der Bestätigung mit <RETURN> wird zu- 
erst die Startadresse des folgenden Bildschirms in einer Tabelle abgelegt. Falls nötig, 
wird die Hintergrund-/Rahmenfarbe gespeichert. 


Dann beginnt der eigentliche Packvorgang. Der Bildschirm wird zeilenweise abge- 
tastet und die Zeichen im Bildschirmcode im Speicher abgelegt. Bei Farbwechseln 
und reversen Zeichen werden genau wie beim PRINT-Befehl Steuerzeichen vorange- 
stellt (siehe Tabelle). 


Stehen am Zeilenende mehrere Leerzeichen, so weden diese durch ein Sonder- 
zeichen ersetzt. 
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Wiederholt sich das gleiche Zeichen mehrmals hintereinander, so wird die Zeichen- 
folge auf drei Bytes gekürzt (Signalcode, Zeichen, Anzahl). 


Treten auf dem Bildschirm mehrere Leerzeilen hintereinander auf, so werden diese 
in zwei Bytes im Speicher vermerkt (Signalcode, Anzahl). 


Funktion der Steuerzeichen 


Steuerzeichen Funktion 
Code 


128 Revers ein 
129 Revers aus 





130-145 Zeichenfarbe 
146 Zeilenende 

147 gleiche Zeichen 
148-173 Leerzeilen 





Am Ende des Packvorganges wird die laufende Speicheradresse gemerkt und zurück 
zum Basic gesprungen. 
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6.3 Assembler-Utilities Teil 4: Software-Erstellung 
4/6.3.9.3 
Übersichten 

Programmteil 1: Converter Programmteil 2: Deconverter 





Name : TCS Converter Name : TCS Deconverter 
Anfang : $9984 (39300) Anfang : $0801 (2049) 
Ende : $9ff0 (40944) Ende : $0cdb (3291) 


Länge : $066c ( 1644) Länge : $04da (1242) 
Gesamtlänge: 2886 Bytes 





Verwendete Speicherstellen in der Zeropage: 


$f7-$fe Kann auch von anderen Programmen verwendet werden. 
$02 Flag, das nicht überschrieben werden sollte. 


Directory: 


"T.C.S. 


“TEXT 
u CONVERT 
SYSTEM“ 





“ 


“ TCS CONVERTER“ 
“ TCS DECONVERTER“ 





“TCS DEMO 1“ 
“ TCS DEMO 1.BS“ 
“TCS DEMO 2“ 
“TCS DEMO 2.BS“ 


ONNSPNOTINOOODOOOO 








71 “ SONVERTER.OT“ 
56 “ DECONVERTER.QT" 
500 BLOCKS FREE. 


READY. 
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Befehlsübersicht 


Hier eine Übersicht der neuen Befehle, die beide Programmteile zur Verfügung stel- 
len. 


Converter 

















INIT Tabelle anlegen und löschen, dann TAST 1 
START Legt Anfang der Texte fest, danach INIT 
TAST Tastaturvektor wird ein-/ausgeschaltet 
SCREEN Legt den Anfang des Bildschirmspeichers fest 
CcoL Bildschirmfarben sichern ja/nein 

MEM Gibt den aktuellen Speicherstand aus 

NUM Anzahl der bisher gepackten Bildschirme 


Speichert die Bildschirme ab 
Schaltet die Erweiterung aus 


Deconverter 






Normaler Anfang des Basicspeichers 





PRG Basicanfang auf den Programmanfang 

DISK Lädt ein Textfile 

BS Gibt einen Bildschirm aus 

SCREEN Legt den Anfang des Bildschirmspeichers fest 

NUM Anzahl der im Speicher liegenden Bildschirme 

MEM Gibt Anfang- und Endadresse der Texte an 

SPACE Farbe der Leerzeichen, Window-Modus 

BASIC Legt den Basicanfang fest E 

OFF Schaltet die Erweiterung aus 
Fehlermeldungen 


SCREEN ERROR Der Deconverter ist beim Auspacken eines Bildschirms auf undefi- 
nierte Zeichen gestoßen. 


NO TCS SCREEN ERROR Es wurde versucht, mit dem DISK-Befehl ein File einzuladen, das 


nicht vom TCS stammt. 


NO SCREEN DEFINED Es wurde versucht, Textfiles abzuspeichern, obwohl keine Bild- 
schirme gepackt worden sind. 
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0 IFPEEK (820)< >255THENPOKE820,255:DISK"TCS DEMO 1.BS" 
5 POKE$50,128:PRINTCHR$ (14) 


SPACEO:BS1: REM MENUE 

POKE198,0:WAIT198,1:GETA$:SPACE16 

IFA$="(F1) ""THEN:BS2:60SUB100:G0TO1O 

IFA$="(F3) "THEN:BS2:GOSUB100 :BS3:GOSUB100:SPACEO:BS1: SPACE 


:BS2:GOSUB100:60TO10 


IFA$="(F5) '"THEN:BS2:GOSUB100:BS4:G0SUB100:SPACE 0:BS5:G605U 


B100:G60T010 


60 
70 


IFA$="(F7) "THENEND 
GOTO1O 


100 POKE198,0:WAIT198,1:RETURN 








Basic-Listing 4/6.3.9.3-1 


5 IFPEEK (820)< >99THENPOKE820.99:DISK'"TCS DEMO 2.BS" 


10 
20 
30 


40 
50 
60 
70 


PRINTCHR$ (142) :SPACEO :BS1:SPACE16 
T=2:W=400 

BS T:T=T+1:IFT=6THENT=2 

FORA=1TOW: NEXT 
IFF=0THENW=W- (W/10) : IFW<1.1THENF=1 
IFF=1THENW=W+ (W/10) : IFW>4O0OTHENF=0 
GOTO3O 








Basic-Listing 4/6.3.9.3-2 
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ıR% 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 


nz 


hypra-ass assemblerlisting: 


.1i1,4,7 
.ba $c801; 
.wo nz 

.wo 1988 
.by $9e 
.tx"2084: 
.by$8f 
EX" 
.by 00 


;** TEXT — CONVERT — SYSTEM 





.wo 00 


normal: $0801 (basic-anfang) 


text-convert-system" 


F 
UKRAINE U N U KH HK U N U U U U 


“% 
“x 
“x 
“x 
“% 


“x 


use] 


) 


U“ 
ER Quelltext Deconverter 
«AX 
ERROR 
«RK 
OO 
em variablen extern 

320 -.eq bs 

330 -.eq sp 

340 -.eq ci 

350 -.eq start 
mm konstanten -——-------— 

390 -.eq revon 

400 -.eq revoff 

410 -.eqg space 

420 -.eq color 

430 -.eq linend 
KOremmmenn routinen --------- ---— 

470 -.eq get 

A480 -.eq open 

490 -.eq Ssetfls 

500 -.eqg setnam 

510 -.eq close 

520 -.eq chkin 

530 -.eq ckout 

540 -.eq clirch 

550 -.eq bsout 


= 128 


129 

32 
130 
146 





$ffe4 
sffco 
$ffba 
$ffba 
$ffc3 
$ffc6 
$sffc9 
$ffcc 


= $sffd2 





Listing 4/6.3.9.3-1 (Teil 1) 
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560 -.eq chkcom = $aefd 
570 -.eqg getbyte = $b79e 
580 -.eq frmnum = $ad8a 
590 -.eq integer = $b7f7 
600 -.eq clr = $e544 
610 -.eq illquan = $b248 
620 -.eg errout = $a445 
630 -.eg chrgot =3$ 79 
640 -.eq linprt = $bdcd 
650 -.eq intvec = $0308 
660 -.eq chrget = $73 

670 -.eq chrgot = $79 

680 -.eq intend = $a7e7 
690 -.eq interalt = $a7e4 
700 -.eq txtptr = $7a 





befehlsvector umbiegen 


c824 Ach2ce :770 - jJmp extend 

c827 a908 :780 -interon ida #< (inter) ;befehls- 
c829 a0ücc 790» ldy #>(inter) ;‚vector 
c82b 840803 :800 - sta intvec ;auf neue 
c82e 800903 :810 - sty intvec+tl ‚routine 
c831 60 :820 - rts ‚ende 


a9e4 
a0a7 
840803 
800903 
60 


:840 
:850 
:860 
:870 
:880 


interoff 


lda #< (interalt) ;bef.- 
ldy #>(interalt) ;vector 


sta intvec 
sty intvec+ti 
rts 





variablen prg-intern 





Listing 4/6.3.9.3-1 (Teil 2) 
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940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 


-code 
-code2 
-revflag 
-line 
-col 
-spcol 
-yreg 
-count 
-flagl 
-konf 
-akku 
-anfl 
-anf2 


;zurueck- 
‚stellen 
‚ende 
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screeN" 


‚basic 
‚speicher 
‚ver- 
;schieben 


;RUN 


;bs-nr. 
;=0 ? 


;hoeher 
‚als er- 
;laubt ? 


‚speichern 
;high=0 


;mal 2 


;tabellen- 


1070 -endi .by 00 
1080 -end2 .by 00 
1090 -anf3 .by 00 
1100 -anf4 .by 00 
1110 -spend .wo basicanft+t1 
1120 -anzahl .by 00 
1130 -bsconst .wo $0400 
1140 -clconst .wo $d800 
1150 -prg ‚wo basicanf+i 
1160 -flag2 .by 00 
1170 -errmsg .tx "screeN'" 
1180 -errmsgi .tx "no tcs 
1190 -befnr .by 00 
1200 -window .by 00 
en basicanf. verschieben — 
c86d 2027c8 :1270 -init jsr interon 
c870 ad55c8 :1280 -— lda prg 
c873 852b 1290 = sta 43 
c875 ad56c8 :1300 - lda prg+1 
c878 852c 1310 .= sta 44 
c87a 205946 :1320 — j3sr $a659 
c87d4 Acaea7? :1330 -— jmp $a7ae 
ga deconverter m 
c880 209eb7 :1390 -deconvert jsr getbyte 
c883 e000 :1400 — cpx #0 
c885 f006 :1410 - beq illg 
c887 ca :1420 -— dex 
c888 ec50c8 :1430 - cpx anzahl 
c88b 9003 :1440 — bcc decon2 
c88d4 AcABb2 :1450 -illg jmp illquan 
c890 86f9 :1470 -decon2 stx sp 
c892 a900 :1480 — lda #0 
c894 85fa :1490 - sta sp+1 
c896 18 :19510: = clc 
c897 06f9 1920: = asl sp 
c899 26fa :1530 - rol sp+1 
c89b 18 :1550 - eie 
c89c ad48c8 :1560 — ida anfl 





Listing 4/6.3.9.3-1 (Teil 3) 


‚anfang 
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c8fe 
c900 


65f9 
85£9 
ad49c8 
eäfa 
85fa 


a000 
2087ca 
8447c8 
2089c9 
2087ca 
85rfa 
ad47c8 
85f9 


ad51c8 
ac52c8 
85£7 
84af8 


ad53c8 
ac54Ac8 
85sfb 
B4Afc 


a900 

8a3fc8 
8d41c8 
8d440c8 
8443c8 


an bs farben 


2087ca 
cgy£f 
dül6 


18 

2089c9 
2087ca 
8d420d0 
2089c9 
2087ca 
8421d0 
2089c9 


_— hauptschleife 2 


a000 
8c6cc8 


:1570 - 
:1580 — 
:1590 — 
:1600 — 
:1610 — 


:1630 - 
:1640 — 
:1650 - 
:1660 — 
:1670 - 
:1680 - 
:1690 — 
:1700 - 


:1720 - 
:1730 - 
:1740 — 
:1750 - 


:1770 - 
:1780 -— 
:1790 - 
:1800 - 


:1830 - 
:1840 — 
:1850 — 
1860: = 
1870 — 


:1910 - 
:1920 -— 
1930. = 


:1950 - 
:1960 — 
:1970 — 
:1980 - 
1990. = 
:2000 
:2010 — 
2020 = 


:2060 -lo0p2x 
:2070 - 


adc 
sta 
lda 
adc 
sta 


ldy 
jsr 
sta 
jsr 
jsr 
sta 
lda 
sta 


lda 
lady 
sta 
sty 


lda 
ldy 
sta 
sty 


Ida 
sta 
sta 
sta 
sta 


jssr 
cmp 
bne 


clc 
jsr 
jsr 
sta 
jsr 
j3sr 
sta 
jssr 


sp 
sp 
anf2 
sp+l 
sp+il 


#0 
read 
akku 
spinc 
read 
sp+l 
akku 
Sp 


bsconst 
bsconst+1 
bs 

bs+1 


clconst 
clconst+t1 
el 

el+1 


#0 
revflag 
col 
line 
yreg 


read 
#255 
100p2x 


spinc 
read 

$4020 
spinc 
read 

$d4021 
spinc 


ldy 
sty 


#00 
window 


— 
‚addieren 


‚tabelle 
‚auslesen 


;‚text- 
‚anfang 
‚speichern 


;bs-anf. 


:farb- 
‚speicher 


;‚zeiger 
;loeschen 


;bs-farben 
‚setzen ? 


‚rahmen- 
‚farbe 





‚bs-farbe 
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c903 
c906 
c908 
c909 
c90c 
c90f 


c912 
c914 


c916 
c919 
c91b 
cY91e 
c920 


6923 
c926 
c928 


c92a 
c92ad 


c92£ 
c932 
c934 


6937 
c93a 


c93b 
c934 


c93f 
c94A1l 
c942 
c944 
c946 
c948 
c94a 


c94c 
c94e 
c94f 
c951 
c953 
c955 
c957 





6959 
c95c 


L 


8c43c8 
a000 
18 
2087ca 
8d3dc8 
ac43c8 


c980 
b0O7b 


ad3fc8 
£008 
ad3dc8 
6980 
8434c8 


ad3dc8 
c920 
f040 


ad3dc8 
91f7 


ad41lc8 
9ıfb 
ee6ccB 


2089c9 
c8 


c028 
d0c4 


a5f7 
18 

6928 
85£7 
a5f8 
6900 
85f8 


aäfb 
18 

6928 
85fb 
asfc 
6900 
säfc 


ad45c8 
£fool 


: 2080 
:2090 
:2100 
:2110 
:2120 
:2130 


:2150 
:2160 


:2180 
:2190 
:2200 
:2210 
: 2220 


: 2240 
2290 
:2260 


:2280 
:2290 


:2310 
:2320 
:2330 


:2350 
:2360 


:2370 
:2380 


: 2400 
: 2410 
: 2420 
: 2430 
: 2440 
:2450 
: 2460 


:2480 
:2490 
:2500 
:2510 
:2520 
:2530 
:2540 


:2360 
:2570 


-loopix 


-speicherx 


-zaehlerx 


-newliınex 
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sty 
ldy 
clc 
jssr 
sta 
ldy 


cmp 
bes 


lda 
beq 
Ida 
adc 
sta 


lda 
cmp 
beq 


lda 
sta 


lda 
sta 
ine 


jssr 
iny 
cpy 
bne 


lda 
clc 
adc 
sta 
lda 
adc 
sta 


lda 
clc 
adc 
sta 
lda 
adc 
sta 


lda 
beq 


yvreg 
#0 


read 
code 
yreg 


#revon 
steuerz 


revflag 
speicherx 
code 
#revon 
code 


code 
#space 
spaceb 


code 
(bs) ,y 


col 
(cl),y 
window 


spinc 


#40 
loopi1x 


bs 


#40 
bs 
bs+1 
#0 
bs+1 


ei 


#40 
cl 
cl+1 
#0 
cl+1 


flagl 
newlinexi 


:y sichern | 


;‚steuer- 
‚zeichen ? 


;‚reverses 
;zeichen ? 


;leer- 
‚zeichen ? 
‚Ja 
‚zeichen 
‚in bilds. 


‚farbe 


:Ssp+tl 


;‚zeilen- 
;ende ? 


‚naechste 
;zeile 
;bild- 
‚schirmsp. 


‚naechste 
;zeile 
‚farbsp. 
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c95e 60 :2580 — rts 

c95F ee40c8 :2610 -newlinexi inc line ‚letzte 
c962 ad40c8 :2620 — lda line ‚zeile ? 
c965 c919 2030 = cmp #25 

c967 d095 :2640 — bne lo0op2x 

c969 60 :2660 -ende2 rts 

c96a ad42c8 :2680 -spaceb Ida spcol ‚bildsch. 
c96d c9Y10 :2690 - cmp #16 ; loeschen? 
c96f bOOC :2700 — bes space2 ;nein 

971 ad42c8 :2720 -space)3 Ida spcol ;zeichen 
c974 91fb :2730 - sta (cl),y ;loeschen 
c976 a920 2740 — lda #space ‚und farbe 
c978 91£7 2750 - sta (bs),y ‚setzen 
c97a 4c37c9 :2760 — jmp zaehlerx 

c97d4 c910 :2780 -space2 cmp #16 ;window- 
c97f£f dOb6 2790 = bne zaehlerx ‚modus? 
c981 ad6cc8 :2800 — lda window ‚w=0 nicht 
c984 fObl 2810 = beqg zaehlerx ;loeschen 
c986 4c71c9 :2820 — jmp space3 ‚clear 
irre iirGed SBINE ar ennn 

c989 e6f9 :2860 -spinc inc sp ‚speicher 
c98b d002 :2870 — bne spincl ‚zaehler 
c98d e6fa :2880 - inc sp+l ‚+1 

c98f 18 :2890 —-spincil clc 


c990 60 :2900 -— rts 
Banner steuerzeichen === 


c991 c980 :2940 -steuerz cmp #revon ;revon 


c993 d00b :2950 — bne steuerz2 ‚£lag ? 
c995 a901 :2960 - Ida #1 

c997 8dA3fc8 :2970 — sta revflag 

c99a 208909 :2980 — Jsr spinc 

c994 4c03c9 :2990 - J3Smp loopix 

c9a0 c9Bl :3010 -steuerz2 cmp #revoff ;revoff 
c9a2 d00b :3020 — . bne steuerz3 ‚flag 
c9a4 a900 :3030 — ida #0 

c9a6 8A3fcH :3040 -— sta revflag 

c9a9 2089c9 :3050 — jsr spinc 

c9ac 4c03c9 :3060 - J3mp looplx 

c9af c992 :3080 -steuerz3 cmp #linend ;‚zeilen- 





Listing 4/6.3.9.3-1 (Teil 6) 





Teil 4 Kapitel 6.3.9.3 Seite 10 











Utilities 





6.3 Assembler-Utilities 


Teil 4: Software-Erstellung 





c9b1 b00OA :3090 
c9b3 38 :3100 
c9b4 8982 :3110 
c9b6 8d4lc8 :3120 
c9b9 18 :3130 
c9ba 2089c9 :3140 
c9bd 4c03c9 :3150 
3m naechste 
c9c0 c993 :3190 
c9c2 5027 :3200 
c9c4 ad42c8 :3220 
c9c7 c910 :3230 
c9c9 b014 :3240 
c9cb a920 :3260 
cI9cd 91£7 :3270 
c9cf ad42c8 :3290 
c9d2 91fb :3300 
c9d4 c8 93320 
c9d5 c028 3330 
c9d7 düf2 :3340 
c9d49 ad45c8 :3350 
c9dc £001 :3360 
c9de 60 39370 
c9df ad45c8 :3380 
c9e2 £f001 :3390 
c9e4 60 :3400 
c9e5 2089c9 ;3410 

:3420 


c9e8 Ac3fc9 


c9eb c994 
c9ed b058 


c9ef 8c43c8 
c9£2 a000 

c9f4 2089c9 
c9f7 2087ca 
c9fa 8d44c8 
c9£fd 2089c9 





ca00 2087ca 
ca03 8d3ec8 
ca06 ac43c8 


NERSZ= gleiche zeichen 


:3460 
:3470 


:3490 
:3909 
:3510 
:3520 
39330 
:3540 


:3960 


:3570 
:3580 


-zende3 


-zendel 


-zende2 


-zende4 


-doub 
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bes 
sec 
sbc 
sta 
clc 
jsr 
JSmp 


cmp 
bes 


lda 
cmp 
bes 


lda 
sta 


lda 
sta 


iny 
cpy 
bne 
lda 
beq 
rts 
lda 
beq 
rts 
jsr 
JSmp 


cmp 
bes 


sty 
ldy 
jsr 
jSsr 
sta 
jJsr 
jsr 
sta 
ldy 


zende 


#color 
col 


spinc 
loop1x 


#147 
doub 


spcol 
#16 
zende2 


#space 
(bs) ,y 


spcol 
(cel),y 


#40 
zendel 
flagl 
zende2 


flagl 
zende4 


spinc 
newlinex 


#148 
scrend 


yYreg 
#0 
spinc 
read 
count 
spinc 


read 
code2 
yreg 


‚ende ? 


;neue 
‚farbe 


;code fuer 
;leerzeile 


;bs nicht 


;loeschen? 


;bs-stelle 
;loeschen 


ietzte 
; farbe 


‚bis zei- 


;lenende 
;naechste 


;zeile 


;y sichern 


‚anzahl 
;holen 


;zeichen 


‚zeichen 


:holen 
:y hölen 


— 
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ad3ec8 :3600 code2 ;leer— 

c920 :3610 #space ‚zeichen ? 

f018 :3620 spacec 

äad3ec8 :3640 code2 

91£7 3650 (bs) ,y 

ad41c8 :3660 col 

9ıfb :3670 (el),y 

18 :3680 
calb c8 :3700 — iny ;bs+t1 
calc ce44c8 :3710 -— dec count ‚anz-l 
calf ad4dcdb :3720 — lda count ‚letztes 
ca22 dOeS5 :3730 — bne doub2 ;zeichen ? 
ca24 88 :3740 - dey 
ca25 Ac37c9 :3750 - jmp zaehlerx ‚weiter 
ca28 ad42c8 :3770 -spacec lda spcol ıbs 
ca2b c911 3780 = cmp #17 ;loeschen? 
ca2d bO0d 3790 - bes spacec2 
ca2f c910 :3800 — cmp #16 ;window- 
ca3l fOOc :3810 — beq spacec3 ‚modus ? 
ca33 ad42c8 :3830 -spacecli lda spcol 
ca36 91fb :3840 — sta (cl),y ‚farbe & 
ca38 a920 :3890 lda #space ‚zeichen 
ca3a 91f7 :3860 - sta (bs),y ‚setzen 
ca3c Aclaca :3870 -spacec2 jJmp doub3 ‚zurueck 
ca3f ad6bcec8 :3890 -spacec3 lda window ;loeschen? 
ca42 dOef :3900 - bne spacecl ‚Ja 





ca44 Aclaca :3910 - R jmp doub3 ;nein 
}77- mehrere leerzeilen ----———— 


ca47 38 :3950 -scrend sec ;code 


ca48 8994 :3960 — sbc #148 ‚abziehen 
cada 18 3970 = clc 

ca4b 8d44c8 :3980 - sta count 

cade c91la :4000 — cmp #26 ;‚£remder 
ca50 9009 :4010 - bec scrend3 ;code ? 
ca52 a958 :4030 - lda #< (errmsg) ;ja, 

ca54 8522 :4040 — sta $22 ;fehler- 
ca56 a9c8 :4050 - lda #>(errmsg) ;meldung 
ca58 4c45a4 :4060 — Jmp errout ‚ausgeben 
ca5b 2089c9 :4080 -scrend3 jSsr spinc 

ca5e a901 :4090 -— ida #1 “  ;rest der 
ca60 8d45c8 :4100 — sta flagl ;zeile 
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ca63 20c4c9 
ca66 ee40c8 


ca69 a0ü00 

ca6b 203£c9 
ca6de 20c4c9 
ca7l ce44c8 
ca74 ee40c8 
ca77 ad44c8 
ca7a dOed 


ca7c a900 

ca7e 8d45c8 
ca8l ce40c8 
ca84 Ac3fc9 


a  — speicher auslesen 


ca87 a501l 
ca89 8446c8 
ca8c 29f8 
cade 78 
casf 8501 
ca9l a00o 
ca93 b1f9 
ca95 ac46c8 
ca98 8401 
ca9a 58 
ca9b a000 
ca9d 60 


ca9e 8447c8 
caal a50l 
caa3 8d446c8 
caa6 29f8 
caaß 78 
caa9 8501 
caah a000 
caad ad47c8 
cabO 91£9 
cab2 ac46c8 
cab5 8401 
cab? 58 
cab8 a000 
caba 60 





:4110 
:4120 


:4140 
:4150 
:4160 
:4170 
:4180 
:4190 
:4200 


:4220 
:4230 
:4240 
:4250 


:4290 
:4300 
:4310 
:4320 
:4330 
:4340 
:4350 
:4360 
:4370 
:4380 
:4390 
:4400 


4420 
:4430 
:4440 
:4450 
:4460 
:4470 
:4480 
:4490 
:4500 
:4510 
:4520 
:4530 
:4540 
:4550 


-screndl 


-Sscrend2 


-read 


jsr zende3 
inc line 


ldy #0 

3sr newlinex 
jsr zende3 
dec count 
inc line 

lda count 
bne screndl 


lda #0 

sta flagl 
dec line 

jJSmp newlinex 


lda 1 
sta konf 
and #248 
el 

sta 1 
ldy #0 
Ida (sp),y 
idy konf 
sty 1 
cli 

ldy #0 
rts 


sta akku 
Ida 
sta konf 
and #248 
sei 

sta 1 

ldy #0 

ida akku 
sta (sp),y 
ldy konf 
sty 1 

cli 

ldy #0 

rts 


»r 





TZ datei laden 





cabb 2057e2 :4610 -load 


jsr $e257 


;loeschen 
;zeiger+1 


;zeiger 
:+1 
:zeile 
;loeschen 


;letzte 
;‚zeile ? 


‚flag =0 


‚und 
;weiter 


‚speicher 
‚auf ram 
‚schalten 
;wert 
;holen 


;speicher 
;zurueck 


‚speicher 
‚auf ram 
;schalten 


;wert 
;speicher 


;speicher 
‚zurueck 


‚name 





Listing 4/6.3.9.3-1 (Teil 9) 











Teil 4 Kapitel 6.3.9.3 Seite 13 





Utilities 








6.3 Assembler-Utilities Teil 4: Software-Erstellung 



















































cabe a902 :4630 -1l0ad5 lda #2 ;£filenr. 
cacO0 a208 :4640 — ldx #8 ;8=floppy 
cac2 a002 ‚4650 — ldy #2 ‚sek.adr. 
cac4 20baff :4660 -— jsr setfls 

cac7 20c0ff :4680 -10oad7 jsr open ;file 
caca a590 :4690 - lda $90 

cacc £003 :4700 — beq l0ad9 

cace 4c58cb :4710 — jmp loadend 

cadi a202 :4720 -10ad9 ldx #2 ;‚oeffnen 
cad3 20c6ff :4730 - jisr chkin 

cad6 a590 :4750 — lda $90 

cad8 d07e :4760 - bne loadend 

cada 20e4ff :4780 - jsr get ‚auf die 
cadd c954 :4790 - cmp #"t" ;kennung 
cadf f000 :4800 - beq loadi2 ‚'tes' 
cael a590 :4810 -loadi2 lda $90 ‚pruefen 
cae3 d073 :4820 — bne loadend ‚falls 
cae5 20e4ff :4830 - jsr get ‚nicht, 
cae8 c943 :4840 — cmp #"'c" ;routine 
caea 4075 :4850 — bne loadii ;beenden 
caec 20e4ff :4860 — jSsr get 

caef c953 :4870 — cmp #"s" 

cafi dO6e :4880 -— bne loadil 

caf3 20e4ff :4900 -1load6 jsr get ‚anfangs- 
caf6 85£9 :4910 —- sta sp ‚adresse 
caf8 844808 :4920 — sta anfli 

cafb a590 :4930 — ; lda $90 

cafd d059 :4940 — bne loadend 

caff 20e4ff :4950 -— j3sr get ‚holen 
cb02 85fa :4960 — sta spt+ti 

cb04 8449c8 :4970 - sta anf2 

cb07 20e4ff :4990 — jsr get ‚anzahl 
cb0Oa 8d50c8 :5000 - sta anzahl ;bs holen 
cb0Od 20e4ff :5020 -load2 jsr get ‚tabelle 
cb10 209eca :5030 - jsr write ‚auslesen 
cb13 208909 :5040 — jJsr spinc ‚und 

cb1l6 c900 :5050 — cmp #0 ‚speichern 
cb18 d0üf3 :5060 -— . bne load2 ;‚byte=0 ? 
chbla 20e4ff :5080 — jsr get ;‚tabellen 
cbid 209eca :5090 - jSsr write ‚ende ? 
cb20 208909 :5100 -— jsr spinc 

cb23 c900 :5110 — cmp #0 " 







d0e6 load2 
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cb27 
cb29 
chb2b 
cb2e 


cb31 
cb34 
cb36 


cb39 
cb3b 
cb3d 
cb40 


chb43 
cb46 
cb48 
cb4b 
cb4e 
cb50 
cb52 
cb55 


cb58 


chb5b 
cb5d 
cb60 


cb61 
cb64 
cb66 
‘cb68 
chb6a 


a5f9 
aafa 
8dAcc8 
8cAdc8 


20e4ff 
a000 
209eca 


a590 
a006 
2089c9 
4c31lch 


2089c9 
a900 
209eca 
208909 
a5f9 
adfa 
8d4ec8 
8c4fc8 


20ccff 
a902 
20c3££f 
60 


2058cb 
a95e 
8522 
a9c8 
4c45a4 


:5140 
:5150 
:5160 
:5170 


:5190 
:5200 
:5210 


:5230 
:5240 
:5250 
:9260 


:5280 
:5290 
:5300 
:5310 
:5320 
:5330 
:3340 
:5350 


:5370 
:5380 
:5390 
:5400 


:5420 
:5430 
:5440 
:5450 
:5460 


-loadend 


-loadi1 


lda sp 

ldy sp+1 
sta anf3 
sty anf4 


jsr get 
ldy #0 
Jsr write 


lda $90 

bne load8 
jsr spinc 
Jmp loadi 


jsr spinc 
Ida #0 

jsr write 
jsr spinc 
lda sp 

ldy sp+t1 
sta spend 
sty spend+tl 


jsr cIirch 
lda #2 
jsr close 
rts 


J3sr loadend 
lda #< (errmsgl) 
sta $22 

Ida #>(errmsgi) 
Jmp errout 





r 


;-- parameter aendern/anzeigen — 





D 


;on=—- basicanfang verschieben -——— 


cböd 
cb70 


cb72 
ch75 
cb78 
chb7a 
cb7d 
chb7f 
cb82 
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207900 
aoıll 


ad4dec8 
ac4fc8 
852b 
8d55c8 
842c 
8c56c8 
60 


:5540 
:5550 


:3570 
:5580 
5590 
:9600 
:5610 
:5620 
:5630 


-prganf 


j3Ssr chrgot 
bne prganfl 


lda spend 
ldy spend+ti 
sta 43 

sta prg 

sty 44 

sty prg+l 
rts 


‚anf. 
;textsp. 
‚merken 


;zeichen 
;holen & 
‚speichern 


‚letztes 
‚zeichen ? 
‚nein, 
;weiter 


‚naechstes 
;byte =0 


;:zaehler+i1 
‚als 
;text-ende 
‚ab- 
‚speichern 


‚datei 
‚schliess- 
‚en 

‚ende 


‚folgen 
;param. ? 


‚textende 
‚als 
;basic- 
‚anfang 


‚basic 
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20a3cb :5650 -prganfl parameter+t3;basic- 
8455c8 :5660 - prg ‚anfang 
852b :5670 - 43 ;holen & 
8cH6cC8 :5680 - prg+l ‚speichern 
842c :5690 - 44 


38 :5710 ‚vom basic 
e90i :5720 #1 ‚anfang 
85£9 :5730 sp ‚eins ab- 
98 5740 ‚ziehen 
e900 :5750 #0 

85 LA :5760 sp+1 


a000 :5780 #0 ‚speicher- 
98 :5790 tya ‚stelle 
91£9 :5800 ‚auf null 


60 :5810 rts ; basic 


20fdae :5840 -parameter jsr chkcom ;komma ? 
208aad :5850 3sr frmnum ‚zahl 
20£f7b7 :5860 jsr integer ;holen 
a514 :5870 lda $14 

a415 :5880 idy 

60 :5890 ‚zurueck 


basicspeicher anfang 


a901 :5930 -norm ‚basicanf. 
a008 :5940 - ‚auf 2048 
852b :5950 ‚ ‚sezten 
842c 5960 

:5970 ;basic 


basicanf 


ad53c8 :6010 i ;basicanf 
ac56c8 :6020 ‚auf prg- 
852b :6030 ‚start 
842c :6040 

60 :6050 ‚basic 


anfang bs-/farbspeicher 


cbc2 20a3chb :6090 -screen parameter+3;anfang 
cbe5 8d51c8 :6100 — bsconst ;bildsch. 
cbc8 8c52c8 :6110 — bsconst+1 

cbcb 60 :6120 - 


5-0 speicherbelegung 
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ebee 3920 :6160 -mem ida #32 ;leerz. 
cbce 20A42£f :6170 - Jsr bsout ‚ausgeben 
chbdl ae48c8 :6180 — ldx anfı ;speicher- 
chd4 ad49c8 :6190 -— lda anf2 ‚anfang 
cbd7 20cdbd :6200 — jsr linprt ‚ausgeben 
cbda a92d :6220 — ilda #'-'" ;‚trennz. 
cbadc 2042£f£ :6230 - j3sr bsout 
cbd4f aedec8 :6240 - ldx spend ;zaehler 
cbe2 ad4afcs :6250 - lda spend+1 ‚ausgeben 
cbe5 20cdbd :6260 - jisr linprt 
cbe8 a90d :6270 - lda #13 ;return 
cbea 2042ff :6280 - j3sr bsout 
cbed 60 :6290 - rts ‚basic 
‚=—--- farbe der leerzeichen -—————- 
cbee 209eb7 :6330 -leer jsr getbyte ‚Farbe 
cbfl 8e42c8 :6340 - stx spcol ‚setzen 
cbf4 60 :6350 - rts ‚basic 
Sem anzahl bs-ausgeben ---—— 
cbf5 a920 :6390 -anz lda #32 ;leerz. 
cbf7 20d42ff :6400 - jsr bsout ‚ausgeben 
cbfa ae50c8 :6410 - ldx anzahl ;speicher- 
cbfd a900 :6420 - ida #0 ‚anfang 
cbff 20cdbd :6430 — j3sr linprt ‚ausgeben 
cec02 3a90d :6440 - ida #13 ‚return 
cc04 20d42ff :6450 - jsr bsout 
cc07 60 :6460 — rts ;basic 
‚erweiterung der interpreters.- 
370mm befehlsauswertung -——--— 
cc08 207300 :6540 -inter J3sr chrget ;zeichen 
cc0b c960 6990. cmp #$60 ;holen 
cc0d b019 6560 — bes interout :kein 
ccof c941 :6570 -— cmp #$41 ;buch- 
ccll 9015 :6580 -— bec interout ;stabe ? 
cc13 844708 :6590 - sta akku ;zeichen 
cec16 a200 :6600 -— ldx #00 ;sichern 
cc18 8e6hbcd :6610 -— stx befnr ;‚zaehler=0 
cclb a000 :6620 -interl ldy #00 
ccld eedbc8 :6630 -— inc befnr ;befehls- 
cc20 bdöccc :6640 — ida befehle,x ‚tabelle 
cec23 d009 :6650 — bne inter2 ‚auslesen 
cc25 ad47c8 :6670 - lda akku ‚zurueck 
cec28 207900 :6680 -interout jsr chrgot ; zum 
k=5 
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cc2b Ace7a7 :6690 — 


jo adresse suchen 


d17a 
d035 
e8 

c8 
bd8ccc 
c980 
90£3 
297£ 
di7a 
f604 
eö 
Aclbec 


cc2e 
cc30 
cc32 
cc33 
cc34 
cc37 
cc39 
cc3b 
ccId 
cec3f 
cc41 
cc42 


cc45 
cc46 
cc47 
cc48 
cc4a 
ccAc 
cc4e 


18 
c8 
98 
657a 
857a 
9002 
e67b 


cce50 
cc53 
cc54 
cc55 
cc58 
[ejeiahe) 
cc5e 
ec6l 


ad6bc8 
0a 

aa 

ba75cc 
bc76cc 
8d62cc 
8c63cc 
20f£fff 
4c28cc 


; befehls 


ed 
baddccc 
2980 
c900 
fof6 
e8 
Aclbec 


:6730 
:6740 
:6750 
:6760 
:6770 
:6780 
:6790 
:6800 
:6810 
:6820 
:6830 
:6840 


:6860 
:6870 
:6880 
:6890 
:6900 
:6910 
:6920 


:6940 
:6950 
:6960 
:6970 
:6980 
:6990 
:7000 
:7010 
:7020 


text 


:7060 
:7070 
:7080 
:7090 
:7100 
:7110 
:7120 


-inter2 


- jump 


ueberlesen 


-rest 


jmp intend 


cmp (txtptr),y 
bne rest 

inx 

iny 

lda befehle,x 
cmp #128 

bcec inter2 

and #127 

cmp (txtptr),y 
beq inter3 

inx 

J3mp interi 


clc 

ıny 

tya 

adc txtptr 
sta txtptr 
bcec labl 

inc txtptr+1 


Ida befnr 

asl 

tax 

lda befadr,x 
ldy befadri,x 
sta jump+l 
sty Jumpt2 
j3sr $fEff£f 

jJmp interout 


inx 

Ida befehle,x 
and #128 

cmp #0 

beq rest 

inx 

jmp interli 





;-- sprungtabelle 


neue befehle —- 








7180 

190 
7200 
7210 
7220 


-befadr 
-befadri 


.by $e7 

.ny $a7 . 
.wo deconvert 
.wo leer 

‚wo load 
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;BASIC 


;‚basicbef 
;‚=tabelle? 
;zaehler+i 


; letztes 
‚zeichen ? 


‚bit 7 
;loeschen 
‚auch ok 
‚nein, 
;weiter 


F) 


‚txtptr 
;:auf 
;‚aktuelien 
‚stand 
‚bringen 


;be£fnr *2 


;Sprung- 
‚tabelle 
‚auslesen 
‚und neue 
‚routine 


;‚zaehler+l 
‚letztes 
‚zeichen 
‚der tab.? 
‚nein. 
3a, 
:weiter 














Teil 4_ Kapitel 6.3.9.3 Seite 18 Utilities 








6.3 Assembler-Utilities Teil 4: Software-Erstellung 





7230 .wo mem 
7240 .wo anz 

7250 .wo Screen 
7260 .wo norm 
7270 .wo basic 
7280 .wo prganf 
7290 .wo interoff 
7300 .by O0 





befehlstabelle — 





7360 -befehle Me = 
7370 .tx "spacE" 
7380 ‚tx "disK" 
7390 .tx "meM" 
7400 ‚tx "nuM" 
7410 .tx "screeN" 
7420 .tx "nrM'" 
7430 ‚tx "pr6" 
7440 .tx "basic" 
7450 ER NOTE" 
7460 


startflag 


:7500 -extend lda start ‚erster 
£f003 7510 — beq extend2 ‚start ? 
4c6dc8 :7520 - Jmp init ‚nein 


a901 :7540 -extend2 lda #1 ‚texte im 
8502 27990 sta start ‚programm 
ad55c8 :7560 lda prg ‚einge- 
cd4ec8 :7570 cmp spend ;bunden ? 
a00b :7580 bne extend3 

ad56c8 :7590 lda prg+i1 

cd4fc8 :7600 cmp spendti1 

a003 :7610 bne extend3 

4c6dc8 :7620 jSmp init ;Ja 


a900 :7640 -extend3 lda #0 ;bs-anzahl 
8d50c8 :7650 - sta anzahl : loeschen 
Ac6dcd :7660 — ;weiter 


basicanfang 


7700 -basicanf : ;Null- 
7710 - R ; bytes 
7720 - ß ‚fuer 
7730 — v ;‚basicanf. 
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hypra-ass assemblerlisting: 


Ö -—.1i 1,4,7 
IE EEE un u 2 2 2 22 2.2.2 
FR “x 
;*%* TEXT — CONVERT — SYSTEM Er 
ee “x 
zer Quelltext Converter es 


U % “* 
U 
D 

Pe 2; “x 


KU TH NT TH U KH A A U 


jean variablen extern -—----7—— 


200 -.eq bs=$f7 





210 -.eq sp=$f9 
220 -.eq c1=$fb 
230 -.eq tb=$fd 

nn zer konstanten ----—-- 7777 
270 -.eq revon = 128 
280 -.eg revoff = 129 
290 -.eq space = 32 
3060 -.eqg linend = 146 
310 -.eq ctrl = 653 

een routinen -——------ 
350 -.eq keyvec - $ 28f 
360 -.eq oldkey = $eb48 
370 -.eq milli = $eeb3 
380 -.eq get = $ffe4 
390 -.eg open = $ffcO 
400 -.eq setfls = $ffba 
410 -.eq setnam = $ffbd 
420 -.eq close = $ffc3 
430 -.eq ckout = $ffc9 
440  -.eq circh = $ffcc 
450 -.eq bsout = $gffd2 
460 -.eq chkcom = $aefd 
470 -.eq getbyte = $b79e 
480 -.eq chrget =$ 73 
490 -.eq chrgot =. 79 
500 -.eq error = 53437 
510 -.egq illquan = $b248 
520 -.eq linprt = $bdcd 
530 -.eq ready = $e37b " 
540 -.eq frmnum = $ad8a 
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550 -.eq integer = $b7£f7 
560 -.eq intvec = 50308 
570 -.eq intend = $a7e7 
380 -.egq interait = $a7e4 
590 -.eq txtptr = 47a 
600 -.eq errout = 53445 
630 -.ba 39300 
FR befehlsvector umlegen == 
9984 403699 :690 -stprg Jmp spgrenze 
9987 a94b :700 -stprgl lda #< (inter) ;‚befehls- 
9989 a09f :710 - idy #> (inter) ;vector 
998b 840803 :720 - sta intvec ‚auf neue 
998e 800903 :730 - sty intvec+l ;routine 
9991 adf699 :750 - Ida stflag ;zum 1.mal 
9994 £fO61 760 = beg init ;gestartet 
9996 4c449a :770 -— Jmp vecon ;basic 
9999 a9e4 :790 -interoff Ida #(interalt) 
999b aa? :800 - ldy #>(interalt) 
9994 840803 :810 — sta intvec 
99a0 8c0903 :820 - sty intvec+l 
99a3 Ac4f9a :830 - Jmp vecoff 
age speicher begrenzen ----—— 
99a6 a984 :870 -spgrenze Ida #< (stpro) 
99a8 a099 «880 - ldy #>(stprog) 
99aa 8537 :890 —- sta 55 
99ac 8438 900. = sty 56 
99ae a52d ‚9320 = lda 45 
99b0 a42e 930  - idy 46 
99b2 852£ :940 - sta 47 
99b4 8531 930. = sta 49 
99b6 8430 :960 - sty 48 
99b8 8432 970 — sty 50 
99ba 4c8799 :980 — Jmp stprgl 
er variablen prg-intern — 





1040 -code 
1050 -code2 


.by 00 
.by 00 
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— 





a90l 
8df699 
fc a900 
8dce99 
8de099 
8de199 


ade299 
ace399 
85f9 

8dd4899 
8ddc99 
> 844199 
84fa 

804999 
Bcdd99 
804299 





9a20 


:1390 
:1400 — 
:1410 — 
:1420 - 
:1430 - 
:1440 - 








1060 -revflag 
1070 -line 
1080 -line2 
1090 -col 
11060 -yreg 
1110 -count 
120 -pruef 
1130 -flagi 
1140 -flag2 
1150 -flag3 
1160 -zws 
170 -zws?2 
1180 -akku 
1190 -namec 
1200 -bscol 
210 -spceonst 
1220 -bsconst 
230 -clconst 
1240 -konf 
1250 -tbalt 
1260 -spalt 
270 -tbconst 
1280 -spnew 
1290 -tbwert 
1300 -spanf 
1310 -befnr 
1320 -errmsg 
1330 -stflag 


:1460 - 
:1470 — 
:1480 - 
‚1490 — 
:1500 — 
:1510 — 
:1520 - 
»1930,'* 
:1540 - 
1550. = 
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.by 00 
.by 00 
.by 00 
.by 00 
.by 
.by 
.by 
.by 
.by 
.by 
„Wo 
„wo 
.by 
.wo 
.by 
.Wwo 
.wo 
„wo 
.by 
„Wo 
.wo 
.wo 
.wo 00 

.wo 00 

.wo $a000 
.by 00 

.tx 
.by 00 


$d800 
00 
00 
00 
00 


lda #1 

sta stflag 
Ida #0 

sta namec 
sta tbwert 
sta tbwert+l 


lda spanf 

ldy spanf+l 
sta sp 

sta tbalt 

sta tbconst 
sta spconst 
sty sp+ti 

sty tbalt+il 
sty tbceonst+1l1, 
sty spconst+1 


Teil 4: Software-Erstellung 





“no screen defineD'" 


;L. start 
‚anzahl 
‚screens=O 


;SP 

‚anfangs- 
‚wert in 
‚zeigern 


‚speichern 





| 
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9a23 204194 :1570 — 
9a26 204194 :1580 - 
9a29 aoff 1590 - 
9a2b 204194 :1600 -initl 
Ya2e 20419d :1610 - 
9a3l 88 :1620 -— 
9a32 dA0f7 :1630 - 
9a34 a5fg :1650 - 
9a36 a4dfa :1660 -—- 
9a38 8dda99 :1670 -— 
Yasb Bdd199 :1680 — 
9a3e 8cdb99 :1690 — 
:1700 - 


9a41 8cd299 


jsr ram 
Jsr ram 
idy #255 
jsr ram 
jsr ram 
dey 

bne initl 


lda sp 

Idy sp+1 

sta spalt 

sta spconst 
sty spalt+i1 
sty spconst+1 


;=--- tastaturvector umbiegen -—— 


9344 a95a 


:1740 -vecon 
9a46 alda :1750 — 
9348 8d8f02 :1760 — 
9a4b 89002 :1770 — 
Yade 60 :1780 — 
Yaaf a948 :1800 -vecoff 
9a51 adeb :1810. — 
9353 8d8f02 :1820 — 
9a56 8c9002 :1830 -— 
:1840 — 


9a59 60 
a —e taste gedrueckt 


9asa ad8d02 :1880 -test 


9a5d 2904 :1890 - 
Y9a5f £f006 :1900 - 
9a61l ascy :1910 - 
9a63 c939 :1920 — 
9a65 f003 1930 - 


9467 4c48eb :1950 —no 


Ida #< (test) 
ldy #>(test) 
sta keyvec 
sty keyvec+ti 
rts 


ida #<toldkey) 
ldy #>(oldkey) 
sta keyvec 
sty keyvec+tl 
rts 


Ida ctrl 
and #4 

beq no 

lda $c5 

cmp #57 

beq flimmer 


J3mp oldkey 





His bs-flimmern 





’ 





9a6ä 8dd099 :2020 - 
9370 asck :2030 -curi 
9372 eec599 :2040 — 
9375 £Of9 :2050 - 
9877 a901 :2070 - 


9asa ad20d40 :2010 -flimmer 


lda $d4020 
sta bscol 
ida 207 
inc pruef 
beqg curi 


lda #1 


;SPrung- 
‚tabelle 
sein- 
‚richten 
;&loeschen 


‚anfang 
;text- 
‚speicher 
‚merken 


‚tastatur 
;vector 
‚auf neue 
;routine 


;vector 
‚zurueck 


och 
‚gedrueckt 


‚* gedr.? 


;rahmenf. 
;sichern 
‚cursor 
;aus 
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9a79 85cc :2080 — sta 204 

9a7b a900 :2090 — lda #0 :;taste 
9a7d 85c6 :2100 - sta 198 ;loeschen 
9a7f 204f9a :2110 — jsr vecoff 

9a82 58 :2120 - eli 

9383 a064 "2130 - ldy #100 ‚kurz 
9385 20be9a :2140 — jsr wait ‚warten 
9388 3906 :2160 -flimmeri Ida #6 ; blau 
9a8a 8d20dl :;2170 - sta $d020 

Y9a8d a004 :2180 — ldy #4 ‚warten 
g9a8f 20be9a :2190 - jsr wait 

9392 a90e :2210 - lda #14 ;hellblau 
9394 842040 :2220 - sta $d020 

9397 a091 2230: = 1dy #145 ‚warten 
9399 88 :2240 -flimmer2 dey 

9a9a düfd :2250 - bne flimmer2 

9a9c a005 2260 - ldy #5 

9a9e 20be9a :2270 — jSsr wait 

g9aal 20e4ff :2290 - jsr get ‚taste ge- 
9aad4 fDe2 :2300 - beqg fFlimmerl ‚drueckt ? 
9aa6 c920 2320 cmp #32 ‚space ? 
9aas £f007 29330. — beq flimmer3 ‚Ja 

Yaaa c904 :2340 - cmp #13 ‚return ? 
9aac £017 2350 - beq convert ;3a 

Yaae 4c889a :2360 — jmp £limmerl 

9ab1l a900 :2380 -flimmer3 Ida #0 taste 
9ab3 8506 :2390 - sta 198 

9ab5 add099 :2400 - Ida bscol :rahmenf. 
Y9abB 8d20d0 :2410 - sta $d020 

Y9abb A4c449a :2420 — jmp vecon ‚basic 
Y9abe 20b3ee :2440 -wait jsr milli ;y mal 
9acl 88 :2450 - dey :1 milli 
9ac2 aDfa :2460 — bne wait ;‚sekunde 
Yac4 60 :2470 —- rts 

== prg- init en 

Y9ac5 a900 :2530 -convert ıida #0 ‚tastatur- 
9ac7 85c6 :2540 - sta 198 ;puffer=O 
9ac9 add199 :2560 — lda spconst :speicher 
Yacc acd299 :2570 - ldy spconst+1 ;zaehler 
Ygacf 85f9 :2580 -— sta sp ‚anfang 
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9adıl 


9ad3 
9ad6 
9349 
Y9adb 


Yadd 
9ae0 
9ae3 
Yae5 


9ae7 
Yaea 
Y9aed 
gaef 


Yafl 
Yafd 
9af7 
Yafa 
gafd 
9b00 
9b03 


9504 
906 
9b09 
9bOc 
9b0f 


9b12 
9b14 
9617 
9bla 
Y9blc 
Hhle 
9b20 


9b23 


9b26 
9629 





9b2b 
3b2d 
9530 
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safa 2590 — 
addc99 :2610 — 
acdd99 :2620 — 
85fd :2630 — 
84fe :2640 — 
add399 :2660 - 
acd499 :2670 — 
85£f7 :2680 — 
8afd :2690 - 
add599 :2710 - 
acd699 :2720 - 
85fb :2730 -— 
8afc :2740 - 
eec899 :2760 - 
ade099 :2770 — 
204194 :2780 — 
adel99 :2790 — 
20419d :2800 — 
cec899 :2810 - 
18 »2820 = 
a9ö0 :2840 — 
8dbf99 :2850 - 
840299 :2860 — 
84.099 +2870.- 
840399 :2880 — 
a906 :2900 — 
8d20d40 :2910 — 
adce99 :2930 - 
c9ff :2940 -— 
a005 : 2950 - 
a210 2970 - 
A4c37a4 :2980 - 
eece99 :3000 

Set bs-farbe 
adc799 :.3040 — 
acıı 3090, = 
agff :3070 — 
20419d :3080 - 
add099 :3090 — 





sty 


lda 
idy 
stä 
sty 


ida 
ldy 
sta 
sty 


lda 
ldy 
sta 
sty 


inc 
ida 
jJsr 
ida 
jsr 
dec 
celc 


lda 
sta 
sta 
sta 
sta 


lda 
sta 


lda 
cmp 
bne 


1dx 
JSmp 


-converti inc 


da 
bne 


lda 
jsr 
lda 


sp+ti 


tbceonst 
tbconst+i 
tb 

tb+1 


bsconst 
bsconst+1l 
bs 

bs+1 


clconst 
clconst+i1 
ei 

el+1 


flag3 
tbwert 
ram 
tbwert+1 
ram 
flag3 


#0 
revflag 
col 
line 
yreg 


#6 
$d020 


namec 
#255 
converti 


#16 
error 


namec 


flag2 
loop2 


#255 
ram 
bscol 
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;tabellen- 
;‚zaehler 


‚anfang 
;bi ld- 
;schirm- 
‚speicher 


‚anfang 
;farb- 
‚speicher 


‚text- 
‚anfang 
‚in die 
;tabelle 
‚eintragen 


‚diverse 
‚Flags 
‚auf OÖ 


‚rahmenf. 
;blau 


;256. 
‚screen ? 
‚out of 


‚memory 


;textnr.+l 





;keine 
‚farbe ? 


‚signal- 
‚byte 
‚rahmen- 
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9533 20419d :3100 - jSsr ram 
9536 ad21ld0 :3110 - lda $d021 
9539 20419d :3120 - jsr ram 
Fasciee hauptschleife = 

I9p3c a00o :3180 -i00p2 ldy #0 
Y9b3e bIf7 :3190 -loopl lda (bs),y 
9540 8dhd499 :3200 - sta code 
943 c980 :3220 - cmp #128 
9545 9003 :3230 - bcc weiter? 
9547 Acde9b :3240 — JSmp rflag 
9b4a adbf99 :3260 -weiter2 Ida revflag 
9bAad £FO03 3270 — beq weiter 
9pAf Acüc9c :3280 - jmp rflagb 
9652 adbd99 :3300 -weiter Ida code 
9555 29bf :3310,- and #191 
9b57 c920 :3320 — cmp #32 
9559 A006 :3330 - bne save 
955b 8dhd99 :3340 — sta code 
9b5e Ac6d9b :3350 — imp save2 
9b61 bifb :3380 -save Ida (el),y 
9563 290f 3390: - and #15 
9565 cdc299 :3400 — cmp col 
9568 f003 :3410 - beq save2 
9b6a Ac219c :3420 - jmp colneu 
Ib6d 4.399c :3440 -save2 3mp double 
9570 800399 :3450 -save3 sty vreg 
9573 a000 :3460 — ldy #0 
9575 adbd99 :3470 — lda code 
9578 20419d :3480 — jSsr ram 
97h acc399 :3490 -— ldy yreg 
567 c8 :3520 -zaehler ıny 

3b7f cO28 :3530 -zaehler2 cpy #40 
9p81 dlpb :3540 bne loopi 
983 a5f7 :3560 -newline Ida bs 
9b85 18 :3570 - clc 

9b86 6928 :3580 — ade #40 
9b88 85£7 3590 - sta bs 
9b8a asf8 :3600 — lda bs+i 
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:Farbe 
;bilds. 
;£farbe 


;bs-code 
‚sichern 


;reverses 
;zeichen ? 


‚revflag 
;trotzdem 
‚gesetzt 


‚leer 
‚zeichen ? 





‚farbeode 
;holen 
‚neue 
‚farbe ? 


;y sichern 


‚code 
‚speichern 


‚zaehler+l 
‚zeilen- 
‚ende ? 


;naechste 
;zeile 
:bild- 
‚schirmsp. 
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9b8c 6900 :3610 - adc #0 

9b8e 85f8 29620 = sta bs+1 

9b90 18 :3630 — Sole 

991 asfb :3650 — lda cl ‚naechste 
9b93 18 :3660 — clc ;zeile 
9594 6928 :3670 - adc #40 ;farbsp. 
9b96 85fhb :3680 -— sta cl 

9598 aäfc :3690 — lda cl+1 

99a 6900 :3700 -— adc #0 

9b9c 85fc 3719 = sta cl+1 

9b9e 18 93720 = clc 

9H9f adc699 :3730 — lda flagl 

9ba2 f£OO1 :3740 — beq newlinel 

9ba4 60 937230 = rts 

9ba5 eecü099 :3770 -newlinel inc line ;letzte 
9ba8 adc099 :3780 -newline2 Ida line :;zeile ? 
9bab c919 3790 —- cmp #25 

9bad A084 :3800 — bne loop2 

9baf add099 :3820 -ende lda bscol ‚rahmenf. 
9bb2 842040 :3830 — sta $d020 ‚zurueck 
9bp5 a5fy :3840 — lda sp ‚zaehler 
9bp7 adfa 3850 = ldy spt+t1 ;sicherni 
9bb9 8dd199 :3860 — sta spconst 

9bbce 804299 :3870 - sty spconst+l 

9hbf a5f9g :3890 — lda sp ‚speicher- 
9bci 38 :3900 - sec ‚zaehler 
I9pc2 edda99 ;3910 — sbc spalt ;vom 
9bce5 8de099 :3920 — sta tbwert ‚anfang 
I9bc8 a5fa :3930 — lda sp+i ‚abziehen 
9bca eddb99 :3940 — sbc spalt+l 

9bca 8del199 :3950 - sta tbwert+i 

9ba0 18 :3960 - clc 

9hal asfd :3980 - lda tb ;tabellen- 
9bd3 a4dfe :3990 - lady tb+1 ;‚zeiger 
9545 8ddc99 :4000 - sta tbconst :sichern 
9bd8 8cdAd99 :4010 — sty tbconst+l 


9pdb 4c449a :4020 — jJmp vecon 


Ibde adbd99 :4060 -rflag lda code ‚reverses 


9bel 38 :4070 — sec ‚zeichen 
9be2 e980 :4080 — sbc #128 ‚normali- 
9be4 8dbd99 :4090 - sta code ;‚sieren 


9be7 18 :4100 - clc 
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9be8 c960 :4120 — cmp #96 ;2.5pace ? 
9bea d005 :4130 - bne rflag2 

9bec a920 :4140 — lda #32 ‚dann code 
9pee 8dbd99 :4150 — sta code ‚= 32 

9nHf1 adbf99 :4180 -rflag2 lda revflag ‚revflag 
9bf4 £f003 :4190 — beq rflagl ‚=1 ? 

9pf6 Ac619b :4200 -— jmp save 

9hf9 eebfY99 :4210 -rflagsl inc revflag ;‚revflag=1 
I9bfc 80ccC399 :4220 — sty yreq :y sichern 
Shff a00o ‚4230 — ldy #0 

9c01l a980 ‚4240 — lda #revon ‚zeichen 
9003 20419d :4250 - jsr ram ‚in den 
9c06 acc399 :4260 — ldy yreg ‚speicher 


909 Ac619b :4270 - jJmp save ‚zurueck 
Beraten normale zeichen ------ 


9c0c a900 :4310 -rflagb Ida #0 ‚revflag=0 


I9c0e 8dbf99 :4320 - sta revflag 

9c11 800399 :4330 — sty yreg ;y sichern 
9c14 a000 :4340 - idy #0 

9c16 a981 :4350 — lda #revoff ;zeichen 
9c18 204194 :4360 — jsr ram ;in den 
9c1b acc399 :4370 - ldy vreg ;speicher 
9cle Ac529b :4380 — Jmp weiter ‚zurueck 


Noieimireszggr farbe aendern --------- 


9021 bifb :4420 -colneu Ida (el) ,y 


9c23 290f ‚4430 — and #15 

9025 840299 :4440 - i sta col ;neue 
9c28 18 :4450 - clc 

9c29 6982 :4460 — adc #130 ‚farbe 
9c2b 80c399 :4470 - sty yreg 

9c2e a000 :4480 - Idy #0 ‚farbcode 
9c30 204194 :4490 — jsr ram ‚in den 
9c33 acc399 :4500 — ldy yreg ‚speicher 
9c36 Ac6d9b :4510 -—- jmp save2 ‚zurueck 


ern gleiche zeichen -------— 


9c39 8cc399 :4550 -double sty yreg ;y sichern 
9c3c a901 :4560 - ida #1 ;‚zaehler=1 
9c3e 840499 :4570 - sta count 
9c41 adbd99 :4580 - lda code 
9c44 Bdbe99 :4590 - sta code2 
9c47 adbf99 :4610 - Ida revflag - ‚reverses 
9c4a £009 :4620 - beq double5 ;zeichen ? 
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9cAc adbe99 :4630 -— lda code2 ;normaler 
9cAf 6980 :4640 - adc #128 ;‚zeichen- 
9c51 8dbe99 :4650 - sta code2 ‚code 

9c54 18 :4660 — clc 

9055 c027 :4680 -doubleS cpy #39 letztes 
9c57 £022 :4690 — beq double4 ;zeichen ? 
9c59 c8 :4710 -double2 iny ‚naechstes 
9c5a bIf7 :4720 - ida (bs),y ‚zeichen 
9c9c cdbe99 :4730 — cmp code2 ;gleich ? 
9c5f A023 :4740 — bne double3 

9c61 29bf :4750 - and #191 

9063 c920 :4760 - cmp #32 

9c65 f009 :4770 - beq double6 

9c67 bilfb :4780 — lda (c}l),y ‚farbe 
9069 290£ :4790 - and #15 

9c6b cdc299 :4800 — cmp col ‚gleich 
9c6e d014 :4810 — bne double3 

9c70 18 :4820 -double6 elc 

9c71 eec499 :4840 - inc count 

9c74 0027 :4850 — cpy #39 ‚zeilen- 
9c76 dOel :4860 - bne double2 ‚ende ? 
9c78 cec499 :4870 — dec count 

9c7b adbe99 ;4890 -double4 lda code2 ‚nur leer- 
9c7e 29bf :4900 - and #191 

9c80 c920 :4910 - cmp #32 ‚zeichen ? 
9c82 f029 :4920 — beq zendex 

9c84 adc499 :4940 -double3 lda count ‚4 gleiche 
9087 0904 :4950 — cmp #4 ‚zeichen 
9c89 901c :4960 - bce doublend 

9c8b 8cC399 :4970 — sty yreg 

9c8e a000 :4980 — Idy #0 

9c90 a993 :4990 -— ida #147 ‚signalc. 
9c92 204194 :5000 - j3sr ram ;speichern 
9095 adc499 :5020 -— ilda count ‚anzahl 
2c98 204194 :5030 - jJSsr ram ;speichern 
9c9b adbe99 :5050 — lda code2 ‚zeichen 
9c9e 20419d :5060 - jSsr ram ;speichern 
9cal acc399 :5070 -— ldy yreg 

9ca4 4c7f9b :5080 — Jmp zaehler2 

9ca7 acc399 :5100 -doublend Idy yreg ;y zurueck 





9caa Ac709b :5110 — jSmp save3 ‚weiter 


KW enderder Zeile === 
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9cad 
Icaf 
9ch2 
9chba 
9cb7 


a000 
Achba9c 
a992 
204194 
4c839b 


9cha 
I9chbe 
Ichf 
9cel 


a5f7 
8d4c999 
a5fs 
8d1ca99 


9cc4 
92c6 
9cc9 
9ccb 


aöfb 
8dchb99 
aäfc 
8d4cc99 


9cce a000 
9cd0 800499 
9cd3 c8 
9cd4 800699 
9cd7 adcü99 
9cda 8dc199 


9cdd 
9cel 
9ce3 
Gceä 


eec099 
adc099 
c919 
f00ad 


Ice? 
9ce9 
9cec 
I9cee 
9c£0 
9012 


a000 
20839b 
b1f7 
29bf 
c920 
f027 


9cf4A 
9c0£7 


adc499 
d037 


9c£9 
9c£b 
Ice 
9a01 
9403 
9406 


a000 
8cc699 
adc9y999 
85f7 
adca99 
85£f8 


9a08 
9dob 


9404 


adcb99 
85äfb 
adcc99 





:5150 
:5160 
:5170 
:3180 
:5190 


:5230 
:5240 
:5250 
:5260 


:5280 
:5290 
:5300 
:5310 


:5330 
:5340 
:93350 
:5360 
:5370 
:5380 


:5400 
:5410 
:5420 
:5430 


:5450 
:5460 
:5470 
: 3480 
:5490 
:5500 


:5520 
9030 


:5550 
:5560 
:3570 
:3580 
:93590 
:5600 


:5620 
:5630 
:5640 





-zendex idy #0 
= 3mp bsend 
-zendexi Ida #linend 


= jsr ram 
- jimp newline 


mehrere leerzeilen --—-—— 


-bsend lda bs 

= sta zwsS 

= lda bs+1l 
= sta zws+1l 


= lda ci 

= sta zws2 
_ lda cl+1 

_ sta zws2+1 


= Idy #0 

= sty count 
zu iny 

= sty flagl 
es ıda line 
= sta line2 


= inc lire 

= lda line 

= cmp #25 

a beq bsend4 


-bsendi ldy #0 

= j3sr newline 
-bsend2 ıida (bs),y 
= and #191 

_ cmp #32 

= beq bsend3 


-bsend4 lda count 
= bne bsendS 


- ldy #0 
= sty flagl 
= lda zws 
u sta bs 
_ lda zws+l 
Eee sta bs+1 


= lda zws2 
= sta cl 
= Ida zws2+l 
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‚code fuer 
;in den 
‚return 


‚neue 2. 


;text- 
;‚zeiger 
;zwischen- 
‚speichern 


;‚£farb- 
‚speicher 
;‚zwischen- 
‚speichern 


;‚zaehler=0 


;‚zeilennr. 
‚sichern 


:schon 

; letzte 
‚zeile ? 
‚Ja 
‚neue 


‚zeile ? 


; leer- 
;zeichen ? 
‚3a 


:>0 leer- 
;zeilen ? 


;‚zeiger 
‚zurueck 
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9d10 


9412 
9d15 
9a18 


9dih 
Y9älc 
9dle 


9420 
9423 
9426 
9429 
9d2b 


9d2d 
9430 
9432 
9435 
9437 
9438 


9d43b 
9d3e 


9441 
9444 
9445 
9446 
9447 


9a48 
9d4a 
g9dAd 
9daf 
9a50 
9452 
9499 
9457 
9459 
9d5c 
945e 
9461 
94693 
9464 


9a65 
9467 


85fc :5650 — sta 
adc199 :5670 - Ida 
840099 :5680 - sta 
4ch29c :5690 -— jmp 
c8 :5710 -bsend3 iny 
c028 5720 - cpy 
dOcc :5730 - bne 
eec499 :5750 - ine 
eec099 :5760 — inc 
adc099 :5770 - Ida 
c919 5780 -— cmp 
d0ba :5790 — bne 
dec count 
Acf49c :5810 - jmp 
a0u00 :5830 -bsendS ldy 
800699 :5840 -— sty 
a994 :5850 - lda 
18 :5860 — clc 
6dcA499 :5870 — adc 
20419d :5880 — jsr 
Aca89b :5890 -— Jmp 
== zeichen ins ran 
8d4cd99 :5930 -ram sta 
8a :5940 — txa 
48 ‚5950 - pha 
98 :5960 — tya 
48 :5970 -— pha 
a501 :5990 - lda 
844799 :6000 — sta 
29f8 :6010 — and 
78 :6020 — sei 
8501 :6030 — sta 
adc899 :6040 -— lda 
d0ü2c 6050 = bne 
a000 :6060 — ldy 
adcd99 :6070 - lda 
91f9 :6080 -— sta 
acd799 :6090 - idy 
8401 :H100.= sty 
58 :6110 - cli 
18 8120 — celc 
e6£f9 :6140 — inc 
d002 :6150 -— bne 


cl+i1 


line2 
line 
zendexl 


#40 
bsend2 


count 
line 
line 
#25 
bsendl 


bsend4 


#0 
flagl 
#148 


count 
ram 
newline2 


akku 


konf 
#248 


flag3 
rams3 
#0 
akku 
(sp) .y 
konf 


SP 
raml 
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‚alte r. 


‚naechstes 
‚zeichen 


‚naechste 


‚zeile 
‚letzte ? 


;weiter 


;zeiger 
;zurueck 
‚signal- 
;code 
‚speichern 


‚register 
‚retten 


‚speicher 
‚auf ram 
;schalten 


‚kabellen- 
‚wert ? 


‚zeichen 
‚speichern 


‚zaehler 
‚erhoehen 
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9469 e6fa 
9d6hb 
9d6d 
9d6f 
9471 
9473 


a5fg 
c9ff 
a5sfa 
eg9ff 
9005 


9475 
9477 


a210 
403734 


947a 
9d47b 
947c 
9474 
947e 
9a81l 
9482 


68 
a8 
68 
aa 
adcd99 
18 
60 


9483 
9485 
9488 
9A8a 
9aBd 
Yasf 
9490 


a000 
adcd99 
9ifd 
acd799 
8401 
58 

18 


9491 
9493 
9495 
9497 


’ 


e6sfd 
d0e5 
e6fe 
4c7a9d 


inc 


ida 
cmp 
lda 
sbc 
bec 


‚speicher- 
‚grenze 
‚erreicht? 


ldx 
JSmp 


‚out of 
‚mem.error 


‚register 
;zurueck 


pla 
tay 
pla 
tax 
lda 
clc 
rts ;zurueck 
ldy 
Ida 
sta 
ldy 
sty 
cli 
celc 


‚sprung 
‚adresse 
‚in der 
;tabelle 
‚speichern 


;‚tabellen- 
‚zaehler 
‚erhoehen 
‚weiter 


inc 
bne 
inc 
JSmp 








bs-anzahl 


a920 
20d42ff 
aece99 
a900 
20cdbd 
a90d 
Acäa2ff 


:6540 
:6550 
:6560 
:6570 
:6580 
:6590 
:6600 


sp-zaehler 
a920 


20d2ff 
aee299 


:6640 
:6650 
:6660 
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ausgeben 


;leerz. 
‚ausgeben 
;‚zaehler 
‚ausgeben 
‚return 
‚ausgeben 
‚basic 


-anz 


ausgeben 


;‚leerz. 
‚ausgeben 
‚speicher- 


-mem 
u bsout » 
= spanf 
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9d4b4 ade399 :6670 — lda spanf+1 
9467 20cdhd :6680 -— jSsr linprt 
9daba a92d :6700 — Ida #"-" 
Sabce 20d42ff :6710 - jsr bsout 
9dbf aed199 :6720 — ldx spconst 
9dc2 add299 :6730 -— lda spconst+i 
9405 20cdbd :6740 - jsr linprt 
9Ac8 a90d :6750 — lda #13 
9dca 20d2fFf :6760 — jsr bsout 
9dcd 60 :6770 - rts 

A neigt speicheranfang --------— 


Sdce 20fh9d :6810 -start 


9dAdl 8de299 :6820 - sta spanf 
9dd4 8ce399 :6830 — sty spanf+l 
:6840 - Jmp init 


9ad7 4c£799 
Fa vg ae bild/farbspeicher —-—-— 


9dda 20fb9d :6880 -screen 


9ddd 8Ad399 :6890 — sta bsconst 
9de0 8cd499 :6900 - sty bsconst+1 
:6910 - rts 


9de3 60 
ee bildschirmfarben ---——-—. 

9deA 209eb7 :6950 -color jsr getbyte 
9de7 8ec799 :6960 — stx flag2 
9dea 60 :6970 — rts 


700 tastaturvector ein/aus --—— 


‚anfang 
‚ausgeben 


‚trennz. 
‚ausgeben 
;‚zaehler 
‚ausgeben 


;return 
‚ausgeben 
;basic 


jsr parameter+3;spei- 


‚cheranf. 
;Festlegen 


jisr parameter+3;anfang 


;‚bildsch. 


;basic 








9deb 209eb7 


:7010 -tast 
Ydee e000 :7020 - 
9AfO A003 7030 - 
9af2 Ac4fY9a :7040 - 


:7050 -tasti 





9dt5 Acd49a 


9af8 20fdae 


9dtb 208aad :7090 — 
9dfe 20f7b7 :7100 — 
9e0l a5l4 27110 .- 
9e03 a415 :7120 — 

7130 - 


98205 60 


jsr getbyte 
cpx #0 

bne tasti 
JImp vecoff 
J3mp vecon 


:7080 -parameter jsr chkcom 


3sr frmnum 
jSsr integer 
ida $14 

ldy #15 

rts 





e- texte speichern 
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9e06 
9e09 
Jeüb 
9e0d 
geüf 
gell 


9e14 


9e17 
gela 
9gelc 


9ele 
9e2l 
9e22 
9e24 
9e27 
ge2a 
ge2d 
9e2e 
ge3l 
9e33 
9e35 
98238 
9e3b 


9e3c 
9e3e 
9e41 
9e44 
9e46 
9e49 
9eAc 
Y9e4d 
Ygeäf 
9e51l 
9e53 


9e56 
9e59 
9e5b 


gese 
9860 
9e62 


9e65 
9867 
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adce99 
d009 
age 
8522 
a999 
404534 


2057e2 


20f89d4 
85f9 
84fa 


adce99 
48 
a900 
8dckf99 
Dece99 
Zecf99 
18 
adce99 
6902 
9003 
eecf99 
8dce99 
18 


a5f9 
6dce99 
8dde99 
asfa 
6d4cf99 
8ddf99 
18 


a902 
a208 
a002 
20baff 


20c0ff 
a202 
20cY9ff 


a590 
£003 
4c129f 


a954 
20A2f£ 


:7190 
:7200 
:7210 
:7220 
:7230 
:7240 


:7260 


:7280 
:7290 
:7300 


:7320 
2330 
:7340 
:7350 
: 7360 
:7370 
: 7380 
:7390 
:7400 
:7410 
: 7420 
: 7430 
: 7440 


:7460 
:7470 
:7480 
:7490 
:7500 
:7510 
:7520 


:7540 
:7550 
:7560 
7570 


:7590 
:7600 
:7610 


:7630 
: 7640 
: 7650 


:7670 
:7680 


-speicher 


-speichera 


-speicher8 


-speichli 


ida 
bne 
lda 
sta 
lda 
jSmp 


Jsr 


jsr 
sta 
sty 


lda 
pha 
lda 
sta 
asl 
rol 
elc 
Ida 
adc 
bec 
inc 
sta 
le 


lda 
adc 
sta 
lda 
adc 
sta 
EIS 


lda 
ldx 
ldy 


jsr 
j3sr 
ldx 
jsr 
lda 
beq 
Jmp 
lda 
jsr 


namec 
speichera 
#< (errmsg) 
$22 
#>(errmsg) 
errout 


$e257 


parameter 
sp 
sp+1 


namec 


#0 
namec+1 
namec 
namecti 


namec 
#2 
speicher8 
namecti 
namec 


sp 
namec 
spnew 
sptl 
namec+i 
spnewt+ti1 


#2 
+8 
#2 
setfls 


open 
#2 
ckout 


390 
speichil 
speicher 


#t" N 
bsout 


;fehler- 
‚meldung 
‚ausgeben 


‚name 


;spaetere 
‚start- 
‚adresse 


‚anzahl 
‚retten 


‚anzahl 
2 


;anz. +2 


;wert zum 
;‚speicher- 
‚anfang 

‚addieren 


‚filenr. 
;8=f loppy 
‚sek.adr 


‚file 
‚oeffnen 


;fehler ? 


‚erkenn- 
‚ungsmarke 
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9e6da a590 
9e6c £f003 
gebe 4c129f 
9871 a943 
9e73 20A2f£f 
9276 a953 
9e78 2042ff 


9e7b a5f9g 
9e7a 2042£ff 
9e80 asfa 
9e82 20d2ff 


9e85 68 
9886 BdAce99 
9889 2042f£f 


9e8c add899 
geßf acd999 
9892 ‚85£9 
9e94' 84fa 
9896 a000 


9e98 adde9y9 
9e9b 2042ff 
9e9e addt99 
geal 20A2f£f 
gea4 a590 

9ea6 dOba 

Yea8 20439 
geab 20439f 


202c9f 
8äfd 
20439f 
202c9f 
85fe 
20439f 


geae 
9ebl 
9eb3 
9eb6 
9eb9 
9ebb 


9ebe 
9ecO0 d0oOd 
9gec2 a5sfe 
9ec4 d009 
9ec6 2Z0A2ff 
9ec9 20A2ff 
Y9ecc Acf09e 


asfd 


9ecf 
9edl 
9ed2 
9ed5 


a5sfd 
18 
6dde99 
85fd 


:7690 
:7700 
:7710 
:7720 
:7730 
:7740 
:7750 


:7770 
:7780 
:7790 
:7800 


:7820 
:7830 
:7840 


:7860 
:7870 
:7880 
:7890 
:7900 


:7920 
:7930 
:7940 
:7950 
:7960 
:7970 
:7980 
:7990 


:8010 
:8020 
:8030 
:8040 
:8050 
:8060 


:8080 
:8090 
:8100 
:8110 
:8120 
:8130 
:8140 


:8160 
:8170 
:8180 
:8190 
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-speich10 


-speicher9 


-speicher? 


-speicher6 


lda 
beq 
JSmp 
ida 
jsr 
lda 
jsr 


lda 
jSsr 
lda 
jSsr 


pla 
sta 
jsr 


lda 
ldy 
sta 
sty 
ldy 


lda 
jsr 
ida 
jsr 
lda 
bne 
jsr 
jsr 


jJsr 
sta 
jsr 
jSsr 
sta 
jsr 


lda 
bne 
lda 
bne 
j3sr 
jsr 
Jmp 


ida 
clc 
adc 
sta 
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90 
speichl0 
speicher 
#'c" 
bsout 
#5" 
bsout 


Sp 
bsout 
sp+i 
bsout 


namec 
bsout 


tbalt 
tbalt+1 
sp 

spti 

#0 


spnew 
bsout 
spnew+i 
bsout 

390 
speicher 
spinc 
spinc 


read 
tb 
spinc 
read 
tb+1 
spinc 


tb 
speicher6 
tb+1 
speicher6 
bsout 
bsout 
speicher3 


tb 


spnew 
tb 


;C'tes') 
‚ausgeben 


‚startadr. 
‚speichern 


‚anzahl bs 
;speichern 


‚anfang 
;sprung- 
‚tabelle 


;die 
‚ersten 2 
; bytes 
‚der 
;‚sprungtab 
‚speichern 


‚relative 
‚anfangs- 
‚adresse 
;holen 


;beide 
;bytes =0? 


‚Ja, ende 
‚der tab. 
;weiter 


;sprungadr 


zur" an- 
‚fangsadr. 
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9filb 
9flc 
9f1d 
9£fle 
9f1f 


9£20 
9£23 


9f£26 
9£27 
9f28 
9f29 
9f2a 


aöfe :8200 - 
6ddf99 :8210 — 
8öfe :8220 - 

18 :8230 - 
asfd :8250 - 
20d42ff :8260 — 
aöfe :8270 -— 
20d2ff :8280 - 
a590 :8290 - 
4025 :8300 - 
4caede :8310 — 
adda99 :8330 -speicher3 
acdb99 :8340 - 
85£f9 :8350 - 
84Afa :8360 — 
201b9f :8380 -speicher4 
20439f :8390 - 
a590 :8400 - 
düße :8410 - 
a5fg :8430 - 
cdd199 ;8440 - 
dlef :8450 — 
aöfa :8460 - 
cdd299 :8470 - 
d0e8 :8480 — 
20ccff :8500 -speicherS 
a902 8310 - 
20c3ff :8520 - 

60 :8530 

-- unterprogramme 
48 :8570 -speichern 
Ba :8580 — 

48 :8590 — 

98 :8600 — 

48 :8610 - 
202c9f :8630 - 
20d42ff :8640 — 

68 :8660 — 

a8 8670: - 

68 :8680 — 

aa 8690. = 

68 :8700 - 


lda 
adc 
sta 
clc 


ida 
jsr 
ida 
jsr 
lda 
bne 
3mp 


lda 
ldy 
sta 
sty 


jisr 
jSsr 
ida 
bne 


lda 
cmp 
bne 
lda 
cmp 
bne 


Jsr 
lda 
jJsr 
rts 


pha 
txa 
pha 
tya 


‚pha 


jsr 
jsr 


pla 
tay 
pla 
tax 
pla 
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tb+1 ‚addieren 

spnew+tl 

tb+1 

tb ‚und in 

bsout ;‚der 

tb+1 ‚tabelle 

bsout ‚speichern 

3590 

speicherö 

speicher? 

spalt 

spalt+1 ;‚text- 

Sp ‚speicher 

sp+1l 

speichern ;byte 

spinc ‚speichern 

$90 ;fehler ? 

speicher 

sp ‚letztes 

spconst ;byte ? 

speicherd 

sp+1 

spconst+1 

speicher4 

elrch tile 

#2 :schliess- 

close ‚en 
‚basic 
‚register 
‚retten 

read ;byte 

bsout ‚speichern 
‚register 
‚zurueck 
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9£f2b 


9£2c 
9f2e 
9£31 
9£33 
934 
9£36 
9£38 
9f3a 
9£3d 
gfsf 
9f40 
9f42 
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60 


a501 
844799 
29f8 
78 
8501 
a000 
bif9 
acd799 
8401 


a000 
60 


e6f9 
d002 
e6sfa 
18 
60 


:8710 


:8740 
:8750 
:8760 
:8770 
:8780 
:8790 
:8800. 
:8810 
:8820 
:8830 
:8840 
:8850 


erhoehen 


:8890 
:8900 
:8910 
:8920 
:8930 





-read 


-spinc 


-spincl 


rts 


lda 1 ‚speicher 
sta konf ‚auf ram 
and #248 ‚schalten 
sei 


sta 1 


ldy. #0 

lda (sp),y ;wert 

ldy konf ;holen 
sty 1 

cli ‚speicher 
ldy #0 ;zureuck 


rts ;weiter 


inc sp 

bne spincl 
inc sp+ti1 
clc 

rts 


anni befehlsauswertung ----———— 

9£f4b 207300 :9010 -inter Jsr chrget ‚zeichen 

9f4e c960 :9020 - cmp #$60 ;holen 

9£f50 b019 :9830 = bes interout ;kein 

9£52 c941l :9040 — cmp #$41 ;buch- 

9f54 9015 :9050 - bcec interout ‚stabe ? 

9£56 8dcd99 :9060 - sta akku ;zeichen 

9f59 a200 :9070 - ldx #00 ‚sichern 

9£f5b Bee499 :9080 —- stx befnr ;‚zaehler-=D 

9f5e a00o :9090 -interl ldy #00 

9£60 eee499 :9100 - inc befnr ;befehls- 

9£63 bdcd9f :9110 -— lda befehle,x ;tabelle 

9f66 d009 :9120 — bne inter2 ‚auslesen 

9f68 adcd99 :9140 — Ida akku ‚zurueck 

9f6b 207900 :9150 -interout  jsr chrgot ;zum 

9f6e Ace7a7 :9160 - j3mp intend ;BASIC 

oa adresse suchen ----—--——-——. 

9f71 d17a :9200 -ınter2 cmp (txtptr).y ;basichef 
| 9£f73 d035 :9210 — bne rest ;=tabelle? 
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-jump 


ueberlesen 


-rest 
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inx ;‚zaehler+l 
iny 

lda befehle,x ;letztes 
cmp #128 ;zeichen ? 
bcec inter2 

and #127 bit 7 

cmp (txtptr),y ;loeschen 
beq inter3 ‚auch ok ? 
inx ;nein, 

jmp interl ‚weiter 
clc ‚txtptr 
iny ‚auf 

tya ‚aktuellen 
adc txtptr ‚stand 
sta txtptr ;bringen 
bce labl 

inc txtptr+i 

lda befnr ;befnr *2 
asl 

tax 

lda befadr,x ;sprung- 
ldy befadri1,x ;tabelle 
sta jJumptl ‚auslesen 
sty jump+t2 ;und neue 
jisr $Efff ‚routine 


jmp interout 


inx ;‚zaehlert1i 
lda befehle,x ;letztes 
and #128 ;zeichen 
cmp #0 ‚der tab.? 
beq rest ;nein. 

inx ;Ja, 

jSmp interi ;‚weiter 





9f75 e8 :9220 
9£76 c8 :9230 
9f77 bacd9f :9240 
9f7a c980 :9250 
9£7c 903 :9260 
9f7e 297E 9270 
9£f80 d17a :9280 
9£f82 £f004 :9290 
9f84 e8 :9300 
9£f85 Ac5e9f :9310 
9f88 18 :9330 
9£89 c8 :9340 
9f8a 98 :9350 
9f8b 657a :9360 
9f8d 857a :9370 
9£8f 9002 :9380 
9f91 e67b :9390 
9f93 ade499 :9410 
9£96 Da :9420 
9f97 aa :9430 
9£f98 bab89f :9440 
9£f9b beb99f :9450 
9f9e 8da5y9f :9460 
9fal Bca69f :9470 
Y9fad 20ffff :9480 
9fa7 Ac6sb9f :9490 
;--7- befehlstext 
9faa e8 :9530 
9fab bAcd9f :9540 
Yfae 2980 :9550 
9£fbO c900 :9560 
9£fb2 £Of6 :9570 
9fb4 e8 :9580 
9£pS5 Ac5e9f :9590 
;-- sprungtabelle 





9660 
9670 
9680 
9690 
97009 
9710 
9720 
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-befadr 
-befadrl 


.by $e7 

.by $a7 

.wo init 

.wo speicher 
.wo start 
.wo screen 
‚wo color 
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9730 R anz 
9740 R mem 
9750 E tast 
9760 e interoff 
9770 % 0 





befehlstabelle 





9830 -befehle t# "IHLT" 
9840 ExX- "disk" 
9850 .tx "starT" 
9860 .tx "screeN" 
9870 ‚tx “"coL" 
9880 .tx "nuM" 
9890 — .tx '"meM'" 
9900 .tx "tasT" 
9910 ‚tx "ofF" 
9920 .by 0 
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4/6.4 
Basic-Erweiterungen beim C 64 


(Autor: Manfred Friese) 





Das Basic des Commodore 64 kennt leider nur eine sehr begrenzte Anzahl von Be- 
fehlen. Daher kann man seine Leistungsfähigkeit nur mit Hilfe von POKE und 
PEEK-Befehlen oder mit Hilfe von Maschinenprogrammen richtig nutzen. Diesen 
Nachteil haben zahlreiche Softwarefirmen erkannt und bieten Basicerweiterungen 
für den C 64 an, die mit Hilfe von neuen Befehlen die Hardware besser nutzen 
sollen. Simon’s Basic und Extended Basic sind die wohl bekanntesten Befehlserwei- 
terungen. Doch eine solche Erweiterung kann man auch selbst schreiben, wie dieser 
Beitrag zeigen wird. 


4/6.4.1 


Allgemeine Vorgehensweise 





Wir wollen zunächst ein möglichst günstiges Konzept für eine Basic-Erweiterung er- 
arbeiten. Dazu werden wir uns eine Reihe von Symbolen zur Verfügung stellen, wel- 
che die wichtigsten Adressen im Betriebssystem des Commodore 64 bezeichnen, 
aber auch die Nutzung des Speichers durch unsere Erweiterung festlegen. Anschlie- 
ßend betrachten wir die Initialisierung unseres Systems und die Arbeitsweise der Be- 
fehlserweiterung. 


Allen folgenden Kapiteln ist das Protokoll eines Assemblerlaufs mit der Basic- 
Erweiterung angegliedert. Die Kapitel enthalten nur die zum jeweiligen Thema ge- 
hörenden Zeilen. Insgesamt ergeben die Zeilen eine lauffähige Basic-Erweiterung 
(was Sie auch an der Zeilennumerierung ersehen können), welche in den folgenden 
Ergänzungen noch weiter ausgebaut werden wird. Jedoch bietet Ihnen die Grund- 
version bereits eine Reihe nützlicher Befehle. 
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4/6.4.1.1 


Symbolvereinbarungen 





Im Folgenden finden Sie die Tabelle der wichtigsten Symbole, die wir für unsere 
Basic-Erweiterung benötigen: 











ı 557 XBASIE VERSION 1.0 (c} M.Friese 5/87 

2 

3 NET NBER SH a ee 

4 1777 Vereinbarung der Symbole Sr= 

5 ESTER ERS 

& xtoken: .eq 210 ;Tokennummer der Erweiterung 
7 

8 pp: ‚.egqgi ;Prozessarport 

9 xmem: „eg 2 }X-Register fuer ROM-Routinen 
10 a2g: .eq 251 allgemeiner Zeiger 1 

11 azg2: „eg 253 allgemeiner Zeiger 2 

12 basend: .eq #37 ;Basic Speicherende 

13 charpage: „eg 648 ‚Festlegung der Textseite 

14 nmivec: .eq #518 ;NMI-Vektor 

15 listvec: „eg #306 ;LIST Vektor 

16 tokenvec: „eg 3304 In Token wandeln 

17 executever:.eqg #308 ;Ausfuehrungsvektor 

18 fktvec: .eq $30a ;Funtionen Vektor 

17° zeile: .eq $200 ‚Adresse der Eingabezeile 

20 mem: .eq 828 sallgemeiner Puffer 

21 

22 vicz „eg $d00o Video IC 

23 sid: „eg #d400 ‚Sound IE 

23 farbram: .eq $dB0od ;Farbram 

253 cial: .eqg $dceöd ‚cıIA #1 

26 cia2: .2q $ddüod ;CcIA #2 

27 zeichensatz:;:.eg $d0üd »Startadresse Zeichensatz 

28 

29 xbasicstarti.eg $a000-1024-512:5tartadresse von XBASIC 

30 textseite: .eg FccO0 ;Adresse der Textseite 

51 farbehires:.eq $cB00 Adresse der Farbe fuer Hires 
32 hiresseite:.eg $Feö0o Adresse der Hiresseite 

33 

34 chrget: .eq $73 sein Zeichen aus Basic holen 
‘35 chrgot: eg #79 ;Zeichen noch einmal lesen” 
36 varsuch: .eq $büßb Variale suchen 
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37 bsoaut: ‚eg #ffd2 sein Zeichen ausgeben 
38 cursor: .eg $trfÖ ‚Cursor setzen/loeschen 
39 CüRrechts: .eq $ab5b Cursor rechts 
40 reset: „eg $fce2 ‚Computer Reset 
4 ROMfrmevl: .eq $ad?e Ausdruck berechnen 
42 RüMchkklazu:.eg $aef7 ‚auf 'Klammer zu’ testen 
43 RoMchklaaufs.eq faefa sauf 'Klammer auf’ testen 
4 RDOMklammer:.eqg $aefl ıKlammerausdruck auswerten 
45 ROMadresse:.eg 56b7f7 ‚FAC->pos. Integer 
46 testcode: .egq $aeff sauf Code testen 
47 frestr: „eg $bbadb ;String aufraeumen 
48 garbage: „eg $b325 ;Garbarge collection 
49 R0Mresstr: .eg #b47d ‚String reservieren 
50 RöMstring: .eg $bä4ca ‚String in Stringstack 
St getstring: .eq $b782 String holen 
52 elrscr: .eq $e544 Bildschirm loeschen 
33 get: .eq #tfe4 :GET-Befehl 
54 ROMgetbyte:.eq $b79e ‚Holt ein Eyte 
55 RüMchkkom: .eq $aefd sauf Komma pruefen 
56 
37 
58 initmeldung:.eg Fe42d ;Startmeldung ausgeben 
39 basicwasta:,eg fe39s5 Basic Warmstart 
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Neben den Adressen der wichtigen ROM-Routinen enthält diese Aufstellung eine 
Reihe von Vektoren, über die wir unsere Basic-Erweiterung in das normale Basic 
einbauen werden. Bei diesen Vektoren handelt es sich um Adressen, welche in der 
Zero-Page des Commodore 64 stehen, die auf wichtige Routinen des Basic- 
Interpreters zeigen. Wird z.B. der LIST-Befehl ausgeführt, so wird die entsprechende 
Routine im ROM nicht direkt angesprungen, sondern über den Befehl JMP($306) 
aufgerufen. Daher muß in den Speicherstellen $306 und $307 die Adresse der LIST- 
Routine stehen. Schreiben wir eine andere Adresse in diese Speicherstellen, können 
wir eine eigene LIST-Routine verwenden. 


Außerdem enthält die Symbolvereinbarung noch die Adressen, welche die Speicher- 
verwaltung für unsere Basic-Erweiterung festlegen. Der Erweiterung wurde folgen- 
der Speicheraufbau zugrunde gelegt: 
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Adresse Erweiterung 





Kernal Kernal Graphic 


hires- 
seite 





Zeichen- Zeichen- 
satz im VO satz im 
ROM RAM zeichen- 
satz 


Textseite textseite 
Graphic Farbe farbehires 








max. 16 Sprites 
Frei 





BASIC BASIC 


ROM Erweite- 
rung 























Wie Sie der Übersicht entnehmen können, benötigt unsere Basic-Erweiterung nur 
1,5 KByte des Basic-Speicherplatzes. In diesen 1,5 KByte liegen die Systemroutinen 
der Erweiterung. Die Routinen der einzelnen Befehle liegen unter dem Basic-ROM. 
Dies wird uns jedoch nicht daran hindern, Routinen aus dem Basic-ROM für unsere 
Befehle zu verwenden. 


Der Speicherbereich des Video-IC’s wurde in den Bereich von $C000-$FFFF verlegt. 
Dies hat den Nachteil, daß Programme, die den Bildschirmbereich direkt mit POKE 
beschreiben, nicht mit der Basic-Erweiterung zusammenarbeiten. Dem gegenüber 
stehen aber mehrere Vorteile. Der Zeichensatz kann in das unter dem I/O-Bereich 
liegende RAM untergebracht werden. So ist es möglich eigene Zeichen zu definieren 
(z.B. deutsche Umlaute). Eine Graphik-Seite kann unter dem Kernal angelegt wer- 
den, und im Bereich von $C400-$C7FF können bis zu 16 Spritedefinitionen abgelegt 
werden, die sowohl für die Textseite, als auch für die Graphikseite gelten. Der Spei- 
cherbereich von $C000-$C3FF bleibt vorerst frei, da viele Maschinenprogramme, 
die Sie vielleicht noch nutzen möchten, diesen Bereich belegen. 


Da die Textseite nach $CC00 verlegt wurde, wird der Bereich von $400-$7FF, in der 
die Textseite normalerweise liegt, frei. Diesen könnte man nun für Basicprogramme 
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nutzen, so daß für Basicprogramme nur noch 0,5 KByte durch die Basic- 
Erweiterung verloren gingen. Dies werden wir jedoch nicht tun, daß viele Program- 
me die normale Startadresse erwarten (z.B. Compiler, compilierte Programme und 
Programme mit Maschinensprache). Uns steht dieser Bereich für eigene Zwecke zur 
Verfügung. Die Grundversion der Basic-Erweiterung macht jedoch noch keinen Ge- 
brauch von diesem Bereich. 


4/6.4.1.2 


Initialisierung 








Die Basic-Erweiterung soll als normales Programm von Diskette gelesen und dann 
mit RUN gestartet werden. Um dies zu erreichen, muß der Assembler als Start- 
adresse die normale Startadresse von Basicprogrammen verwenden. Ab dieser 
Adresse wird eine Basic-Zeile erzeugt. Sie startet das Maschinenprogramm, welches 
direkt an die Basic-Zeile anschließt. Die Basic-Zeile muß daher ‘1987 SYS 2061’ 
lauten, wobei sich die Startadresse des Maschinenprogramms (2061) aus der Start- 
adresse der Basic-Zeile und ihrer Länge ergibt. Die Zeilennummer ist frei gewählt, 
und soll hier für das Jahr der Entwicklung des Programms stehen. Das so gestartete 
Maschinenprogramm erledigt nun nicht etwa die Einbindung der Erweiterung in 
den Basic-Interpreter des Commodore 64, sondern verschiebt die Erweiterung an 
seine Startadresse. Dann wird die Basicerweiterung an ihrer Startadresse gestartet. 


Bei der Assemblierung muß die eigentliche Erweiterung natürlich der Verschiebe- 
routine folgen, aber zu ihrer Startadresse assembliert werden. Unser Assembler stellt 
- diese Möglichkeit mit dem ‘.cb’-Befehl zur Verfügung. 


Die Erweiterung bindet sich dann in den Basic-Interpreter ein. Zunächst wird der 
Zeichensatz von dem ROM-Bereich in den RAM-Bereich übertragen. Dies leistet die 
Routine <setzeichen>. Dann werden die Vektoren des Basic-Interpreters auf die 
Erweiterung umgeleitet. Außerdem wird der Zugriffsbereich des Video-IC’s in den 
oberen 16 KByte-Bereich verlegt. 


Damit die Basic-Erweiterung nicht von Zeichenketten oder Programmzeilen über- 
schrieben werden kann, muß der Basic-Bereich noch um 1,5 KByte eingeschränkt 
werden. Die Initialisierung ist dann mit der Ausgabe der Einschaltmeldung abge- 
schlossen. 
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61 ars Ha nn 
62 n=-S XBASIC Basic-Startroutine ==> 
63 MET an Een 
64 wa ;bei Fehler warten 
65 . 
6801 66 .ba $861 ;Basic Start 
67 ‚ou "&l:xbasic" serzeugte Datei auf Disk schre 
iben 
68 -Dc ıkeine Ausgabe in das RAM 
67 
0801 Ob 08 c3 70 .by 11,8,°1987,>1987,158,"2061",0,0,0;Entspricht 


"1997 SYS2051" 
07 9e 32 30 36 31 00 00 00 


7 
0804 39 32 72 
080 a2 08 73 


0811 85 #b 74 
0813 86 fc 75 
0815 39 00 76 
0817 a2 9a 77 
0819 85 fd 78 
0Bib 85 fe 79 
081d a2 24 80 
öBlf ao 00 8 
0821 bi fb 82 TRABASIC: 
0823 91 fd 83 
0825 c8 84 
0826 dü #9 85 
0828 ed fc 36 
082a eb fe 87 
08B2c ca 88 
öo82d dO f2 89 
082 dc 00 9a 90 
E21 XBASIE: 





en 


L 


Ida 
ld» 
sta 
stx 
ida 
ldx 
sta 
stx 
ldx 
ldy 
lda 
sta 
iny 
bne 
inc 
inc 
dex 
bne 
jap 


#<XBASIC ıAn Normalstart schieben 
#>XBASIC ;Zeiger setzen 

azq 

azgti 

#<(xbasicstart ;Normaladresse 


#>xbasicstart 

azg2 

azg2+l 

#4*9 ı9 KEyte uebertragen 
#0 

(azg),y ;Verschiebeschleife 
tazg2) ,y 


TRABASIC bis eine Page verschoben 
azgt+i 
azg2+1 


TRABASIC bis alle Seiten verschoben 
xbasicstart ıXBASIC starten 





92 “ch xbasicstart ;Rest zur Normaladresse assemb 
lieren 
93 
94 Bea al Te ES TUE are Dee ar aaa ende ee zen 
95 3777 XBASIC Initialisierungsroutine 
95 NOTTTOSSHRSDREFRSe sh 222322=5E 
9aöüb a9 37 97 BExbasic: I1da #$37 ;Speicheraufteilung normal 
9202 985 01 98 sta pp 
9a04 20 54 9a 997 jsr setzeichen 
7207 20 17 9a 100 jsr initxbasic ;XBASIC Vektoren setzen 
9aßa a9 e2 191 Ida #<meldung ;Adresse der Einschaltmeldung 
laden 
9abc a0 Id 102 idy #>meldung 
?s0e 20 2d e4 103 jsr initmeidung ;Ausgabe im Commodore 64 Basic 
Jall ar fb 104 ldx #$fb ;Stackpointer laden 
Jall 9a 105 txs 
Fal4 Ac 86 e3 106 jmp basicwasta sund zum Basic-Warmstart 
107 
108 
9a17 a9 Ib 107 initxbasic:lda #%00110110 ıAdresse des Bildschirms 
9a19 dd 19 dO 110 sta vic+24 ;und des Zeichensatzes festleg 
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Yalc ad 00 dd 11 
Jalf 29 fc 112 
9a21 84 06 dd 113 
9a24 a9 cc 113 
n 
9a26 8d 88 02 115 
116 
9329 a9 00 117 
YJa2h a2 9a 118 
ga2d 85 37 119 
Ja2t 86 3 120 
Ya5l a9 87 121 
Ja33 a2 9a 122 
9a35 Bd 18 03 123 
9a58 Be 19 03 124 
gasb a9 99 125 
9a3d a2 9b 126 
Jalt ad 04 053 127 
9442 Be 05 03 128 
9a45 39 84 129 
9247 a2 9d 130 
9249 Bd 06 03 151 
9a4c Be 07 03 132 
Jasf a9 36 133 
9a5t a2 Te 134 
9253 Bd 08 03 135 
9a56 de 09 05 136 
9259 a9 0a 137 
9aSb a2 9e 138 
9aäd Bd Va 05 139 
9a66 Be üb 03 140 
9263 60 1al 
142 
Ja64 78 145 
9a6S a5 01 134 
9367 48 145 
9a68 a2 16 146 
n RAM bringen 
Jasa a9 dü 147 
Yabr ab 06 148 
gabe 85 fc 147 
9270 84 fb 150 
9a72 a9 32 151 
9274 85 Ol 152 
9a76 bi fb 153 
9278 91 fb 154 
9a7a cB 155 
9a7b dü #9 158 
9a7d e& fc 157 
9a7t ca 158 
7286 do #4 159 
9282 68 150 
93283 85 01 161 
9aB5 58 162 
9aBb 50 163 
164 


setzeichen: 


‚trazeichen: 


lda 
and 
sta 
ida 


sta 


lda 
ldx 
sta 
stx 
lda 
idx 
sta 
stx 
lda 
ldx 
sta 
stx 
lda 
ldx 
sta 
stx 
ida 
ldx 
sta 
stx 
ida 
idx 
sta 
stx 
rts 


sei 
Ida 
pha 
1dx 


lda 
ldy 
sta 
sty 
ida 
sta 
ida 
sta 
iny 
bre 
ine 
dex 
bne 
pla 
sta 
cli 
rts 


cia2 

#7 11111100 
cia2 
#textseite/256 


charpage 


#ixbasicstart 
#>xbasicstart 
basend 
basendt! 
#{newnmi 
?newnmi 
nmivec 
nnivect!i 
*token 
#;token 
tokenvec 
tokenvec+i 
#<list 
#;list 
listvec 
listvecti 
#lexecute 
#>execute 
executevec 
executevecti 
#exefkt 
#>exefkt 
fktvec 
fktvecti 


pp 
#484 


#>zeichensatz 
#0 

azgti! 

azg 

##32 

PR 

{azg),y 
(azg}),y 


trazeichen 
azgti 


trazeichen 


pp 


ıVIE Bereich von $LÜÖÖ-$&FFFF 


ıTextseite fuer Basic festlege 


Neues Basic-Ende setzen 


neue NMI-Routine 


ıneue Token-Wandelroutine 


neue List-Routine 


‚neue Ausfushrungsroutine 


Neue Funktionenroutine 


;4 KByte Zeichensatz von ROM i 


sazg zeigt auf Zeichensatz 
;Zeichensatz-ROM lesbar machen 
saus ROM in RAM bringen 


und weiter 


;bis alle Seiten uebertragen 
normale Speicherbelegung 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.1.3 


Eine neue NMI-Routine 





Bei einem Druck auf die RESTORE-Iaste wird dem Prozessor eine Interrupt-Anfor- 
derung gemeldet. Der Basic-Interpreter initialisiert daraufhin einige Vektoren und 
Speicherstellen neu. Dies würde unsere Basic-Erweiterung sofort wieder aus dem 
System auskoppeln. Um dies zu verhindern, verwenden wir eine eigene NMI- 


Routine. 


Unsere NMI-Routine besteht im wesentlichen aus der Kopie der NMI-Routine des 
normalen Basic-Interpreters. Wir binden lediglich die Routine <initxbasic>, wel- 
che die Vektoren für unsere Basic-Erweiterung setzt, in die NMI-Routine ein. Die 
Speicherstellen werden dann zwar von den Routinen des Interpreters auf die alten 
Werte gesetzt, aber sofort durch unsere Routine restauriert. Die Erweiterung bleibt 
uns so erhalten. 








7287 48 168 newnmi! pha ;Kopie der Commodore 64 NMI-Routine 

9288 Ba 189 txa 

9289 48 176 pha 

9382 98 171 tya 

9a8b 48 172 pha 

abc a9 7 175 lda #$7# 

Jade Bd Od dd 174 sta $dd0d 

9391 ac Od dd 175 ldy $ddöd 

9274 30 id 176 bai rs232 

9a96 20 be #6 177 jsr $töbe 

9299 20 el ff 178 isr $tfei 

929c dO 15 179 bne rs232 

929e a2 fh 180 ldx ##fb 

I9aa0 9a 181 txs 

7aal 20 15 fd 182 jsr $#d15 

9aa4 20 17 9a 183 jsr initxbasic ;XBASIC einbinden 

9aa7 20 a5 fd 184 jer *tdas 

9aaa 20 IB e5 185 jsr $e5i8 

Faad 20 17 9a 186 jisr initxbasic »XBASIC einbinden 

9ab0 de 02 al 197 j3mp ($a002} zweiter im Commodore 64 Basic 
188 

9ab5 4c 72 te 189 rs232: inp $fe72 
190 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


414.6.1.4 


Nutzen der Basic-ROM-Routinen 





Wir haben bereits festgestellt, daß die Routinen der Befehle unserer Basic- 
Erweiterung im RAM unter dem Basic-Interpreter liegen. Um diese Routinen aus- 
führen zu können, muß der Basic-Interpreter also abgeschaltet werden. Trotzdem 
wollen wir die im Basic-Interpreter enthaltenen Routinen für unsere Zwecke nutzen. 


Um dies zu ermöglichen, muß der Basic-Interpreter für die Abarbeitung einer Rou- 
tine wieder eingeschaltet werden. Wir legen uns also eine Reihe von Routinen im 
1,5 KByte großen RAM-Bereich vor dem Basic-ROM an, welche den Basic-Inter- 
preter einschalten, eine bestimmte Routine ausführen, und anschließend den Basic- 
Interpreter wieder abschalten. Diese Methode wurde bei der Modulversion des 
Assemblers aus diesem Buch bereits erfolgreich angewendet. 


Leider ist es ziemlich aufwendig für alle benötigten Routinen des Basic-Interpreters 
eine eigene Routine im RAM-Bereich anzulegen. Andererseits sollen die Routinen 
auch nicht neu geschrieben werden. Wir legen daher eine Tabelle an, in der die 
Adressen von weiteren, benötigten Routinen abgelegt werden. Diese Routinen kön- 
nen dann über eine Nummer aufgerufen werden. Dazu wird das X-Register mit der 
Nummer der Routine geladen und die Routine <basicrom> aufgerufen. Um dem 
X-Register trotzdem bei dem Start der Routine einen definierten Wert zuzuweisen, 
kann in der Speicherstelle ’xmem’ der Wert für das X-Register abgelegt werden. 


Im Anschluß an die Tabelle wird ein Speicherbereich für Erweiterungen freigehal- 
ten. 











r 

171 
192 
193 

9ab6 Bd bh 9b 194 basicrom: sta akku sAkku merken 

9ah9 20 c5 9a 195 jsr romaufruf ;Routine aufrufen 

9abc 08 198 php Staus merken 

Jabd 48 197 pha zAkku merken 

9abe a9 36 198 lda #336 ;RGOM ausschalten 

9ac0 85 01 199 sta pp 

9ac2 68 200 pla ;Akku wiederherstellen 

9ac3 28 201 plp ;Status zurueckholen 

9acd 60 202 rts 

F 203 $ 

Jacı bd 58 9b 204 romaufruf: Ida rombefehle+tl,x ;Adresse der Routine auf den 5 

tack bringen 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
9acd 48 205 pha 
9ac9 bd 67 9b 208 lda rombefehle,x 
Yacc 48 2067 pha 
9acd a9 37 208 ida #817 :Basicrom einschalten 
Jact 85 01 209 sta pp 
Fadi ad 65 9b 210 lda akku ;Akku laden 
Iad4 ab 02 211 idx xmem :3-Register laden 
Jadb 50 212 rts 
213 
9ad7 eb Öl 214 getazg: inc pp iWert unter azg aus RÜM holen 
9ad9 bi fb 215 lda tazg),y 
Yadbh ch Öl 21& dec pp 
Yadd dü 217 rts 
218 - 
Jade 86 22 219 adrfehler: stx #22 ;iFehlermeidung ab Adresse A/X 
Jael eb Öl 220 inc pp ;ausgeben 
9ae2 Ac 45 a4 221 jap $a445 
222 
gaeS 57 52 44 223 sierrtxt: .by "wrong stringleN" 
4e 47 20 53 54 52 49 4e 47 4c 45 ce 
Jat4 42 41 44 224 beerrtxt: „by "bad char in strin6” 
20 43 48 41 52 20 49 42 20 33 54 52 49 4e c7 
225 
Ihöb eb 01 226 fehler: inc pp Fehlermeldung mit Nummer X au 
sgeben 
9hü8g A4c 37 a4 227 jmp $a4537 
228 
Ib0b eb ül 229 frmevl: inc pp Ausdruck einlesen 
9b0d 20 9e ad 250 jsr RüMfrmevi 
Ihbit c6 O1 231 dec pp 
9b12 60 232 rts 
233 
Ib13 e6 01 234 chkklazu: inc pp . sAuf °)" pruefen 
915 20 #7 ae 235 jisr ROMchkklazu 
9b1lB ch 61 236 dec pp 
bla 60 237 rts 
238 
Ibib e6 O1 239 chklaauf: inc pp ;Auf "(" pruefen 
Ibld 20 fa ae 240 jsr ROMchklaauf 
9620 c6 öl 241 dec pp 
7b22 60 242 rts 
2475 
9b25 e& Öl 244 chkkom: inc pp Auf ',’ pruefen 
9625 20 fd ae 245 jsr RöMchkkom 
9b28 c6 01 246 dec pp 
9b2a 50 247 rts 
248 
Ib2b 26 O1 249 adresse: inc pp Adresse holen 
9b2d 20 #7 67 250 jsr RüMadresse 
Fb30 ch Di 251 dec pp 
9632 60 232 rts 
253 
9%b33 e6 Qt 254 getbyte: inc pp ıBytewert holen 
9635 26 9e_b7 255 jsr RüMgetbyte = 
9639 ch O1 256 dec pp 
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257 

258 

259 getadr: inc pp ;i8Bit-Wert holen 

260 jsr $adda 

261 jsr $b7#7 

2652 dec pp 

263 rts 

264 
9b46 eb 01 265 getadby: inc pp ‚Adresse,Byte holen 
9b48 20 eb b7 256 jisr #b7eb 












9b4e eb Öl 270 reservstr: inc pp String reservieren 
b50 20 7d b4 271 jsr ROMresstr 
PP 











string: inc pp String eintragen 
9658 20 ca b4 276 jsr ROMstring 
pp 
























klanmer: inc pp ;Klammerausdruck holen 
96650 20 fi ae 281 jsr RöMklamner 
Ib63 ch O1 282 dec pp 
9665 60 283 rts 
284 
Ib66 00 285 akku: ‚by Oo Speicher fuer Akku 
235 
287 rombefehle: 
9667 te ae 288 ‚no testcode-1 0 <- Nummer 
9669 25 b5 289 «wo garbage-i ı2 
9b6b Bi b7 290 .no getstring-i ‚4 
9böd f& h8 29 „wo $bBf7-1 6 
9böf 48 bc 292 „no $bc49-1 ;B 
Ib71 3a ab 293 „wo CURrechts-1 16 
9673 e3 ff 294 “no get-1 ‚12 
9675 6b e5 295 ‚no $eäsc-i ;14 
9677 aS bö 296 „wo frestr-1 ib 
9679 32 a5 297 „wo 42291-1 +18 
9b7b Ba böÖ 298 ‚wo varsuch-1 ;20 
299 


RESERVEL: SOtroambefehle-RESERVEI;Reserve fuer Erweiter 





„db 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.1.5 


Wandeln in Token 





Bevor eine Programmzeile in den Speicher abgelegt, oder eine Reihe von Direkt- 
befehlen abgearbeitet werden kann, wird die Eingabezeile vom Basic-Interpreter in 
zwei Schritten bearbeitet: 


1. Eine evtl. vorhandene Zeilennummer wird in eine 2 Byte-Binärdarstellung gewan- 
delt. 


2. Die Basic-Befehlsworte werden in Token gewandelt. Dabei wird jedes Wort in der 
Befehlstabelle gesucht. So kann jedem Wort genau eine Nummer zugeordnet 
werden. Zu dieser Nummer wird nun der Wert 128 addiert. Dieser 1 Byte-Wert 
heißt Token, und wird statt des Wortes in die Fingabezeile geschrieben. 


Bei der in diesem Buch vorgestellten Basic-Erweiterung zum Commodore 128 wurde 
in diesen Mechanismus nicht eingegriffen, sondern die Befehle bei der Ausführung 
in der Zeile gesucht. Hier werden wir hingegen auch unsere Befehlsworte in Token 
umwandeln. Um nicht auf den Tokennummern des normalen Basic-Interpreters 
aufbauen zu müssen, werden wir als gemeinsamen Wert für alle Befehle den Wert 
210 verwenden, der vom Commodore 64-Basic nicht verwendet wird. Diesem 
gemeinsamen Code folgt in einem weiteren Byte die Nummer des Befehls. 


Unsere Routine <token> ruft zunächst die Originalroutine des Basic-Interpreters 
auf. Diese wandelt die Eingabezeile in Token, sowie eine evtl. vorhandene Zeilen- 
nummer in die interne Darstellung. Anschließend suchen wir in der Eingabezeile 
unsere neuen Befehlsworte. Stößt die Routine dabei auf eine Zeichenkette, so wird 
diese überlesen. Bei einem REM oder DATA-Befehl wird der Rest der Zeile nicht 
weiter beachtet. Alles andere wird mit den Befehlsworten in der Tabelle ‘beflist’ ver- 
glichen. Diese Tabelle muß sechs Bedingungen erfüllen: 


1. Alle Funktionsnamen stehen vor den Befehlsnamen. 


2. Enthält ein Befehl einen anderen als Teilnamen, so muß er vor diesem stehen. 
So muß z.B. INSTR vor INST stehen, da die Zeichenkette ‘INST’ ein Teil der Zei- 
chenkette ‘INSTR’ ist. 


3. Enthält ein Befehl den Namen eines normalen Basicbefehls, so muß der Name 
als Token angegeben werden. Bsp.: der Befehl DEFCHAR enthält als Teilnamen 
den Befehl DEF. Dieser wird von der Routine des Commodore 64 in das Token 
150 gewandelt. Der Befehlsnahme für DEFCHAR muß daher als ‘150, ‘CHAR”’ 
eingetragen werden. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4. Jeder Befehl enthält mindestens zwei Zeichen. 
5. Jeder Befehl endet mit einem Nullbyte. 
6. Die Tabelle endet mit einem Nullbyte. 


Wird ein Befehlswort gefunden, überschreibt die Routine die ersten beiden Zeichen 
mit dem Wert 210 bzw. der Befehlsnummer. Der Rest des Wortes wird gelöscht. 
Nachdem die Zeile abgearbeitet ist, müssen noch die Bedingungen für die nachfol- 
genden Routinen im Basic-Interpreter hergestellt werden. Diese verlangen zum 
einen, daß das Y-Register die Länge der Zeile enthält, und zum anderen muß am 
Ende der Zeile eine Folge von drei Byte stehen, von denen das erste und das letzte 
ein Nullbyte ist. Das zweite Byte kann beliebig sein. Unsere Routine beachtet diese 
Bedingung. 


























302 
303 
304 
9699 20 7c a5 305 token: jsr $a57c ;Wandeln der normalen [64 Befe 
hle 
96h9c 84 0b 308 sty $b ileilenlaenge merken 
Ib9e ao ff 397 Idy #$ff ;Y auf die Eingabezeile 
Ibaü 84 fb 308 sty azg :Y merken 
Iba2 a2 ff 309 vgli: ldx #$#F ;% zeigt auf die Befehlsliste 
9ba4 a9 01 z10 ida #1 ;Tokennummer ist I 
Ibads 85 fd si sta azg2 
Ibaß c8 312 vgl: iny ‚naechstes Zeichen vergleichen 
9b39 ed 313 inx 
Fbaa bd 20 9c 314 ida beflist,x 
Ibad fb 26 315 beq ech 
Fbaf d9 00 02 316 cap zeile,y 
Ibb2 do Al 317 bre ung! 
9bb4 b9 00 02 318 ida zeile,y 
?bb7 c9 83 319 cap #131 ıDATA-Token ? 
9bb9 #0 52 320 beg aborttk ‚dann Rest der Zeile nicht bea 
chten 
9bbb c9 9 s21 cap #145 :REM-Token ? 
9bbd fü de 322 beg aborttk ;dann Rest nicht beachten 
Ibbt c9 22 338 cap #34 ‚String ? 
Ibcl do Od 324 bne nchkomma ınein 
Ibe3 c8 325 hkomma: iny Strings ueberlesen 
9bc4 b9 O0 02 326 lda zeile,y 
9bc7 #0 44 327 beg aborttk ;Ende der Zeile erreicht 
96c9 c9 22 328 emp #34 
Ibch dö fh 329 bne hkomma 
9bcd 88 320 dey 
Ibce dO 35 1 bne nexttk ;Stringende erreicht 
Ibdü hd 26 9 332 nohkomma: ida beflist,x ;Befehlstext mit Zeile vergl. 
Fbd3 d9 00 02 333 cap zeile,y 
9bda dü Id 334 bre ungl ;Zeichen ungleich 
Ibd8 fü ce 335 beq vol nein z 
Ibda ab fh 336 eob: idx azg ‚sonst Befehl gefunden 
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m 
hoc e8 
Ibdd a9 d2 33 
Ibdt 9d 00 02 339 
bez e8 340 
I9be3 as fd 341 
Ibes 9d GO 02 342 
IbeB 88 343 
Ibe9 hF 01 02 344 versch: 
en 
Fbec 9d 01 02 345 
Ihet #0 24 346 
9bfl e8 347 
Ibf2 c8 348 
Ibf8 e6 fd 353 
9b#3 do f4 349 
350 
Fbt5 a4 fb 351 ungl: 
elle suchen 
9%bf#7 ca 352 
Ibfa ed 354 sbe: 
9bfb bd 20 9c 355 
Ibfe do fa 356 
Icöt hd 21 9c 357 
9c03 dü as 358 
905 cB 359 nexttk: 
neusuchen 
9c06 B4 fb 360 
IcöB b9 01 02 I6i 
9cüb do 95 362 
Icöd a4 Ob 363 aborttk: 
Icöf a9 00 364 
9c11 99 Fd 01 365 
Ic14 60 366 
367 
9c15 Ba 368 tonexttk: 
Icı6 a4 fb 369 
9c18 18 370 
Ic19 69 06 371 
Iclb 85 0b 372 
Icld dO e& 373 
374 
375 
377 3 
378 H 
379 3.1 
Icıt 09 380 funktionen: 
381 
Ic20 ba 28 00 382 beflist: 
9c23 Al 54 28 383 
00 
9:27 48 45 58 394 
24 00 
9c2c 44 45 43 385 





inx 
lda 
sta 
inx 
lda 
sta 
dey 
ida 


sta 
beq 
inx 
iny 
inc 
bne 


ldy 


dex 
inx 
lda 
bne 
lda 
bne 
iny 


sty 
ida 
bne 
ldy 
lda 
sta 
rts 


tya 
idy 
ceic 
adc 
sta 
bne 


„by 


“by 
„by 


“by 


„by 


#xtoken 
zeile,x 


azg2 
zeile,x 


zeileti,y 


zeileti,x 
tonexttk 


azg2 
versch 


azg 


beflist,x 
sbe 
beflist+l,x 
vgl 


azg 
zeiletl,y 
vgli 

$b 

*0 
$200-3,y 


azg 


#5 
$b 
nexttk 


Liste der Funktionen 


8+1 


184, (,0 
"ati", 


"hexs",0 


"dec",o 


:XBASIC-Token in Zeile bringen 


iRest des Befehlswortes loesch 


;Laenge der Zeile korrigieren 


;Tokennummer +1 


Ende des Befehlswortes in Tab 


Tabelle zuende” 
;nein, weitervergleichen 
sab naechte Position in Zeile 


;Zeile beendet ? 
nein, weitersuchen 
;laenge der Zeile laden 


‚fertig 
;Laenge der Zeile korrigieren 
;Laenge der neuen Zeile 


+5 fuer Verwaltung 


sergibt die Laenge 


376 geRSsa7e2s33H nn 
Liste der XBASIC Befehle 








Anzahl der Funktionen #1 


Liste der Funktionsworte 
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60 
9c50 49 4e Ab 386 „by "inkey$”,Ö 
45 59 24 00 
9c37 49 de 53 387 “by "instri",ü 
54 52 28 00 
Ice 53 54 52 388 „by "strinas(",ö 
49 de 47 24 28 00 
7c47 53 50 41 389 .by "spacefi",0 
43 45 24 28 00 
390 
Er3 ı 2. Liste der Befehle 
9c4t 453 dc 53 392 ‚by "cls",o Liste der Befehlsworte 
00 
953 44 4c 44 395 «by "oldchar",Q 
43 48 41 52 00 
9c5b 43 36 34 394 .by "c64",0 
00 
9c5t 59 42 41 395 „by "xbasic",O 
3 49 43 00 
9ch& 49 4e 53 396 ‚by "inst",ö 
34 00 
Icab 96 43 48 397 .by 150,"char",ö 
41 52 00 
9c71 44 4c 44 398 .by "old",0 
60 ii 
975 00 399 „by O ;Tabellenabschluss 
400 
401 RESERVE2: „db 256+beflist-RESERVE23Reserve fuer Erweiterung 
en 
402 
403 
404 ;Tabelle der Adressen der Befehle & Funktionen 
9d20 fh 94 405 befehle: „wo BBfre-i ;FRE( %* Funktionen 
9d22 ed al 406 „wa BRat-1 satt 
7024 Bl a0 4067 „wo BEhex-i sHEX$ 
9426 29 a0 408 ‚wo BBdez-1 ;DEC 
7428 ba al 409 ‚no BBinkey-l ; INKEYS 
Ida 9a 410 „wo BRinstr-i ;INSTR 
9a2c Si al all “na BBstring-I1 ;STRINGE 
Id2e 15 al 412 „wo BRspaces-i ıSFACES 
413 
9930 43 e5 414 “wo eirscr-i ;CL5 * Befehle 
9452 653 9a 415 «no setzeichen-1 30LDCHAR 
9434 el fc 416 “no reset-1 ;C54 
9456 fr 9% 417 „wo BBxbasic-1 sXBASIC 
9438 za Ie 418 “wo. BBinst-1 sINST 
Id3a 18 9# 419 .»o EEdefchar-i ;DEFCHAR 
dic 91 9e 420 «wo BBoid-i :DBLDCHAR 
421 
422 RESERVES: db 100+befehle-RESERVE3;Reserve fuer Erweiterung 
en 
423 
424 . 





Listing 4/6.4.1.5 (Teil 3) 








Teil 4 Kapitel 6.4.1 Seite 16 Utilities 
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4/6.4.1.6 


Die neue LIST-Routine 





Um ein Programm auszugeben, wie es bei dem LIST-Befehl geschieht, müssen die 
Token wieder in Klartext umgewandelt werden. Die Originalroutine erledigt dies 
natürlich nur für die Standardbefehle des Commodore 64. Wir erweitern daher die 
Originalroutine mit einer Ausgaberoutine für unsere Befehle. 


Bei der Ausgabe durch die LIST-Routine prüfen wir, ob das auszugebende Zeichen 
das Zeichen mit der Nummer 210 ist. Ist dies nicht der Fall, kann die alte LIST- 
Routine die Ausgabe übernehmen. Andernfalls handelt es sich um einen unserer Be- 
fehle. Die folgende Nummer gibt nun den Tabelleneintrag in der Befehlstabelle an. 
Leider können wir diesen Eintrag nicht einfach ausgeben, denn der Eintrag kann 
ja wiederum Token der Originalbefehle enthalten. 


Wir geben daher nur die Zeichen mit einem Code, der kleiner als 128 ist, aus . Die 
anderen Zeichen werden als Token betrachtet, und das zugehörige Befehlswort in 
der Originaltabelle des Commodore 64 gesucht. Nachdem dieses ausgegeben ist, 
kann mit unserer Ausgaberoutine fortgefahren werden. 











9484 10 51 428 list: bpl noralisti ;kein Token 

9495 c9 d2 429 cap #xtoken 

7488 do 50 450 bne normlist2 kein XBASIC Befehl 
Idda 24 0 451 bit $f ;Hochkomma ? 

Id8c 50 49 32 bmi normlisti ja 

Fd8e cB 433 iny ıXBASIC Nummer holen 
Yadf bi Sf 454 ida ($5f}),y 

?d71 aa 435 tax ;Nunser in X bringen 
9492 84.49 436 sty #49 ıY merken 

9494 a0 00 437 idy #0 ıBefehlswort suchen 
9d9& ca 438 suchbef: dex ;Nummer-1 

9497 0 09 439 beg foundbef ;Befehlswort gefunden 
9499 c8 440 nextbef: iny naechstes Befehlswort. sucher 
99a b9 20 9c 441 Ida beflist,y 

IB9d dl Fa 442 bne nextbef 

949 cB 443 iny ‚weitersuchen 

9dal do #4 444 bne suchbef 

9da2 bh9 20 9c 435 foundbef: Ida beflist,y Ausgabe des Refehlswortes 
Idas 30 08 445 bri oldnew 

9da7 fü 34 AdT beq normlist3 

9da? 20 47 ab 448 jsr $a6b47 ;Ausgabe des Zeichens 
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Idac 
Idad 


Idaf 
Idbi 
7db2 
9db4 
9dbS 
9db7 
?7dbB 
Idba 
9dbb 
Idbe 
Idch 
Idc2 
9dc3 
Idch 
9dc8 
dcb 
Idcd 
Idct 
F9dd2 
9dd4 
7ddy 


9dd7 





cH 
go 


840 


38 
e9 
aa 
al 
ca 
#o 
c8 
b9 
10 
30 
cB 
b9 
30 
20 
dü 
29 
20 
ad 
cd 
do 


4c 


7# 


+4 


08 


98 
fa 


#5 


ge 
05 
47 
#5 
7# 
47 


02 


ch 


#3 


ist-Routine 

9dda dc Ic a7 
9ddd a4 49 
Iddt 4c fb ab 


a0 


ao 


ab 


ab 


449 
450 
451 
452 
453 
454 

55 
455 
457 
458 
459 
360 
Abl 
+62 
463 
464 
465 
Abb 
467 
468 
469 
A708 
a7 
472 
473 
474 


475 
476 
477 


iny 
bne 


aldnew: sty 
sec 
sbc 
tax 
idy 
wsoldbef: dex 
beq 
soldbet: iny 
lda 
bpl 
bmi 
suoldbef: iny 
lda 
bmi 
jsr 
bne 
weiter: and 
jsr 
ldy 
iny 
bne 


normlisti: jmp 


normlist2: jmp 
normlist3: 1dy 
jnp 


toundbef 
xmem 
#$7# 
art 
suoldbef 


$a09e,y 
soldbef 
wsoldbef 


$a09e,y 
weiter 
$ah47 
suoldbef 
#57 
$ab47 
xmem 


foundbef 
$abt! 
$a7lc 


+49 
$abst6 


Teil 4: Software-Erstellung 


Ausgabe alter Basic-Befehle 
; Tokennummer ermitteln 


Text suchen 


;Befehlswort ausgeben 


sein Zeichen ausgeben 
sletzten Buchstaben 


;ausgeben 
und weiter bei der neuen ausgabe 


iRuecksprung in die normale L 





Listing 4/6.4.1.6-1 (Teil 2) 


Im Anschluß an die LIST-Routine folgt die Einschaltmeldung unserer Basic- 
Erweiterung. Sie entspricht der Meldung beim Einschalten des Gerätes, jedoch heißt 
unser Basic XBASIC1.0” 





9de2 95 dd c2 
ci 43 c9 c3 


20 cd Ze c& 52 49 45 53 45 20 31 39 38 


479 
ABO 
481 
482 


20 d6 
gdt& 28 43 29 483 


Listing 4/6.4.1.6-2 





meldung: ‚by 147,"XBRASIC Version 1.0”,13 
53 49 4 de 20 31 2e 30 Öd 

„by "tc) M.Friese 1987",13,13,0 
37 Od dd 





00 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.1.7 


Die Befehlsausführung 





Die Ein- und Ausgabe von Programmzeilen und Direktbefehlen ist damit abge- 
schlossen. Bei der Ausführung der Befehle holt sich der Basic-Interpreter die Adres- 
sen der Befehle aus einer Tabelle. Er benutzt dazu den Aufbau der Programmzeilen. 
Da jeder Befehl als Token dargestellt ist, und die Nummer des Befehls aus der 
Tokennummer hervorgeht, können die Befehle so schnell abgearbeitet werden. 


Damit unsere Befehle ebenfalls abgearbeitet werden, müssen wir auch in diesen Pro- 
zeß eingreifen. Dies muß einmal für die Befehle und außerdem noch einmal für die 
Funktionen geschehen, da diese an einer anderen Stelle abgearbeitet werden. Im 
Prinzip funktionieren die beiden Routinen aber gleich. 


Befehle werden von der Routine <execute> abgearbeitet, Funktionen hingegen 
von der Routine <exefkt>. Die Funktionsweise wollen wir anhand der Routine 
<execute> aufzeigen. 


Zunächst wird das nächste Zeichen aus dem Basic-Iext mit Hilfe der Routine 
<chrget> geholt und der Prozessorstatus gerettet. Da unsere Befehle alle mit der 
Nummer 210 beginnen, brauchen wir das gelesene Zeichen nur mit dieser Nummer 
vergleichen. Ist unsere Erweiterung nicht gefordert, wird der Prozessorstatus zu- 
rückgeholt und bei dem Originalinterpreter weitergemacht. 


Andernfalls holen wir das nächste Zeichen, welches die Nummer des Befehls ent- 
hält. Dies geschieht ab <xbasictk>. Der normale Basic-Interpreter wird nun abge- 
schaltet, um auf die Befehle unter dem ROM zugreifen zu können. Damit eine 
Funktion nicht als Befehl ausgeführt werden kann, vergleichen wir die Nummer des 
Befehls mit der höchsten Funktionsnummer. Diese einfache Methode ist möglich, 
da wir gefordert haben, daß alle Funktionsnamen vor den Befehlsnamen in der 
Tabelle stehen. 


Anschließend wird die Befehlsadresse aus der Tabelle geholt und der Befehl aufge- 
rufen. Dieser muß mit ‘RTS’ enden, damit der Befehl korrekt abgeschlossen wird. 
Nach dem RTS-Befehl setzt der Prozessor das Programm in Zeile 528 fort (machen 
Sie sich klar, warum er hier weiterarbeitet). Der normale Basic-Interpreter wird wie- 
der eingeschaltet, und die weitere Abarbeitung an ihn übergeben. 





| ___Teil4 Kapitel 6.4.1 Seite 19 





Utilities 








6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 





XBASIE 









Befehlsausfuehrung 



































487 Pre ca herr aha ta Tao ar an rag 

Iela a9 00 488 exefkt: Ida #0 ;Funktionen aufrufen 

Teüc 85 08 487 sta $d 

9eße 20 73 00 490 jsr chrget ;Token holen 

Jeli 08 491 php 

9e1l2 c9 d2 492 cap #xtoken ;XBASIC-Funktion 

9el4 fo 04 493 beq exextkt ‚ja 

Y9el& 28 494 pip 

9el7 4c Bd ae 495 falsch: jap $aedd szur normalen Routine 
496 

9ela 28 497 exexfktz plp ;Funktionsnummer holen 

gelb 20 73 00 498 jsr chrget 

9ele cd If 9c 497 camp funktionen ‚Funktion ? 

9e2l bo f4 500 bcs falsch ;nein, ERROR 

9e23 ch Oi 501 dec pp 

7825 20 2b 9e 502 jsr exectb ;Funktion aufrufen 

Ie2R es 01 303 inc pp 

Je2a 60 504 rts 
505 

9e2b da 506 exectb: asl :Funktionsnummer mal zwei 

Je2c aa 307 tax 

ge2d bd !f 9d 508 lda befehle-2+t1,x ;Funktionsadresse holen 

9830 48 309 pha 

9e3l bd le 9d 510 lda befehle-2,x 

9254 48 Stil pha 

Fe35 50 512 rts R sund Funktion aufrufen 
513 

Je36 20 73 00 514 execute: jsr chrget Befehl ausfuehren 

9859 08 515 exeif: php 

ge3a c9 d2 g16 cap #xtoken ıXBASIC-Befehl 

geic FO 08 517 beg xbasictk ja 

ge3e c9 8b 318 cmp #139 ;IF-Befehl 

9ea0 #0 25 519 beg newif ja, dann zum neuen IF 

9e42 28 520 plp 

9e43 4c e7 a7 521 imp $a7e7 ‚sonst zur normalen Routine 
322 

9e46 68 323 xbasictk: pla ;XBASIC-Befehl aufrufen 

7e47 ch 01 324 dec pp 

9849 2 2 9e 525 jsr execxbas 

Jede eb Öl 326 inc pp 

9ede Ac ae a7 527 jmp $a7ae und zur Interpreterschleife 
328 

9esl 80 327 funktion: rts ‚Befehl war Funktion 
530 

9e52 20 73 00 551 execxbas: jsr chrget ;Befehlsnummer holen 

9e55 cd If 9c 532 emp funktionen 

Jesse 90 #7 333 bec funktion ;Nummer ist eine Funktion 

9e5a da 334 asi ;Numner mal zwei 

JeSb aa 5335 tax ;Befehlsadresse holen 

Jeäc bd 14 9d 536 ida befehle-241,x . 

jest 48 337 pha 

Ie6l bd Le 94 538 lda befehle-2,x 








Listing 4/6.4.1.7 (Teil 1) 
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7e65 48 53 pha 
9e64 4c 73 00 54 jnp chrget Befehl ausfuehren 
5 





Listing 4/6.4.1.7 (Teil 2) 


4/6.4.1.8 


Probleme mit dem THEN-Befehl 


Leider gibt es bei dieser Methode Probleme mit dem THEN-Befehl. Der Basic- 
Interpreter prüft, ob dem THEN-Befehl eine Zeilennummer oder ein Befehl folgt. 
Steht hinter dem THEN-Befehl einer unserer Befehle, nimmt der Basic-Interpreter 
einen Fehler an. Dies kann man vermeiden, wenn man den Befehl durch einen Dop- 
pelpunkt von dem THEN-Befehl abtrennt. 


Beispiel: Der neue Befehl ‘CLS’ soll nach einem THEN ausgeführt werden: 


IF A=1 THEN:CLS 


Dies ist natürlich nicht besonders elegant. Wir werden daher diesen Fehler beseiti- 
gen, indem wir den IF-Befehl durch eine eigene Routine ersetzen. Dazu vergleichen 
wir die gelesenen Zeichen in der Routine <execute> nicht nur mit 210 (für unsere 
neuen Befehle), sondern auch mit 139, da dies das Token des IF-Befehls ist. 


Unser IF-Befehl ist im wesentlichen eine Kopie des normalen IF-Befehls, da wir ja 
nur die Ausführung nach dem THEN-Befehl ändern wollen. Soll der Befehl nach 
dem THEN-Befehl ausgeführt werden, springen wir einfach in unsere Befehlsaus- 
führungsroutine. Damit ist der Fehler bereits behoben. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
EeZ Pe En ee 
543 = Neuer IF-Befehl <7= 
544 IT 
7867 28 545 newif plp Neuer IF-Befehl 
9e68 20 73 00 54h jsr chrget ;Kopie der alten Routine 
9esb 20 Ie ad 5347 jsr ROMfrmevl 
Iebe 20 79 00 548 jsr chrgot 
9e71 .c9 8% 349 cmp #$89 ;6070 Token 
9873 #0 05 350 beg isgoto 
9275 a9 a? 551 ida #$a7 ıTHEN Token 
9877 20 ff ae 552 jsr testcode 
gera as dl 333 isgoto: ida $61 Ergebnis der IF-Abfrage 
F9e7c do 09 534 bne wahr 
9e7e 20 09 a9 555 jsr $2909 ‚zur naechsten Zeile 
9eBl 20 fb aß 556 jsr $a8fb 
9684 4c ae a7 357 jmp $a7ae und weiter im Basic 
9287 20 79 00 558 wahr: jsr chrgot 
9e9a bÜ ad 559 bes exeif ‚nach THEN in neue Executeroutine 
Fedc 20 al ad 560 isr $ada0 szum GOTO Befehl 
9eBt 4c ae a7 36l jmp $a7ae sund weiter im Basic 








Listing 4/6.4.1.8-1 


Mit dieser Korrektur ist der Systemteil der Basic-Erweiterung abgeschlossen. Es 
fehlen nur noch die Routinen der Befehle. Diese bestehen aus eigenständigen Unter- 
programmen. Um einen Befehl hinzuzufügen, müssen daher nur folgende Schritte 
durchgeführt werden: 


1. Der Befehlsname wird in der Befehlstabelle eingetragen. 


2. Die Adresse des Befehls (-1) wird in die Tabelle “befehle’ eingetragen, und zwar 
an der gleichen Position wie der Befehlsname in der Befehlstabelle, denn aus der 
Position in der Befehlstabelle gewinnen wir die Nummer des Befehls, und diese 
Nummer verwenden wir als Index für die Tabelle der Adressen. 


3. Die Routine des Befehls wird an das Programm angehängt. 


Da das System der Erweiterung im RAM liegen muß, lassen wir den Assembler an 
dieser Stelle überprüfen, ob wir den reservierten Bereich von 1,5 KByte überschritten 
“haben. Dies ist der Fall, wenn der Programmzähler an dieser Stelle größer als $IFFF 
ist. Wenn ja, lassen wir den Assembler den Text *RAM-Bereich überschritten‘ und 
die Größe des überschrittenen Bereichs ausgeben. 
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563 BTTTTTTTenne ne 
564 n Hier endet der RAM-Bereich. Die --- 
5365 5777 folgenden Programateile liegen --- 
566 3} teilweise unter dem Basic-Romn. --- 
367 H Die Zeilen dieses Abschnitts == 
368 }--- testen ob der Ram-Bereich bei >=5 
369 H der Assemblierung ueberschritten--- 
370 5 wurde. Se 
BTL dnm--nna Hanna 
372 .?p *-$a000 ;Programmzaehler testen 
873 ‚be ö ıBeep 

5374 “tx "RAM-Bereich ueberschritten" 
375 "Bo #-$an00 

376 „eb 

5377 
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Listing 4/6.4.1.8-2 
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6.4 Basic-Erweiterungen beim C 64 Teil 4: Software-Erstellung 


4/6.4.2 


Programmiierhilfen als Basic-Erweiterung 





Wir wollen in der Grundversion einige Programmierhilfen als Basic-Erweiterung 
zur Verfügung stellen. Die Routinen der Befehle, sowie jeweils ein Beispiel für ihre 
Anwendung stehen in den nachfolgenden Kapiteln. Hier geben wir zunächst eine 
Übersicht über die neuen Befehle, 


Befehle: 








Befehl Funktion 


CLS löscht den Bildschirm 

OLDCHAR kopiert den Originalzeichensatz in das RAM 

064 schaltet die Basic-Erweiterung ab 

XBASIC startet die Basic-Erweiterung neu 

OLD stellt ein Programm nach NEW wieder her 

INST E$, 1$,P überschreibt die Zeichenkette I$ ab Position P mit der Zeichenkette E$ 
DEFCHAR X,Z,M,A$ | Definiert das Zeichen X aus dem Zeichensatz Z neu. A$ enthält die 
Definition und M den Aufbau der Definition 

FRE(X) wie die Originalfunktion 

AT(Z,S) setze den Cursor auf Zeile Z, Spalte S und liefert ““ als Funktions- 

























ergebnis 

HEX$0XY liefert X als vierstellige Hexzahl 

DEC(X$) liefert den Dezimalwert der Hexzahl X$ 

INKEYS$ wartet auf einen Tastendruck und liefert die Taste als String. Der Cursor 
wird dabei eingeschaltet 

INSTR(PS$,IN$) sucht den String S$ in IN$ ab Position P 

STRING$(A$,X) liefert Xmal den String A$ 

SPACES(X) liefert X Leerzeichen 











Für die Befehle CLS, OLDCHAR, XBASIC und C64 existieren keine eigenen Be- 
fehlsroutinen. CLS ruft die im Betriebssystem vorhandene Routine zum Löschen 
des Bildschirms auf. OLDCHAR benutzt die bei der Initialisierung beschriebene 
Routine zum Kopieren des Zeichensatzes. XBASIC ruft die Initialisierung der 
Basic-Erweiterung auf und installiert daher auch die Vektoren neu. C64 schließlich 
ruft die RESET-Routine des Betriebssystems auf. Die Basic-Erweiterung wird dabei 
ausgekoppelt. Da sie jedoch noch im Speicher vorhanden ist, kann sie mit SYS 
39424 wieder gestartet werden. Für die anderen Befchle existieren eigene Routinen. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.2.1 


OLD 





Der NEW-Befehl des Computers zerstört ein Programm im Speicher nicht, sondern 
trägt am Anfang lediglich zwei Nullen ein, und setzt einige Vektoren in der Zero- 
Page auf den Speicheranfang. Man kann daher einen versehentlich eingegebenen 
NEW-Befehl rückgängig machen, solange keine neuen Programmzeilen eingegeben 
oder Variablen angelegt wurden. Genau dies leistet der OLD-Befehl. Er löscht eine 
der Nullen am Anfang, und ruft eine Systemroutine zum Binden der Programm- 
zeilen auf. Diese restauriert auch die zweite Null und liefert das Programmende, 
Dieser Wert wird noch in die Vektoren in der Zero-Page eingesetzt. Anschließend 
sollte der CLR-Befehl aufgerufen werden. 







579 37== XBASIC-Befehl 























9892 a5 2c s81 BBold: Ida 44 ;Kennung am Frg. Anfang loeschen 
9894 a0 01 582 ldy #1 

9296 91 2b 383 . sta (43),y t 

9898 a2 12 384 ldx #18 ;Programmzeilen neu binden 
9e9a 20 b& 9a 585 jsr basicron 

9e9d 35 22 386 ida 34 ;Programmende setzen 

989 18 387 cic 

Ieab 67 02 588 ade #2 

9ea2 85 2d 589 sta 45 

9ea4 a5 23 390 lda 35 

Ieab 89 00 EE23 ade #0 

9eaß 85 2e 392 sta 46 

9eaa &0 395 rts 





Listing 4/6.4.2.1 





Beispiel: 
10 a=2:b=4:0=a-5+b Programmzeilen 

20 print a,b,c eingeben 

new Programm löschen 
ready. 

list 

ready. 

old Programm wiederher- 
ready. stellen 

elr 

ready. 

list 

10 a=2:b=4:c=a+-5+b 

20 print a,b,c 

ready 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.2.2 


INST A$, B$,P 





Dieser Befehl setzt den String A$ in den String B$ ab Position P ein. Dazu werden 
zunächst die Parameter eingelesen und gespeichert. Als nächstes muß überprüft 
werden, ob die Aktion möglich ist . Wenn das Ergebnis länger als der Eingabestring 
B$ ist, kann die Aktion nicht durchgeführt werden und der Befehl bricht mit 
‘OVERFLOW ERROR?’ ab. Andernfalls wird der String A$ in den String B$ in der 
Schleife < putstring> eingesetzt. 








574 
595 RFSFRRFSESS Ts EFT Eee 
596 j007 XBASIC-Befehl INST A$,B$,P Se= 
597 EFSSS-S ges asag gan EEE 
9eab 20°0b 9b 598 BBinst: jsr frmevi ;Zeichenkette holen 
Jeae a2 04 599 idx #4 
9eb0 20 b& 9a 500 jsr basicrom 
Ieb3 Ic Sc 03 601 sty mem ıLaenge in mem 
Jeb& as 22 602 ida $22 ;Adresse in azg2 
9eb8 85 fd 605 sta azg2 
9eba a5 23 604 ida #23 
9ebc 85 fe 605 sta azg2+1 
9ebe 20 23 9b 606 jsr chkkon ;Stringvariable holen 
Jeci a2 14 607 idx #20 
9ec3 20 bb 9a 608 jsr basicrom ;varsuch 
9ec6 aS Od 609 ida $d ;Typflag holen 
9ec8 10 47 610 bpl typerr 
Jeca a0 02 sl ldy #2 sazg zeigt auf den String 
Jecc bl 47 612 lda ($47),y 
Jece 85 fc 613 sta azgt+i 
JedO 88 614 dey 
gedt bi 47 615 lda ($47),y 
9ed3 85 Fb 61h sta azg 
gedS 20 23 9b 517 jsr chkkom ;Fosition einlesen 
9edB 26 33 9b sid jsr getbyte & 
Jedb ca 819 dex sIndex 1.. -> 0%. 
9edc eG ff 620 cpx #4f 
Fede dö 05 621 bne *+2+2+3 
9eed a2 Oe 622 idx #$e falscher Index (8 
9ee2 4c D&b 96 625 jap fehler 
9ee5 Be Sd 05 624 stx menmti ;Position merken 
9eeB 18 625 cle iminimale Stringlaenge berechnen 
626 txa ;Position 
3 627 adc men ;+Laenge der-Zeichenkette 
628 bes strerr 
629 sbe #0 ;-I ergibt minimale Laenge fuer B$ 








Listing 4/6.4.2.2 (Teil 1) 








Teil 4 Kapitel 6.4.2 Seite 24 | Utilities 














6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
gefl a0 ldy #0 ;mit tatsaechlicher Laenge 
9et3 di cmp ($47),y vergleichen 
9ef5 bö bes strerr ‚zu kurz 
9ef7 ad. ida men#+i ;Zeiger auf Einfuegeposition 
Iefa 65 adc azg ıberechnen 
Iefc 95 sta azg 
gete 90 bee *#+2+2 
900 26 ine azati 
902 ac: ldy nen ıZeichenkette einsetzen 
9405 ae 3 ldx men 
9r08 39 640 putinstring:dey 
9409 bI fd 641 ida lazg?),y 
9#0b 91 fh 642 sta (azg),y 
9tüd ca 643 dex sbis alle Zeichen eingesetzt 
9t0e dü #8 644 bne putinstring 
910 60 645 rts 

645 
911 a2 16 647 typerr: ldx #22 
gr 2c 648 bit 
914 a2 Öf 649 strerr: ldx #15 
915 Ac 06 9b 550 inp fehler 





651 


Listing 4/6.4.2.2 (Teil 2) 





Beispiel: 
a$=‘“Dies istabcdeTest“ 


ready. 

inst” ein ”,a$,9 
ready. 

?a$ 

Dies ist ein Test 
ready. 











4/6.4.2.3 


DEFCHAR NR, ZS, MO, Z$ 





DEFCHAR definiert ein beliebiges Zeichen um. Dabei bezeichnet NR die Nummer 
des Zeichens innerhalb des Zeichensatzes. Diese Nummer ist aus der Tabelle 
“Bildschirmn-Codes’ des C 64-Handbuches zu entnehmen. ZS bezeichnet den 
Zeichensatz. Dabei steht eine Null für den Großschrift/Graphik-Zeichensatz und ei- 
ne Eins für den Klein-/Großschrift-Zeichensatz. Z$ ist eine Zeichenkette, die für je- 
den Punkt die Information enthält, ob er gesetzt werden soll. Dabei bestimmt MO 
den Aufbau von Z$. MO lest also den Arbeitsmodus fest. 
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Ist MO=0, so muß Z$ aus 64 Zeichen bestehen. Jedes Zeichen steht dann für einen 
der 64 Punkte aus der 8+8 Punkte großen Zeichendefinition. Soll ein Punkt gesetzt 
werden, so ist ein ‘A’ anzugeben. Ein gelöschter Punkt wird durch das Zeichen ‘.’ 
repräsentiert. 

Ist MO=1, besteht Z$ lediglich aus 32 Zeichen. Jedes Zeichen ist dann für zwei 
nebeneinanderliegende Punkte zuständig. Dabei wurde folgende Zuordnung getrof- 
fen: 


Zeichen 











In diesem Modus lassen sich leicht Zeichen im Multicolormodus erzeugen. Jedes 
Zeichen entspricht dann einer Farbe. 


Der Modus 2 (bzw. 3) entspricht dem Modus 0 (bzw. 1), jedoch wird hier das er- 
zeugte Zeichen invertiert. Sie können so mit einer Zeichendefinition auch das 
inverse Zeichen erzeugen. 


Die Funktionsweise des Befehls ist recht einfach: Zunächst wird die Adresse der Zei- 
chendefinition errechnet, indem zu der Basisadresse des Zeichengenerators die 
Nummer des Zeichens mal 8 addiert wird, da ein Zeichen aus 8 Byte besteht. Ist 
der Zeichensatz 1 gewünscht, muß noch 2048 addiert werden, da die Gesamtlänge 
eines Zeichensatzes 256 Zeichen = 8 Byte = 2048 Byte beträgt. Die Adresse der Zei- 
chendefinition errechnet sich also nach der Formel: 


$D000 + NR «8 + ZS = 2048. 


Ab dieser Adresse werden nun 8 Byte abgelegt, wobei sich jedes Byte aus dem zuge- 
hörigen Zeichen im String, und dem Modus ergibt. Steht ein falsches Zeichen im 
String, wird die Meldung ‘bad char in string’ ausgegeben. Am Ende des Befehls 
wird die Stringlänge mit den gelesenen, d.h. für die Definition benötigten Zeichen, 
verglichen. Weichen sie voneinander ab, wird der Fehler ‘wrong stringlen’ gemeldet. 
‘Das Zeichen ist dann bereits umdefiniert. 


Der Befehl OLDCHAR macht alle Änderungen wieder rückgängig. 









652 dm inne nn 
653 ;--- XBASIC-Befehl DEFCHAR X,YıAt — --- 
PT 
919 20 33 9b 6455 BBdefchar: jsr getbyte ;Zeichenumaer holen 
9t1c 86 Fb 655 stx a2 
Ile a9 006 657 lda #6 . 
9720 85 fc 658 sta azgt+i mal 8 
922 06 fb 659 asl azg 
9124 25 fc 660 rol azgt+i 





Listing 4/6.4.2.3 (Teil 1) 
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426 06 Fb s6l asl azg 

928 26 fc 652 rol azg#+i 

92a üb Fb 663 asl azg 

9#2c 26 fc 654 rol azgti 

7t2e 18 665 elc 

Fr2t 39 00 666 lda #<zeichensatz 

9431 85 fb 657 adc azg 

9433 85 fb 868 sta azg 

9435 a9 dO 6659 lda #>zeichensatz 

9437 65 fc 670 ade azgtl 

959 85 fc 671 sta azgt+! 

9b a9 08 672 lda #8 

93d Bd Je 03 673 sta anzbytes 

9440 20 23 9b &74 jsr chkkom 

9743 20 33 9b 675 jsr getbyte 

946 20 02 676 cpx #2 

3148 bö 12 677 bcs zugroi 

94a Ba 678 txa 

94h 0a 679 asl 

9f4c 0a 680 asl 

944d Ga 681 asl 

Ft4e 65 fc 682 ade argtl 

950 85 fc 683 sta azg+i 

9152 20 23 96 684 define: jsr chkkom 

9455 20 33 9b 685 jisr getbyte 

9458 20 04 685 cpx #4 

9452 90 05 687 bec *#+3+2 

9#5c 4c 11 al 488 zugroi: jap zugross 

It 8a 639 tya 

950 29 O1 690 and #1 

9462 85 fd E21 sta azg2 

9164 Ba 692 txa 

9465 4a 673 lsr 

7#66 85 fe 674 sta azg2#tl 

9468 29 00 695 lda #0 

96a Bd 3d 03.696 sta posi 

9t6d 20 23 9b 6497 jsr chkkon 

970 20 Ob 9b 698 isr frmevl 

9473 a2 04 699 ldx #4 

975 20 b& 9a 700 jsr basicrom 

978 80 Sc 03 7601 sta strlen 

97h a0 ## 702 idy #8 

97d a2 08 703 bytes: ldx #8 

Fr7E 86 02 704 stz xmem 

#81 ab fd 705 ldx azg2 

983 #0 02 70& beq by 

9785 46 02 707 isr xaem 

9487 cR 708 by: iny 

+88 bi 22 709 Ida {$22),y 

?f8a c9 2e 718 cap #'. 

7t8c #0 14 7 beqg null 

It8e 38 712 sec 

grBt 29 40 713 sbe #’a-i 

9971 90 5d 7ı4 bec badchar 

993 #0 5b 715 beg badchar 

9495 09 04 71& camp #4 

9497 bo 57 717 bes badchar 
— 





Listing 4/6.4.2.3 (Teil 2) 


ı+Basisadresse 


;ergibt Zeichenadresse in azg 
;8 Bytes pro Zeichen 


ıZeichensatznummer holen 


;Adresse+2048#leichensatz 


;Flag fuer Modus holen 


Flag fuer Doppelt-Modus 


ıFlag fuer Invers 
;Bytezaehler auf Null 


;String holen 


ıStringlaenge merken 
ıY. zeigt auf String 
;8 Bits pro Byte 
ıDoppeit-Modus? 


;ja, dann nur 4 Zeichen pro Eyte 


;Zeichen ueberpruefen 
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Utilities 
6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
7499 a6 fd zi8 idy azg2 
9496 dö 07 719 bre doppeli 
9#3d c9 02 720 cap #2 
97H bo 4 721 bes badchar 
al 2c 722 bit 
Ifa2 a9 00 723 null: ida #0 
9ta4 ab fd 724 doppell: ldx azg2 
Itas dü 07 725 bne doppelt3 
Ifa8 ha 72& ror sein Bit uebernehnen 
929 Ze 3f 03 727 rol byte 
9tac 4c bB 9+ 728 imp makeabyte 
fat da 727 doppelt3: ror szwei Bit uebernehmen 
F#b0 ba 730 ror 
Ih 2e 34 03 731 rol byte 
I9fb4 2a 732 rol 
9fb5 2e 3# 03 733 rol byte 
968 ch 02 734 makeabyte: dec xmem ;weiter bis ein Byte fertig 
aba dü ch 735 bne by 
I#hbc 98 736 tya ;Y merken 
Itbd 48 737 pha 
rbe a5 Ol 738 lda pp ;Zeichenbereich einschalten 
9#c0 48 737 pha stalles RAM) 
9fci 78 780 sei 
9c2 a9 32 74 lda #832 
Ic 85 01 742 sta pp 
9tc6 ac 3d 03 743 ldy posi ıBytenummer holen 
9#c9 ad 3# 03 744 lda byte ;Byte speichern 
9cc a6 fe 745 ldx azg2+i ;Invers 
Ice F0 02 746 beg putb jnein 
9440 49 FH 747 eor #$#f 
Id2 91 Fb 748 putb: sta (azq),y 
9fd4 58 749 pla ;Speicherbereich normal 
945 85 01 750 sta pp 
947 58 751 cli 5 
9#d8 ee 3d 03 752 inc posi ;Bytenummer+i 
9tdh 68 53 pla ıY holen 
9fdr a8 734 tay 
9fdd ce Je 03 755 dec anzbytes ıbis alle Bytes gesetzt 
9te0 do 9b 736 bne bytes 
9te2 .c8 757 iny 
tel cc 3c 03 758 cpy strien ‚String vollstaendig abgearbeitet 
Ite6 do Öl 739 bne strlenerr ;nein 
9te8 50 7a0 rts 
\ Tel 
Ite9 a2 e5 762 strienerr: ldx #<slerrtxt ;falsche Stringlaenge 
Iteb a? 9a 763 s ida #>sierrtxt 
9ted Ac de 9a 764 jap adrfehler 
765 
Irt0 a2 #4 766 badcharı: ldx #<bcerrtst ;falsches Zeichen im String 
72 29 9a 767 lda #>bcerrtxt 
9tf4 Ac de 92 768 imp adrfehler 
769 
770 strlen: .eq nen ;Stringlaenge 
771 posi: .egq menmti ;Byteposition, 
772 anzbytes: .eq men+2 ;Anzahl Bytes der Zeichen 
775 byte: .eq ment) ;Speicher fuer ein Byte 
774 
L_ 





Listing 4/6.4.2.3 (Teil 3) 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


Als Beispiel soll das Zeichen ’<’ in das Zeichen ‘©’ gewandelt werden: 


A$="..AAAA..” 
A$=A$+".A....A.” 
A$=A$+"A..AAA.A” 
A$=AS+"A.A....A” 
A$=A$+"A.A....A” 

A$=A$+ "A..AAA.A” 
A$=A$+".A....A.” 
A$=AS$+"..AAAA..” 
DEFCHAR 60,0,0,A$:PRINT”<” 


1 
2 
3 
4 
5 
6 
7 
8 
9 





4/6.4.2.4 


A=FRE(X) 








Die FRE-Funktion kennen Sie bereits vom Standardbasic des C 64. Aber Sie wissen 
sicherlich auch, daß diese Funktion nur bei Werten bis zu 32768 richtig funktio- 
niert. Dies liegt daran, daß Commodore die Ausgaberoutine für Integerwerte be- 
nutzt hat, welche größere Werte als negative Zahlen interpretiert. Dies wollen wir 
hier korrigieren, indem wir die Routine kopieren und mit einer anderen Ausgabe- 
routine abschließen. Um unsere Forderung erfüllen zu können, daß ein Befehl aus 
mindestens zwei Zeichen besteht, ist der Befehl unter dem Namen ‘FREC in der 
Befehlstabelle eingetragen worden, da die Zeichenkette ‘FRE? ja als ein Zeichen (ein 
Token) dargestellt wird. Daher ruft ‘FRE(0)’ die neue Routine, und ‘FRE (0)’ die 
alte Routine auf. 





BE a Se 
776 ;--- XBASIC-Befehl  A=FRE(A) -- 


777 geSTTTnminnasa aa FSa He 
947 20 73 00 778 BBfre: jisr chrget 
Yfta 20 Ob 9b 779 jsr frmevi iNert holen 
td 20 13 9b 780 3sr chkklazu Klammer zu pruefen * 
a00ü0 a9 üd za lda #$d Typ testen 
a0o2 fo 053 782 beg nstring 





Listing 4/6.4.2.4 (Teil 1) 
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Utilities 
6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
a004 a2 10 783 ldx #16 
a006 20 b& 9a 784 jsr basicron ıfrestr 
a009 a2 02 785 nstring: ldx #2 ıgarbage collection 
a00b 20 b& 9a 786 jsr basicrom 
a00e 58 787 sec ;Freien Bereich berechnen 
a0of a5 33 7898 lda $33 
aöll e5 31 789 sbe $31 
a013 aß 790 tay 
a0i4 as 34 79 lda #354 
a0l6 e5 32 792 sbce $32 
a0t8 a2 00 793 ergebnis: Idx #0 ıTyp numerisch 
alla 86 Od 794 stx $d 
adlc 85 62 795 outpost sta $62 ;Ergebnis in FAC bringen 
alle 84 63 795 sty 363 
a020 a2 90 797 ldx #390 
ab22 86 02 798 stx xmem 
a024 3 799 sec 
a023 a2 08 800 idx #8 
a027 4c b& 9a BOl jap basicrom 
802 








Listing 4/6.4.2.4 (Teil 2) 


Beispiel: 
NEW 
?FRE (0) 
-28163 


READY. 
?FRE (0) 
37373 
READY. 





4/6.4.2.5 


Zahlenumwandlung 





Häufig benötigt man auch in Basic-Programmen hexadezimale Zahlen. Die Um- 
wandlung in Basic dauert im allgemeinen recht lange. Daher wollen wir uns zwei 
Befehle zur Verfügung stellen, welche die Umwandlung zwischen dezimalen und 
hexadezimalen Zahlen ermöglichen. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


A=DEC(AS) 

Als erstes wollen wir eine maximal vierstellige Zeichenkette, welche eine hexadezi- 
male Zahl darstellt, in eine Dezimalzahl umrechnen. Ist die Zeichenkette länger als 
vier Zeichen, sollen nur die vier letzten Zeichen beachtet werden. Die Umwandlung 
erfolgt nach dem folgenden Algorithmus: 


1. Das Ergebnis ist Null. 

2. Lese ein Zeichen. 

3. Wandle ‘0° bis ‘9 nach O0 bis 9 und A’ bis “F’ nach 10 bis 15. 

4. Multipliziere das bisherige Ergebnis mit 16 und addiere das Ergebnis von 


Schritt 3. 
5. Weiter beim 2. Schritt bis der String beendet ist. 


Als Beispiel soll die Hexadezimalzahl ‘AF45’ in eine dezimale Zahl gewandelt 
werden: 


gelesenes Zeichen entspricht der Zahl Ergebnis 








10 10 
15 175 
4 2804 
5 44869 


Beispiel: 


?DEC("AF45”) 
44869 
ready. 






















805 
804 
805 5; 
ad2a 20 73 00 806 BEdez: jsr chrget 
aö2d 20 Se 9b 807 jsr klamner :Klammerausdruck holen 
au30 a2 04 808 idx #4 ;String holen 
ab32 20 b& 9a 809 jsr basicrom 
a035 do 05 810 bne #t2+2+3 ‚String ="" 
3037 a2 0& si ldx #6 ja, Ergebnis Null 
2039 4c b& 9a 812 jap basicrom 
aösc 98 813 tya sLaenge in X 
a03d aa 814 tax 
alle a0 00 815 ldy #0 ;Ergebnis=0 
204) 84 14 316 sty $14 
a042 84 15 817 sty $15 
a044 bil 22 818 dezi: ida {$22},y Zeichen aus String holen 
a046 c9 30 919 cap #'0 
a04B 70 20 820 bee dezerr ıkleirer 'Ö -> ERROR r 
a04a 89 30 82i sbe #'0 ;nach 0.. wandeln 
a0sc c9 Qa 822 cap #9+1 





Listing 4/6.4.2.5-1 (Teil 1) 
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Utilities 
6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
ee 
ab4de 90 08 23 bcc okdez ikleiner 10 dann Q..9 
ab50 89 07 824 sbe #7 ia... 'f wandeln 
2032 90 16 825 bcc dezerr ;kleiner ‘a -}ERROR 
a054 c9 10 826 cap #15 ıgroesser 'f -5 ERROR 
a056 bö 12 827 bes dezerr 
a059 20 71 a0 828 okdez: jsr asl4 Ergebnis mal 16 
ad5b 18 829 clc ;+ gelesener Wert 0..15 
absc 65 14 830 ade $14 
abSe B5 14 831 sta $14 
abö0 as 15 832 ida $15 
a062 69 00 833 ade #0 
3054 85 15 934 sta $15 
a066 c8 835 iny Pos. im String #1 
a067 ca 836 dex ‚Stelle -1 
a068 d6 da 837 bne dezi weiter 
alba a5 15 838 dezerr: lda $15 ;Fertig oder Error 
adsc aA 14 839 idy $14 Ergebnis in FAC liefern 
aüde 4c Ic a0 940 jap outpos 
84 
ao 06 14 842 asld: ası $14 sInteger in $14/$15 
a073 26 15 843 rol $15 ;4nal linksschieben 
20753 06 14 844 asl $14 
a077 26 15 845 rol $15 
32079 06 14 946 asl #13 
a07b 26 15 847 rol $15 
a07d 06 14 848 ası $14 
a07f 26 15 849 rol #15 
a08l 60 950 rts 
851 








Listing 4/6.4.2.5-1 (Teil 2) 


A$=HEXS$(A) 


Die Funktion HEX$ ist die Umkehrung von DEC. Er liefert eine Zahl als hexadezi- 
male Zeichenkette. Erreicht wird dies, indem die Zahl zunächst als 16-Bit Binärzahl 
dargestellt wird. Dann werden die untersten 4 Bit in die Zeichen ‘0’ bis ‘F’ gewandelt 
und in den String geschrieben. Nun wird die Zahl um 4 Stellen nach rechts verscho- 
ben. Nach viermaligem Ausführen dieser Schritte ist die Zeichenkette fertig erstellt. 








832; 
853 ; 
854 
abe2 20 73 00 855 BRhex jsr chrget 
a085 20 Se 9b 854 jsr klamner ;Klammerausdruck holen 
ab88 20 2b 9b 857 jsr adresse ;in pos. Integer wandeln 
a08b a9 04 358 ida #4 :String der Läenge 4 anlegen 
a0dd 20 4a 9b 859 isr reservstr 
a090 a0 03 880 ldy #3 ‚vier Stellen 





Listing 4/6.4.2.5-2 (Teil 1) 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
a0g2 as 14 B6l tohex: lda $14 ;Integerzahl 
a094 29 Of 862 and #41111 ;Bit 0..3 auswerten 
a09& 18 863 cic snach Ö..F wandeln 
3097 69 30 854 ade #°0 
3099 c9 3a 885 cap #’9+1 
a09b 90 02 866 bee ziffer 
al9d 69 06 867 adc #6 
a0gf 91 852 868 ziffer: sta ($62),v sund in String speichern 
a0al 20 aa al 959 jsr asrä& ;iIntegerzahl/1& 
alas 88 870 dey ;Stellen-i 
a0as 10 eb 871 bpl tohex ;bis 4 Stellen fertig 
aba? 4c 56 9b 872 jap string String in Stringstack 
8753 
a0aa Ab 15 874 asrä: lsr $15 ;Integerzahl in $14/$15 
adac 66 14 75 ror $14 ıvier mal rechtsschieben 
a0ae 46 15 875 lsr #15 
aobt 66 14 877 ror 514 
a0b2 46 15 978 isr $15 
a0b4 46 14 879 ror $14 
a0b& 46 15 880 lsr $15 
a0b8 65 14 881 ror $14 








Listing 4/6.4.2.5-2 (Teil 2) 


Beispiel: 
?HEX$(44869) 


AF45 
READY. 








4/6.4.2.6 


AS=INKEY$ 





Basic-Programmierer schreiben sich häufig eigene Eingaberoutinen, die mit dem 
GET-Befehl arbeiten. Diese Methode hat den Nachteil, daß der Cursor nicht sicht- 
bar ist. Außerdem muß das Warten auf einen Tastendruck extra programmiert wer- 
den. Um hier eine Hilfestellung zu haben, wurde die Funktion INKEY$ entwickelt. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


Die Routine schaltet zunächst den Cursor an und ruft dann die GET-Funktion auf. 
Liefert sie den Leerstring, wird GET erneut aufgerufen, bis der Anwender eine Taste 
drückt. Dann wird der Cursor wieder abgeschaltet und das eingegebene Zeichen als 
Ergebnis geliefert. 



































884 5=----- 2400224444422 
885 377 XBASIC-Refehl A$=INKEYE 
BBb === 4044444444444 
abbb a9 00 887 RBRinkey: ida #0 Cursor anschalten 
aöbd 85 ct 888 sta 207 
aöübf 85 cc 889 sta 204 
a0cl a2 Or 890 inkey: idx #12 ;Set-Funktione 
a0c3 20 bb 9a 891 jsr basicrom 
adc6s c9 00 892 camp #0 nichts gelesen? 
aoca f0 #7 895 beq inkey ıdann warten 
aüca 48 994 pha :Zeichen merken 
aüch a9 Ol 895 ida #1 ‚Cursor aus 
abcd 85 cc 896 sta 204 
abct a5 ce 897 Ida 206 
a0dl a4 d3 898 ldy 211 Zeichen unter Cursor 
add3 91 di 899 sta (209),y neu setzen 
a0ds a9 01 900 ida #1 ‚String anlegen 
a0d7 20 4e 9b 901 jsr reservstr 
abda a0 00 702 ldy #6 ;Zeichen einsetzen 
a0dc 68 903 pla 
abdd 91 52 704 sta {#62),y 
a0df 20 56 9b 905 jsr string ‚String ist Ergebnis 
a0e2 4c 73 00 906 Jmp chrget 
707 





Listing 4/6.4.2.6 


Beispiel: 
?INKEY$ (TASTE A’ drücken) 


A 
READY. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.2.7 


AS=AT(X,Y) 





Ebenfalls häufig benötigt ist das Positionieren des Cursors auf dem Bildschirm. 
Dies läßt das Standardbasic leider nicht zu. Man kann diese Funktion aber mit 
POKE und SYS erreichen. Wir wollen hier einen Befehl ’AT’ schreiben, der den 
Cursor auf dem Bildschirm beliebig positioniert. Außerdem soll es möglich sein, 
den Befehl in einen PRINT-Befehl einzusetzen. 


Beispiel: 


PRINT AT(10,20) “TEST”; AT(1,1) “AT-DEMO”; 





Dies ist jedoch nur möglich, wenn der Befehl AT eine Funktion ist. Wir erstellen 
AT daher als Funktion, die den Cursor setzt, und als Ergebnis einen Leerstring lie- 
fert. 


XBASIC-Befehl As=AT(X,Y) 


Ss 
1% 


;Zeile einlesen 


2 
[M 


getbyte 
x #25 jueberprueten 
zugross 
azg sund merken 
chkkom 
getbyte ;Spalte einlesen 
#40 sueberpruefen 
zugross 
211 ;Position setzen 
azg 
214 
#14 ;Cursor auf Pos. setzen 
basicron 
chkklazu jAuf ')' testen 
#0 Ergebnis der Funktion ist "" 
reservstr 
string 


4ne 
win. 


ha ch) 


ER 


[9 
en 


3 
fb 


zugross: #$e 
tehler 





Listing 4/6.4.2.7 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.2.8 


AS=SPACES(X) 





Nun wollen wir uns noch ein paar Funktionen definieren, welche den Umgang mit 
Strings erleichtern. Der Befehl SPACE$ soll uns eine Anzahl von Leerzeichen lie- 
fern. Dazu reserviert er zunächst einen String, der durch X angegebenen Länge. 
Dieser String wird dann in der Schleife <putspaces> mit Leerzeichen gefüllt. Zum 
Schluß wird der Zeiger an den Basic-Interpreter übergeben. 





33 hemmen 24200 nn 
33 B 






734 }7-- XRASIC-Befehl A$=5PACESCK) Eoie! 
9535 Ber m m nn 
all& 20 73 00 936 BBspaces: jsr chrget . 
all9 20 33 9b 937 jsr getbyte ;Anzahl holen 
alic Ba 938 txa ;Anzahl merken 
alld 48 937 pha ıString anlegen 
alle 20 de 9b 940 jsr reservstr 
al2!l 58 941 pla 
al22 aß 942 tay Leerzeichen in String schreiben 
al23 #0 07 943 beq leerstr 
al25 a9 20 744 lda #32 
a127 88 945 putspaces: dey 
al28 91 82 9745 sta {$62),y 
ala dö fb 947 bne putspaces ‚String als Ergebnis liefern 
al2c 20 56 9b 948 leerstr: jsr string 
al2t A4c 13 9b 949 jmp chkklazu 


350 





Listing 4/6.4.2.8 


Beispiel: 
?SPACE$(8); “TEST” 


TEST 
READY. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 


4/6.4.2.9 


A$=STRING$(A$,X) 





Dieser Befehl ist eine Erweiterung von SPACHES$. Er liefert x-mal den String A$. 
Dazu wird ein String der Länge X«LEN(A$) reserviert. Ist die Länge Null, wird der 
Leerstring zurückgeliefert. Bei der Berechnung wird der Einfachheit halber die Mul- 
tiplikation auf mehrere Additionen zurückgeführt. Dies ist nicht langsamer als eine 
Multiplikation, da der String A$ in der Praxis selten länger als ca. 10 Zeichen ist. 


In den reservierten String wird dann x-mal der String A$ eingetragen. Dies geschieht 
ab <makestring>. 





Ss 
932 5007 XBASIC-Befehl A$=STRING$(AS,X) 
933 ETTmnmmenn anne en nn 
al52 20 73 09 954 BEstring: jsr chrget 
al35 20 0b 9b 955 jsr fraevl ;String halen 
al5B a2 04 9756 ld» #4 
alla 20 b& 9a 957 jsr basicron 
alöd as 22 958 lda $22 
aljt 85 fd 959 sta azg2 
aldi a5 23 960 Ida $23 
al43 85 fe I61 sta azg2+i . 
al45 84 fb 962 sty azg ;Stringlaenge merken 
al47 20 25 9b 963 isr chkkom sauf Komma pruefen 
alda 20 35 9b 964 jsr getbyte ;Anzahl der String halen 
al4d 86 fc 765 stx azg#l sAnzahl der Strings merken 
aldf Ba 966 txa ‚Anzahl der String=o 
also #0 35 967 beq leerstring :fuehrt zu einen Leerstring 
alSi2 ab fb 968 ldx azg ;Stringlaenge 
alSd #0 31 769 beq leerstring 
al5s a9 00 970 Ida #0 
als 18 971 elc 
al57 65 fc 972 aultiply: ade azg+i smit Anzahl Strings 
al5b hü 37 973 bes strzugross saultiplizieren 
alsd ca 774 dex A 
sl5e d) #9 975 bne multipiy 
al&öl 20 4e 9b 97& jsr reservstr ;Besamtstring reservieren 
al63 a6 fc 977 ldx azg#i sAnzahl Strings in X 
ald5 a0 09 978 ldy #6 ;Pointer auf Strings=0 
a167 84 #c 9797 sty azg#i 
ald9 bi fd 980 nakestrings:lda fazg2),y ;String ubertragen 
aldb 84 02 981 sty xmen 
alöd a4 fc 9782 ldy azg+i ;Pointer auf Besantstring 
alst 91 82 983 sta ($62),y 








Listing 4/6.4.2.9 (Teil 1) 
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Utilities 
6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 
al7ı a4 02 384 ldy xnenm 
al73 ed fc 985 inc azgti 
al?3 c8 9786 iny 
al76 cA fb 997 cpy arg String einnal kopiert ? 
al7d dü ef 988 bne makestrings ‚nein 
alfa ab 00 389 ö ldy #0 ‚ ;Noch einmal kopieren? 
al’fc ca 990 dex 
al7d dö ea 9 bne makestrings ja 
al7f ch Od 992 dec $d 
al8ı 20 56 9b 995 jsr string 
al84 4c 13 96 994 jap chkklazu 
995 
a197 39 00 996 leerstring:lda #0 iLeerstring liefern 
at89 20 de 9b 997 jsr reservstr 
aldc c6 üd 398 dec $*d 
alge 20 56 9b 999 jsr string 
al9l Ac 13 9b 1000 jap chkklazu 
1001 
al94 a2 17 1002 streugross:ldx #25 ‚String zu lang 
al9& 4c 06 9b 1003 jap fehler 








Listing 4/6.4.2.9 (Teil 2) 


Beispiel: 
?STRING$(“"MANFRED”4) 


MANFREDMANFREDMANFREDMANFRED 
READY. 





4/6.4.2.10 


A=INSTR(P,A$,B$) 





Als letzten Befehl der Grundversion betrachten wir den INSTR-Befehl. Er sucht den 
String A$ im String B$. Dies geschieht durch einfaches, zeichenweises Vergleichen 
des Strings A$ mit einem entsprechend langen Teilstring von B$. Ist der String ge- 
funden, wird die Position des Strings als Wert geliefert. Andernfalls liefert die Funk- 
tion den Wert Null. Der Parameter P gibt an, ab welcher Position in B$ mit der 
Suche begonnen wird. 
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6.4 Basic-Erweiterung beim C 64 Teil 4: Software-Erstellung 





u 1005 54---- 44mm 











1005 XBASIC-Befehl 
1007 3 
3199 20 73 00 1008 BBinstr: jsr chrget 
al9c 20 33 9b 1009 jsr getbyte Position holen 
al9f Be Ic 03 1010 stx nen ;und merken 
ala2 20 25 9b 1011 j3sr chkkon 
alas 20 6b 9b 1012 jsr frmevl ;String holen 
alaß a2 04 1013 ldı #4 
alaa 20 b& 9a 1014 jsr basicrom 
alad a5 22 1015 ida $22 ;Adresse in azg 
alat 85 fb 1015 v sta azg 
albi a5 23 1017 Ida $23 
alb3 85 fc 1018 sta azgti 
albS 8c 38 03 1019 sty memti ;Stringlaenge merken 
alba 20 25 9b 1020 isr chkkom 
albb 20 Ob 9b 1021 jsr frmevl ;String2 holen 
albe a2 04 1022 ldx #4 
alco 20 b6 9a 1023 jsr basicron 
alc3 a5 22 1024 Ida $22 ;Adresse in azg2 
alc5 85 fd 1025 sta azg2 
alc7 a5 23 1026 lda $23 
alc9 85 fe 1027 sta azg2+1 
alch 8c 3e 03 1028 sty men+2 ;Stringlaenge merken 
alce 20 13 9b 1029 jsr chkklazu 
aldi ac 3c 03 1030 2 ldy nen 
ald4 dO 05 1031 bne #+2+2+3 
ald& a2 0e 1032 ld» #$e ;Index=0->Fehler 
ald8 4c 06 9b 1033 jap fehler 
aldb 88 1034 dey sIndex 1.. -> 0.. 
aldce 9c 41 03 1035 sty nen+5 sAktuelle Suchposition 
aldf a9 00 10356 dg: Ida #0 ;Vergleichsposition 
alei 8d 40 03 1037 sta men+4 
ale4 ad 41 05 1038 lda mem+5 ;Suchen ab Pos, men+5 
ale? 8d 3f 03 1039 sta men+3 . 
alea ac 3f 03 1040 strvergl: ldy mem+3 ;Stringlaenge veberschritten? 
aled cc 3e 03 1041 cpy ment? 
alfl bO 1b 1042 bes notfound? Ja 
altf2 bi fd 1043 Ida (azg2),y ;Zeichen holen 
alf4 ac 40 05 1044 idy mem+4 ;Laenge des Suchworts überschritten ? 
alf?7 cc 3d 03 1045 Epy nen#+l 
alfa f0 if 1046 beq faund ıja, dann Wort gefunden 
alfc di fb 1047 cmp (azg),y ;Zeichen vergleichen 
alfe do 08 1048 bne durchgang sungleich -> neue Suchposition 
a200 ee 3 03 1049 inc mem+3 ‚naechten Buchstaben vergleichen 
a203 ee 40 03 1050 inc men+4 
a206 dO e2 1051 bne strvergl zweiter vergleichen 
1052 
a208 ee 41 03 1053 durchgang: inc men+5 ;sneue Suchposition 
a20b dO d2 1054 bne dg sund neu vergleichen 
1055 
a20d ac 40 03 1056 notfound?: ldy mem+4 5 iWortende erreicht? 
a210 cc 3d 03 1057 cpy mem+ti 
a213 f0 06 1058 beq found ;ja, darin Wort gefunden 
a215 29 00 1059 ida #0 ;sonst nicht gefunden -} 0, liefern 
a2l7 a8 1050 tay 
a2l8 4c 18 a0 1061 jap ergebnis 
| 1062 | 
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a2ib 39 00 1083 found: lda #0 

alld ac 41 03 1064 ldy ments 
a220 c8 1065 iny 

a22l’4c 18 a0 1066 jinp ergebnis 


1067 


;Position mem+5 liefern 





Listing 4/6.4.2.10 (Teil 2) 


Beispiel: 

A$ = ""TESTESTABCDEF” 
?INSTR(1,"TEST”,A$) 

4 

READY 


AINSTR2,“TEST”,AS) 
4 

READY. 
2INSTRG5,"TEST”,AS) 
0 


READY. 
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Basic-Erweiterung, Version 1.1 


Mit der Version 1.1 unserer Basic-Erweiterung XBASIC wird der Befehlssatz um 23 
Befehle auf insgesamt 38 Befehle erweitert. Eine Übersicht aller Befehle finden Sie 
in Kapitel 4/6.4.9. 


Bevor wir uns mit den einzelnen Befehlsroutinen auseinandersetzen können, müssen 
wir unsere Systemroutinen um einige neue Möglichkeiten erweitern. Dazu stellen 
wir uns weitere ROM-Routinen zur Verfügung, welche im wesentlichen den Daten- 
transfer mit externen Geräten, wie z.B. der Diskettenstation, übernehmen. 


Die neuen Routinen werden einfach an die Tabelle ab <rombefehle> angehängt. 
Wenn Sie diese Änderungen in ihrem Quelltext vornehmen, beachten Sie bitte, daß 
die Zeilennummern hier nicht mehr übereinstimmen, da für die Ausgabe einige 
Steuerbefehle eingefügt wurden. Richten Sie sich nur nach den Kapitelüberschriften 
bzw. Symbolen, oder nach den Adressen der übersetzten Version. 


rombefeble: 
.no testceode-1 
‚wo garbage-i 
„oa getstring-! 
$b3f7-1 
#bc49-1 
CURrechts-i1 
cs get-1 
telöc- 


m 
Ira BI ra hl 





Karo on 


rararah 


Fileparameter 
Filename 


Open 
Close 
Chkin 


gtrch-L 
; bsout- 
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Ta 
da 
eü 


1 


sad FACHLA/ 





Listing 6.4.2 (Teil 2) 


Nach den ROM-Befehlen folgte in der Grundversion die Token-Wandelroutine. 
Auch diese werden wir durch eine neue Routine ersetzen. Dies geschieht, weil sich 
die Länge unserer Befehlstabelle recht schnell der Grenze von 256 Byte nähert, für 
welche die Token-Wandelroutine ausgelegt ist. Die neue Version wird diese Be- 
schränkung nicht mehr aufweisen. 


Als kleine Besonderheit finden Sie am Anfang der Routine den Befehl ’JSR 
AUTOEXEC”. Dieser Unterprogrammaufruf wird später für den Befehl "AUTO? be- 
nötigt, und dort auch erklärt. 


‚Weiter bei der AUTO-Routine 
autoexac 
PR 
nexttk 


voarstt FR gt auf die Befehisiiste 
#<beflist ‚sazg % Y auf die Befehlstabelile 
ı a2Q 
#:beflist 
azg+i 
#1 ıTokennummer ist I 


s2g2 


ıraechstes Zeichen vergleichen 


ıBefehlstext mit Zeile veral. 
;Befehiswort-Ende = 
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®bb7 dd O0 02 
Fbhe do ic 342 nal jnein 
Ibbe Fü FI y 
Ib 02 2 n y B Befehl gefunden 
d2 3 i x ıXBASIC-Token in Zeile 
bringen 
7bc3 99 00 
?bc? 
bc td 
Fbca 3 zeile,y 
®brcd 
Obce zeile,x ıRest des Befehlswortes loeschen 
B6dt 9 : zeile,y 
Fba4 Fü h tonexttk ıLaenge der Zeile korrigieren 


9b 


Ende des Betfehlswortes in 


Tabelle 
"bdc 88 
Gbdd e8 360 ;Tokennunmer #1 
Sbdt ch 
?beb bi 
be? do 
bed 39 
bes 98 
bes 85 
Fhes 35 
gbea 39 
?bec 

Fbed 

?het 

bil 

9bfT dü 


Er 


PEReEeR 
ie 


ınein, weitervergleichen 


“ta 
Sa 


sbf5 88 ;ab naechter Position in Zeile 
reusuchen 

Ihtb 85 37 x xmem 

Sb#3 bd ö zeile,: ;Zeile beendet ? 

9bfb aborttk 

bfd c9 87 579 #131 ı BATA-Token 

gbtt #0 17 380 aborttk dann Rest der Zeil 

beachten 

7cöl c9 #143 :BEM-Token 7 

9c03 #0 13 3 ı aborttk dann Rest nicht beachten 

705 c9 3 #24 ‚String ? 

co? do 3 vgli ‚nein 

Ic09 e8 hkommas ıStrings ueterlesen 

cha bad 50 02 785 zeile,s - 

Icdd #00 2 aborttk Ende der Zeile erreicht 
echt c9 

Iciı du 

cl) e3 
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de erreicht 


aborttk: E !Laenge der Zeile Jaden 


‚fertig 


tonexttk: ;Laenge der Zeile korrigieren 
;Laenge der neuen Zeile 


ı+5 fuer Verwaltung 
#5 
a tb jergibt die Lasnge 
nexttk 
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An die Token-Wandeloutine schließt sich die Tabelle der neuen Basic-Befehle, sowie 
ihrer Adressen an. Diese Tabellen müssen natürlich auch gemäß unserer Befehlsta- 
belle (siehe Kapitel 4/6.4.9) erweitert werden. 


Beachten Sie, daß für den Befehl mit der Nummer 32 ein Dummy-Eintrag vorge- 
nommen wurde. Dieses Vorgehen ist nötig, da die CHRGET-Routine, welche das 
nächste Zeichen aus dem Programm holt, Leerzeichen überliest. Da Leerzeichen 
den Code 32 haben, wird der Befehl mit der Nummer 32 durch einen doppelten Ein- 
trag (hier: ’dir’) gesperrt. 


407 

408 

409 i 

410 ; 1. Liste der Funktionen 
?czb Öe ar funktionen:.by 13+1 Anzahl der Funktionen +1 

412 
?c2c bI 28 0 412 beflist: ‚by 184, '6,0 ıFREi Liste der Funktionsworte 
9c2t At 54 28 414 “by "ati",o sATt 


28 
9033 48 „by "hexs",o „HERE 
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24 00 

9c38 44 45 33 416 

00 

9cIc 47 Ae 4b 417 

357 24 00 

9c43 49 de 57 418 

54 52 28 00 

9c4a 53 534 52 419 
23 28 00 


45 4b O0 
7c51 52 45 
46 00 

9chs 48 

4b 00 


Pcab 53 


Icst 54 


45 00 


9c74 45 

00 

9c79 At Ac 

47 438 41 52 W 
9cB0 43 I5 

05 

9c84 58 42 

33 49 43.00 
ck 49 de 


af 
54 00 


a5 41 443 
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‚ "dec",üö 
"inkey$",Q 
v "instri",ö 
"stringkt",ö 
"spaceki",ö 
‚ "dreek",.Ö 
‚ "rsek",ö 
"deek",D 
"st$",0 
"time",ö 
; 2. Liste der Befehle 
“by "cls",öO 
"oldchar”,d 
2 2 


‚ "xbasic",O 


"inst".o 


"roke".ö 
"doke",Üo 
"au",164,0 
"swap”,üö 

‚ "dir",ö 


"9,147, 
‚ "coilect”,ö 


‚ "header" ,ü 


Teil 4: Software-Erstellung 


;BEU 
‚INKEY$ 
sINSTRt 
;5TRINGE 
:SPALEF 
ıDREEK 
sREEK 
ıDEEK 
518 
ıTIME 
;CL3 Liste der Befehlsworte 
:0LDCHAR 


‚C54 


; INST 
sDEFCHAR 
soLD 
;DRÜKE 
:ROKE 
:DOKE 
;AUTO 
;5WAR 
:DIR 


:QLOAD 
;COLLEET 


ıHEADER 
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44 45 
9:3 ä y "rename" 


ai Ada P 
Fcadü 3 52 5 ‚by "scratch",‘% ıSCRATCH 


a1 594 43 j ES 
FcdB 44 49 52 486 .bv "dir",d Dummy fuer Befehl 32 


00 

Icer 49 de 49 347 y "initialise".O ;INITIALISE 
54 49 41 4c 49 53 45 06 

Gce? 53 45 54 449 y "setd",193,'r „OrSETDATNR 
44 cl Ö 

9cee 50 41 55 349 .by "pause",Öö ı FAUSE 
3435 00 

Icta 57 45 54 350 = "settime”,ö ıSETTINE 
54 49 Ad 45 00 

Icte 53 45 54 451 "seteol",ü :SETEOL 

45 4 Ac 00 

9407 4c 49 de 452 "line", " ıLINEINPUT 
45 85 00 

9409 4c 49 de "line",132,0 iLINEINPUT# 
45 84 00 


Iaot 00 ya ;Tabellenabschluss 


3d10 87 48 00 7 tkiöd: 3987,348,0,0,0 ;Fliesskommakonstante IN 
0 00 


RESERVEZ: „db 244+beflist-RESERVEZ:Reserve fuer Erweiterungen 


:Tabelle der Adressen der Befehle % Funktionen 
befehle: “wa Bifre-i ıFREÜ + Funktionen 
.wo BRat-1 
‚na BRhex-1 
‚wo Bider-i 
‚wo BBinkey-i 
.wo BRinstr-i 
‚no Bästring-i ;STRINGE 
‚no BEspaces-! :SFALES 
«ns BBdreek-i ;DREEK 
„wa BBreek-1 »REEK 
‚wc Bödeek-1 ıDEEK 
Best-1 ı5T$ 
BBtime-i ‚TINE 


elrser-i :CL5 * Befehle 
setreichen-1 ıBLBCHAR 
reset-i ıCd4 
Bixbasic-i :XBASIE 
BBinst-1 :INST 
BBdefchar-i ;DEFCHAR 
BBald-i :0LDEHAR 
> ERdroke-i ıDROKE 
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oda 
dir 
Fd4e 3 
9450 
7452 
3454 
Fd5& 
9458 7 
Id3a 
dic 7 


wm 


v» m u mom mn mm wm m 


4 
4 
2 
3 
5 
3 
a5 
{v 
3 
4 
5 
& 
7 
7 
7 





m 
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RESERVES: 


«RO 
P'ie} 
‚wo 
“RO 
«WD 
PR\T:} 
AT 
WO 
“no 
“no 
‚wo 
PR.T-} 
“Wo 
RO 
“WO 
‚wo 
“WO 
“Wo 


„dh 


BBroke-1i 
EBdaoke-1 
BBauto-1t 
BBswap-t 
BBdir-i 
BRgload-i 
BBeollect-1 
ERheader-1 
BBrename-i 
Böscratch-t 

Ü 

BBinitial-i 
BRsetdatnr-1 
BRpause-1 
Bäsettine-1 
BEseteol-1 
BRlineinput-1 
BBlineindev-i 


löö+befehle-R 
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:RÜKE 

;DOKE 

;AUTO 

;5WAF 

:BIR 

sBLGAD 
sCOLLECT 
ıHEADER 
}RENANME 
;SCRATCH 
Dummy fuer Befehl 32 
sINITIALISE 
;SETDATNR 
;PAUSE 
:SETCLOCK 
;5ETEOL 
;LINEINPUT 
sLINEINFUT# 


ESERVEI;Reserve fuer Erweiterungen 





Nun müssen wir nur noch in der Einschaltmeldung die Versionsnummer von ’1.0° 
auf ’1.1’ ändern. Dann können wir uns den Befehlsroutinen zuwenden. 


9de2 93 49 c2 
ci d3c9 cc 
Idt6 28 43 29 


20 cd Ze c& 


d 


Sn 
JE 


Listing 6.4.2-3 


Sau 
Sl 
362 
363 

de 
364 

Fi 


35 


SE 


45 


9 = 
5 


55 


meldung: 


en 8% 


45 


49 44 de 2 


Eins 


LE) 


38 








37 


chaltmeldung 


{ 
i 


31 Ze 31 04 
M.Friese 1997" ,13,13,0 
öüd Od 


00 
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4/6.4.2.11 


QLOAD FILE$,DEV 





Als ersten Befehl der Version 1.1 werden wir den Befehl QLOAD implementieren. 
Dieser Befehl wird uns dabei helfen, ein kleines Problem zu bewältigen. 


In der Version 1.1 ist die Tabelle der Befehle notwendigerweise geändert worden. Da 
auch neue Funktionen hinzugekommen sind, und alle Funktionen vor den Befehlen 
stehen müssen, haben einige der Befehle aus der Grundversion neue Nummern er- 
halten. Laden Sie nun ein Programm, welches mit der Grundversion erstellt wurde, 
mit ’LOAD?’ in den Speicher, so ist es unter Umständen nicht ohne Änderungen 
lauffähig. 


QLOAD soll dieses Problem beseitigen. Im Gegensatz zum LOAD-Befehl lädt 
QLOAD eine ASCII-Datei zeilenweise ein. Bei jeder Zeile wird getestet, ob sie mit 
einer Zahl beginnt. Ist dies der Fall, wird sie als Zeilennummer angesehen, der Text 
mit Hilfe der Token-Wandelroutine in die interne Darstellung gewandelt, und die 
Zeile im Speicher abgelegt. Alle anderen Zeilen werden überlesen. 


Um nun ein altes Programm zu übertragen, muß es zunächst als ASCII-Datei auf 
Diskette geschrieben werden. Dazu wird die Grundversion von XBASIC geladen 
und gestartet. Dann wird das Programm mit ’LOAD? geladen. Mit Hilfe der folgen- 
den Zeilen wird es als ASCII-Datei auf Diskette geschrieben: 


OPEN 28,2,’ dateiname,p,w”:CMD2:LIST 


CLOSE2 





Mit Hilfe des Befehls QLOAD”dateiname”,8 oder QLOAD”dateiname” kann diese 
ASCII-Datei von der Diskette als Programmdatei eingelesen werden. Wird ein anderes 
Gerät als die Diskettenstation (Gerätenummer 8) verwendet, muß sie wie bei dem 
LOAD-Befehl angegeben werden. Fehlt die Nummer, wird 8 angenommen. 
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Zu Beachten ist aber, daß der Puffer zur Wandlung in die interne Darstellung maxi- 
mal 88 Zeichen faßt. Längere Zeilen, welche mit Hilfe von Abkürzungen erzeugt 
wurden, werden überlesen! Die Zeilennummern dieser Zeilen werden aber auf dem 
Bildschirm angezeigt. 


Außerdem ist zu beachten, daß QLOAD nur im Direktmodus arbeitet. Wird der 
Befehl von einem Programm aus aufgerufen, so erfolgt die Fehlermeldung 
»UNDEF’D FUNCTION’. 


@LOAD DATEIF,DEV 
ıDiskettenstatus 
BRglcad: x ‚Test auf Direkt-Muodus 


aldirekt 
» #27 s"undef 'd function" 
fehler 
aldirekt: 473 tar auf Programmstart 
$ae 
43 
tat 
frmevl ;String DATEI$ holen 
#4 
basicron 


£ sLaenge in Accu 
$22 ;Als Filenamen setzen 


‚ 323 
filename 
chrg 


gloadline: [E22 seine Zeile lesen 
1180 gloadl: 
1181 #38 ‚Zeile zu lang? 
1182 zulang 
2 1183 basin ıleichen lesen 
2 1184 F200,Y j». speichern 
1185 #13 bis SRETURN> 
118& aloadl 
2 1197 200 ıZeile beginnt mit Ziffer 
1188 #0 
1159 f unload ınein 
1190 #91 
1191 unload ‚nein 
1192 #0 
2 1193 $200,y :Fuffer mit 6 abschliessen 
1194 #<8200-1 


1195 #7a =. 
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1195 
1197 
1198 
1199 
1200 
1201 


BErETENZeER 


munacrm 


a2da ad 00 
ausgeben 

azdc b? Öü 
aldt c7 30 
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puttheline: 


unload: 


Ida 
sta 
jsr 
ldx 
isr 
Id 
jsr 
idy 
ida 
sta 
iny 
sta 
iny 
lda 
sta 
iny 
ida 
sta 
imv 
Idx 

ida 
sta 
inx 

inv 
cap 
bne 
tya 
clc 
ade 
sta 
bec 
inc 


Ida 
beg 
lda 
sta 
iny 
sta 
tay 
sta 
iny 
iny 
sta 
jsr 
lda 
sta 
jap 


# 
$7b 
chraet 
#46 
basicron 
#44 
basicrom 
#2 

#8 
t$ae},y 


I$2e),y 


314 
{tae),y 


$15 
{FaB)ıy 


#0 
3200 ,% 
ifae),v 


#0 
puttheline 


$ae 
$ae 
unload 
$af 


status 
gloadline 
#0 
‘Fae},v 


(Fae),y 


$7a)ıy 


($72).y 
readfilerio 
#0 

198 

ERold 


Teil 4: Software-Erstellung 


;Zeilennummer wandeln 


Eingabe in Token wandeln 


;Link-Fointer setzen 


ıleilennunmer setzen 


ıDateı beendet ”? 
‚nein, naechste Zeile 


atei schliessen 
af. AUTO Zeilennumner lces 


;D 
’a 


Zeile zu lang-> Zeılennummer 
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Mr 


zlende 

#9 

zlende 

basout ;Zeilennummer ausgeben 


In un 


ba ra Rooro ha 


zula 

basin ıbis Zeilenende lesen 
#15 
zlende 
#. 
basout 
unload 


i 
4 


So 


©D 


;Komma ausgeben 


© 


= 


1 
i 
t 
31 
t 
1 
1 
t 
1 
1 
1 
i 
1 


5 
25 
235 
25 
25 
25 
25 
25 
26 
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QLOAD verwendet einige Unterprogramme, welche in den folgenden Zeilen defi- 
niert werden, und später auch von anderen Befehle genutzt werden. 


Das Unterprogramm <BASIN> liest ein Zeichen in den Akku ein, und 
<BASOUT> gibt das Zeichen im Akku aus. <FILENAME> setzt den Datei- 
namen. Dabei muß im Akku die Länge des Namens, und in X/Y die Adresse 
stehen. 


Das Unterprogramm <READFILEOP > eröffnet eine Datei mit der logischen Da- 
teinummer 80 (kann geändert werden: siehe SETDATNR) zum Lesen auf der Dis- 
kette, Außerdem lenkt es die Eingaberoutine <BASIN> auf diese Datei um. Die 
Datei kann durch <READFILECLO> wieder geschlossen werden. Die Eingabe 
erfolgt dann wieder von der Tastatur. 


x #40 sein Zeichen einiesen 
basicrom 


basout: 2 #82 weru Zeichen ausgeben 
basierom 


tilenane: mem ‚Filenamen setzen 
#23 
basicrom 


KERERETERESERETCHN) 
SO EI N ER En ar 


Seeeeeomon 
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I 


readfileop:stz xmem ıFileparamuter 
idx #26 
jisr basicrom 
id #30 OPEN 
jsr basicrom 
bes openerr ıFehler 
ida dateinr 
sta xmem 
ld #24 ;% CHKIN 
jsr basicrom 
bcs openerr 
rts 
openerr: pha :Fehler melden 
jisr resdfiieclo 
pla 
tax 
jnp fehler 


SI 


Sr 
Br oa BEE EN eo 


Hana Hana han 


Dom 
Ger] 


na 





Sseose 


readfileclo:lda dateınr sCLOSE dateinnr 
ids #32 
jisr basicrom 
id« #238 ‚Eingabe wieder normal 
jmp basicronm 


aauneo ao 


SETEFESZEUTERERZTERERESERETERETERE RENT 


SOSE mm Em 


> 
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4/6.4.2.12 


AUTO STEP 





Der AU’TO-Befehl gibt nach jeder Zeileneingabe die nächste Zeilennummer vor. 
Dies ist vor allem zum Eintippen längerer Programme recht praktisch. 


Nach dem Starten der Basic-Erweiterung ist der AUTO-Befehl aktiv. Er testet bei 
jeder Eingabe, ob sie mit einer Zeilennummer beginnt. Ist dies der’Fall, wird die 
Zeilennummer um 10 erhöht, und in der nächsten Zeile als Zeilennummer vorgege- 
ben werden. Bei der Direkteingabe von Befehlen, wird so die Ausgabe von Zeilen- 
nummern durch den AUTO-Befehl vermieden. 
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Ist eine andere Schrittweite gewünscht, so kann die Schrittweite durch Eingabe von 
AUTO STEP’ geändert werden. Für die Schrittweite 100 gibt man also ’AUTO 100’ 


ein. 


Der AUTO-Befehl wird durch die Eingabe ’AUTO 0° abgeschaltet. Jede andere 
Schrittweite schaltet ihn wieder ein. 


XBASIC-Befehl AUTO STEP 


isr getadr ;Schrittweite holen 
ida #14 »Schrittweite speichern 
sta autsstep 
lda $15 
sta autostept+l ıFlag fuer 'AUTO an 

B 


ora 314 ısetzen bzw. ioeschen 
sta autoon 


rts 


autoons “by ıFlaa fuer AUTO an 
autostep: „wo :Schrittweite fuer AUTO 





Listing 6.4.2.12 


Erreicht wird die Ausgabe der nächsten Zeilennummer durch die Routine 
<AUTOEXEC>, welche von der Token-Wandelroutine aufgerufen wird, und so 
bei jeder Eingabe durchlaufen wird. Sie erledigt die gesamte Arbeit. Der AUTO-Be- 
fehl selbst legt nur die Schrittweite im Speicher ab, und setzt eine Flagge für AUTO 
ein- bzw. ausgeschaltet. 


autgexecz #200 serstes Zeichen merken 


4 
sicrom ıWandeln der normalen (64 Befehle 


#2 
ba 
#b ;Zeilenlaenge merken 


» autoon ‚AUTO an ? 








Listing 6.4.2.12-1 (Teil 1} 
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npnauto 
c’ #0 
a0 nonauto 
c9 3a 2 39H 
aldb bi ı nonauto 
alöd 18 13 ;Zeilennummer merken % neue 





berechnen 
6 #14 


autostep 


EI ha 79 80 


= 


315 


autostept| 
ergebnis sin Fliesskomma wandeln 
#22 sin ASCII wandeln 
basicron 
az Er 22; String in Tastaturpuffer 
ed putintast: 
bd 1 17 s101,x 
94 77 02 13 $277,% 
do #7 Putintast 
85 c5 Ö x Sch ;Stringlaenge als Zeichen im 
Fuffer speiche 
a390 68 3 ;Zeilennunmer zuruerkholen 
as91 85 15 E 
3393 68 
a394 85 14 
a396 a2 ff 13 nonauto: x Weiter in der Tokenroutins 
as9B A0- 





Listing 6.4.2.12-1 (Teil 2) 


4/6.4.2.13 


ROKE AD,W 





Der Befehl ROKE arbeitet genau wie der POKE-Befehl. Im Unterschied zum 
POKE-Befehl wird jedoch vor der Ausführung der gesamte Speicher auf RAM ge- 
schaltet. So können Werte auch in den RAM-Bereich von $D000 bis $DFFF abge- 
legt werden. 
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1350 5 

1351 roker jsr getadbv ihdresse und Wert holen 
idy #0 

lda pp :Speicheraufteilung retten 
pha 

sei Alles auf RAM 


er 
en 
{2} 


cn 


lda #34 

sta pp 

txa ikert speichern 

sta {$idh,y 

pla ;Speıcher wieder normal 
sta pp 

rts 


un an an canon 





Listing 6.4.2.13 


4/6.4.2.14 


DOKE AD,W 





Der Befehl DOKE arbeitet wie der POKE-Befehl. Er ermöglicht jedoch 16-Bit 
Werte gemäß der 6502-Reihenfolge in zwei aufeinanderfolgende Speicherstellen ab- 
zulegen. Eine Befehlsfolge der Form: 


POKE 251,100:POKE252,123 





kann also durch DOKE 251,31588 ersetzt werden (wegen 100+256*123=31588). 
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Bidoke: geta Adresse holen 
zund in azg bringen 


chkkom :16Bit Wert holen 
getadr 
#591 sLbA-Befehl in RAM-Routine in 


getazg+2 F aendern 

#6 serstes Byte setzen 
#14 

getazq 


#15 

getazq 

#6 :Routine wieder normal 
getazg+2 





Listing 6.4.2.14 


4/6.4.2.15 


DROKE AD,W 





Der Befehl DROKE arbeitet wie der DOKE-Befehl. Im Unterschied zum DOKE- 
Befehl wird jedoch vor der Ausführung der gesamte Speicher auf RAM geschaltet. 
So können 16-Bit Werte auch in den RAM-Bereich von $D000bis $DFFF abgelegt 
werden. 
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1399 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
401 
1402 


Listing 6.4.2.15 


; 
BRdroke: 


Ida 
ld» 
sta 
stx 
jsr 
isr 
sei 
lda 
sta 
lda 
idv 
sta 
inv 
lda 
sta 
lda 
sta 
cli 
rts 


getadr 
+14 


getadr 


#34 

[3 

#14 

#0 
{azq),y 


315 
{azg),y 
#86 

PP 


Teil 4: Software-Erstellung 


Adresse holen 
‚in arg bringen 


ıWert lesen 
salles auf RAM 
serstes Byte speichern 


zweites Ryte speichern 


:Speicher normal 
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4/6.4.2.16 


A=DREEK(AD) 





So wie PEEK die Umkehrung von POKE ist, so ist DREEK die Umkehrung von 
DROKE. DREEK schaltet den gesamten Speicher auf RAM, und liest dann einen 
16-Bit Wert aus dem Speicher. 


’ 

1413 EBdreek: chrget 

1418 klammer ;Klammerausdruck holen 

1415 adresse jin pcs. Integer wandeln 

1418 salles auf RAM schalten 

1417 #1 

1418 #334 

1417 pp 

1420 {$i4).y izweites Byte holen 

1421 sund merken 

1422 ;erstes Byte holen 

1423 {#14),y 

1424 N jin Y bringen 

1425 #36 ; ;Speicher normal 

1426 PP 

1427 i 

1428 tx Wert in Accu/Y liefern 
oO 1329 ergebnis 

1430 





Listing 6.4.2.16 
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4/6.4.2.17 


A=REEK(AD) 





REEK arbeitet wie Peek. Vor dem Lesen des Wertes wird jedoch der gesamten Spei- 
cher auf RAM geschaltet. 


A= 
chrget 

jsr klamner ;Klammerausdruck holen 

jisr adresse sin pos. Integer wandein 

sei ‚alles auf RAM schalten 

ldv #0 

lda #$34 

sta op 

ida (#14) ,y ıByte holen 

tay ıund merken 

lda #335 ‚Speicher normal 

sta pp 

cli 

1da #0 ıert in Accu/Y liefern 

imp ergebnis 














Listing 4/6.4.2.17 


4/6.4.2.18 


A=DEEK(AD) 





DEEK. arbeitet wie PEEK, jedoch mit 16-Bit-Werten. Mit Hilfe der Befehle PEEK, 
POKE, DEEK, DOKE, REEK, ROKE, DREEK und DROKE kann man im gesam- 
ten Speicher die Speicherzellen lesen oder beschreiben. Die folgende Tabelle soll 
über diese Befehle noch einmal eine Übersicht geben: 


I0 
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Speicher normal Speicher nur RAM 








Lesen Speichern Lesen Speichern 
8-Bit PEEK POKE 8-Bit REEK ROKE 
16-Bit DEEK DOKE 16-Bit DREEK DROKE 


1449 

1450 3--- XBASIC-Befehl A=DEEK(ADR 

1451 3 

1452 BBdeek: chrget 

1453 jsr klammer ;Klammerausdruck holen 

1454 jisr adresse ‚in pos. Integer wandeln 

1455 ida $14 ıAdresseim arg bringen 

1456 sta azg 

1457 ida #15 

1458 sta azg#l 

1959 idy #1 

1460 jsr getazg jzweites Byte holen 

1451 tax sund merken 

1452 dev erstes Byte holen 

1463 jisr getazg 

1453 tay sin Y bringen 

1465 txa iWert in Accu/VY liefern 
0 1466 imp ergebnis 

1467 





Listing 4/6.4.2.18 


4/6.4.2.19 
SWAP A,B 





Der Befehl SWAP vertauscht die Variableninhalte der beiden nachfolgenden Varia- 
blen. Dabei arbeitet er mit jedem Variablentyp zusammen, sowohl als einfache Va- 
riable, als auch mit Variablen aus ARRAY’s. Die einzige Bedingung ist, daß die 
Variablen vom gleichen Typ sind. Zulässige Eingaben sind also: 
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SWAP A, B: SWAP A%,B% : SWAP A$, B$ 


SWAP A,A(8) : SWAP A$ (12),B$ 





nicht aber: 


SWAP A,B : SWAP A$,B% oder ähnliche. 





Einfache Variablen werden grundsätzlich in sieben Byte gespeichert, wobei die er- 
sten beiden Byte den Variablennamen und den Typ enthalten. Die folgenden Byte 
enthalten den Variablenwert. Überflüssige Byte werden mit Null aufgefüllt. In Ar- 
ray’s werden jedoch nur die benötigten Bytes angelegt. Die sind bei REAL-Typen 
5 Byte, bei Integer zwei Byte, und bei Strings drei Byte. 


Um nicht zwischen Array’s und normalen Variablen unterscheiden zu müssen, ver- 
tauscht SWAP grundsätzlich nur die tatsächlich genutzten Bytes. So arbeitet er pro- 
blemlos auch mit gemischten Angaben. 


1471 : x ;Variable suchen 
1472 j basicron 
1477 *d ‚String-Flag 


1478 azg? 

1475 $e sinteger-Flag 

1476 azg2+i 

1477 $47 ;Variablenadrese in azg merken 
1478 a2g 

1479 #48 22 





Listing 4/6.4.2.19 (Teilt) 
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8 a azgti 
adöf 20 23 9b 1481 jsr chkkom zweite Variable suchen 
as72 a2 14 1482 idx #20 
a474 20 b& 9a 1483 jsr basicron ıvarsuch 
a477 a5 Od 1494 Ida #+d :String-Flag vergleichen 
a479 c5 fd 1485 cnp arg? 
a47b dü 06 1485 bne typerr2 
a4?d a5 0e 1487 ida $e ıInteger-Flag vergleichen 
aa7f c5 fe 1488 cap azg2+l 
addt fü 03 1489 bea tyeo 
a483 dc 11 94 1490 typerri: jap typerr : Typen verschieden 
3486 35 Od 1491 typak: ida #*d String 7 
a488 dü 07 1492 bne snapstring 
adda a5 Öe 1493 ida $e ;iInteger ? 
a48c dü 08 1494 bne swapint 
adde al 04 1495 lay #4 5 Byte fuer REAL 
a490 2c 1495 bit 
a491 a0 02 1497 swapstring:ldy #2 ;3 Byte fuer String 
a493 2c 1498 bit 
a9 al ol 1499 swapint: idv #1 ı? Byte fuer Integer 
3496 bi fh 1500  swapit: lds dazg},v ‚Bytes vertauschen 
ad98 aa 1501 tax 
a9939 bi 47 1302 Ida (#47),v 
a49b 91 fh 15053 sta tazg),v 
a49d 8a 1504 txa 
a39e 91 47 1505 sta {E47} ,v 
adal 88 1506 dey :bis alle Bytes getauscht 


swapit 


Listing 4/6.4.2.19 (Teil 2) 


4/6.4.2.20 


SETDATNR X 





Wie bei dem Befehl QLOAD bereits erwähnt wurde, arbeiten verschiedene Befehle 
mit der OPEN-Routine des Betriebssystems. Diese benötigt eine logische Dateinum- 
mer, welche festgelegt werden muß. Für die XBASIC-Version 1.1 wurde die Nummer 
80 gewählt, da diese praktisch nie benutzt wird. Sollte dennoch einmal ein Konflikt 
mit einem Programm auftreten, so kann man die interne Dateinummer auch än- 
dern, indem man den Befehl ’SETDATNR Dateinummer’ eingibt. 
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interne 


14 


adad 20 33 9b 1515 
a437 d3e 
adaa &0 


adab 50 


Listing 4/6.4.2.20 


4/6.4.2.21 


DIR MASKE$ 


Teil 4: Software-Erstellung 


:Standard Dateinummer fuer 


:Dateinummer holen 


tx dateinr 


‚ dateinrst :log. Dateinummer 








Der DIR-Befehl zeigt das Inhaltsverzeichnis der Diskette an. Erreicht wird dies, in- 
dem der Diskettenstation signalisiert wird, daß man das Inhaltsverzeichnis in den 
Speicher laden möchte. Statt den Inhalt zu laden, wird er jedoch nur eingelesen und 


angezeigt. 


Als Dateiname wird der String MASKES$ angegeben, so daß man sich gezielte Infor- 


mationen holen kann: 





Beispiel: 


DIR”’$” zeigt das gesamte Inhaltsverzeichnis 
DIR”’$*=P’” zeigt alle Programmdateien 


DIR’$*=S” zeigt sequentiellen Dateien 

DIR”’ST”’ zeigt alle Dateien, die mit ’T’ beginnen, 

DIR”’$ES*=U’ zeigt alle Dateien, die mit ’ES’ beginnen 
und vom Typ ’USR’ sind. 
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02 BE ERS EINETBAP VERS EUREREERRSEISE SEES AUFTERAE HERNE BE BER 
i 
1323 3 = 
adac 20 Ob 9b 1524 BBdir: isr fraevl }String MASKEF holen 
adaf a? 04 1525 idx #4 
abi ?ü b& 9a 1526 jsr basicrom 
adb4 98 1527 tva sLaenge in Acuu 
a4b3 as 22 1528 id» $22 Als Filenamen setzen 
a4b7 a4 23 1527 idy $23 
a4b? 20 06 al 1530 jsr filenane 
adbe ad ab a4 151 ida dateinr ı0PEN dateinr,B,0,MASKE$ 
aabf az 08 ı ldx #8 
adct al 00 t 1dy #0 
adcyh 20 üd a3 15 jsr readfileop 
adch 20 fc a2 1535 isr basin ıhdresse veberlesen 
adc9 20 fr a2 1536 isr basin 
adce 20 fc a2 1537 dirloop: jsr basin ıLink-Pointer ueberlesen 
aact 20 fc a2 1538 jsr basin 
add2 20 fc a2 1339 jsr basin ‚Zeilennummer lesen 
a4d5 a8 1540 tay 
ads 20 fc a2 1541 jsr basin 
a4d9 ab 90 1542 ldx status ;Diskstatus 
addb dü le 1543 bne dirende 
a4dd ZU fe a4 1544 jsr asciiout ıZeilennummer ausgeben 
adel a9 20 1545 1da #32 ıLeerzeichen ausgeben 
ade? ZU.01 a3 1546 jisr basout 
ades 20 fc a2 1547 dirloop2: jsr basin 
aded c9 ü0 1548 cap 80 
adea FO 0& 1549 beq direol ;Zeilenende 
ader 20 Gl as 1550 isr basout 
adetf Ac e5 a4 1551 jap dirlocpz 
a4t2 a9 Od 1552 direol: Ida #13 jneue Zeile 
adfa 20 01 33 15353 jsr basaut 
a4t7 a5 90 1554 lda status . ıbiskettenstatus 
a449 #0 di 1555 beq dirioop weiter 
adtb 4c Il as 1556 dirender jimp readfileclco ıCLOSE dateinr 
1557 
adfe 20 19 al 1558 asciiaut: jsr ergebnis sin Fliesskomma wandeln 
asöl a2 1 1359 id» #22 sin ASEII wandeln 
as03 20 b& 9a 1560 ısr basicrom 
as0s a0 00 1561 idy #U ‚String ausgeben 
a508 b9 01 01 15982 asciioutput:lda #101,y 
es0b FO 06 1563 beq asciiend 
as0d 20 O1 a3 1564 isr basout 
asio c8 1585 iny 
astt dü #5 1366 bne asciiaoutput 





aatz ascilend: rts 





Listing 4/6.4.2.21 
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4/6.4.2.22 


A$=ST$ 





Mit Hilfe des Befehls ST$ kann man den Fehlerkanal der Floppy auslesen. Der Ka- 
nal 15 der Diskettenstation wird geöffnet, und die Zeichenkette ausgelesen. Die Zei- 
chen werden zunächst in unseren Pufferbereich <mem> zwischengespeichert, da- 
mit die Länge der Zeichenkette festgestellt werden kann. Dann wird ein String der 
nun bekannten Länge angelegt, und die Zeichen in den String geschrieben. 


tilename ;Dateinamen setzen 
dateinr OPEN dateinr ,8,15 
x #8 
#15 
readfileop 
yvohstt 


basin ‚String einlesen 
men,y und zwischenspeichern 
status ‚Diskstatus 
getst 
;laenge merken 


w 
nen 
Pe 


reservstr 


Pr 


saus Puffer in String schreiben 


Der) 


15390 mem,y 
1591 t#&2) ,v 
1592 
1593 putst ‚String als Ergebnis lıefern 
1594 string 
3 1595 readfileclo :Datei schliessen 
1595 chrget 
1397 


mm mm mon 
aaa 


WMOnamTmüueen 


m m 
ALmUnenenencnenenuno 
er 

= 





Listing 4/6.4.2.22 
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Beispiel: 
PRINT ST$ 


00, OK, 00, 00 
READY. 





4/6.4.2.23 


COLLECT 








Der Befehl COLLECT dient dem ’aufräumen’ der Diskette. Er ersetzt die Befehls- 
folge 





OPEN1,8,15,/’V”:CLOSE1 








Collect ‚schreibt zunächst den Befehl in den Puffer ab <mem>. Dann wird der 
Accu mit der Befehlslänge geladen. Ab <sendmem> wird nun der Befehlskanal 
der Floppy geöffnet, und die Zeichenkette ab <mem> als Befehl gesendet. Wir 
werden <sendmem> noch für andere Befehle benutzen. Danach wird der Befehls- 
kanal wieder geschlossen. 
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IC-Betehl 













Becollect: 1da #'% ıDPEN dateinr,8,15,"v" 
sta mem Dateiname 
Ida #1 ii Eyte lang 
sendmem: idx #imem 

idy #>nenm 

isr filenane 

ida dateinr 

Idx #8 

idy #15 

stx mem Setze Fileparameter 

ldx #26 

jsr basicrom 

ldx #30 open 

jsr basicrom 

lda dateinr ıclose 

idx #52 
basierom 






Pr 
Sancı 


in on enenenencı 
ey 


ı wm mm m m m 
zo m 


E3 
an can cnencnen 






SEN he 


m 








Berecedurooencaaenc« 


“2m 





mom 





Listing 4/6.4.2.23 


4/6.4.2.24 


INITIALISE 





INITIALISE initialisiert die Diskettenstation d.h., die Block-Belegungstabelle der 
Diskette wird in den Speicher der Diskettenstation gelesen. INITIALISE entspricht 
der Befehlsfolge: 


OPEN1,8,15,’":CLOSE1 





Die Routine schreibt lediglich den Befehl in den Puffer ab <mem> und lädt den 
Accu mit der Befehlslänge. Alles weitere übernimmt, wie beschrieben, die Routinen 
<sendmem> des Befehls COLLECT. 
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1621 ; 
1622 BBinitial: " 1’ als Datinanen 


3 1827 
1524 
1625 bne sendmen weiter bei COLLEET 
1625 





Listing 4/6.4.2.24 


4/6.4.2.25 


HEADER FORM$ 





Zum Formatieren von Disketten kann der Befehl HEADER benutzt werden. Er bie- 
tet alle Möglichkeiten, welche Sie vom NEW-Befehl der Diskettenstation gewohnt 
sind. HEADER FORMS$ ersetzt nämlich nur die Befehlsfolge 


OPEN1,8,15/‘N:””+FORM$:CLOSEI 


Beispiel: 

HEADER ”TEST,ID” formatiert eine neue Diskette mit 
Namen "TEST” und der Kennung ID” 

HEADER ”TEST’” löscht Inhaltsverzeichnis und BAM . 
und gibt der Diskette den Namen 
"TEST" 
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Die Routine des Befehl hat nur die Aufgabe den Akkumulator mit dem Befehlsna- 
men (’N’) zu laden. Die Ausführung wird dann bei dem Befehl SCRATCH vorge- 
nommen, da sich dieser nur im Befehlsnamen von HEADER unterscheidet. 


a57b a9 4e 
as7d 2c 63 bit 





Listing 4/6.4.2.25 


4/6.4.2.26 


SCRATCH FILES$ 





SCRATCH entspricht dem SCRATCH-Befehl der Diskettenstation. Mit ihm kön- 
nen Dateien auf der Diskette gelöscht werden. ’°SRATCH FILES$’? ersetzt also die 
Befehlsfolge: 





OPEN1,8,15,’S:””+FILES$:CLOSE1 


Beispiel: 
SCRATCH "”TEST” löscht die Datei "TEST” 
SCRATCH "Ar" löscht alle mit ’A' beginnenden Dateien 
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Teil 4: Software-Erstellung 


Die Routine schreibt zunächst den Befehlsnamen in den Puffer ab <mem>. Dies 
kann der Name ’S:’ sein, oder aber der Name ’N?, falls der Einsprung in die Rou- 
tine vom Befehl HEADER erfolgt. Dann wird der nachfolgende String geholt, und 
in dem Puffer an den Befehlsnamen angehängt. Die Routine <sendmem> des 
COLLECT-Befehl übernimmt wieder die Übermittlung des so gewonnenen Befehls 


an die Diskettenstation. 


; 
BBscratch: a# »Befehl 


‚String 
basicrom 
iLaenge 
addstring: (22) ,y String 
men+Z,y 


addstring 
iLaenge 


#2 plus 2 
sendmen weiter 


Listing 4/6.4.2.26 


4/6.4.2.27 


RENAME A$ TO N$ 


FILES$ holen 


in Accu 


in ment? uebertragen 


des Strings 


ist Laenge des Befehls 
bei COLLEET 








Das Umbenennen von Dateien ermöglicht der Befehl RENAME. Er hat folgenden 


Aufbau: 
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RENAME alter Name TO neuer Name 
a syn 











Beispiel: 
RENAME ”test”’ TO ”probe” benennt die Datei ”test” in ”probe’” um. 





Die entsprechende Befehlsfolge im Standard-Basic des C 64 lautet: 


OPEN1,8,15/’R:”+N$+”"="+A$:CLOSE1 





in unserem Beispiel also: 


OPEN1,8,15,’R:PROBE=TEST”:CLOSE1 





Auch die Routine des RENAME-Befehls setzt den Befehlsstring im Puffer 
<mem> zusammen. Sie beginnt mit dem Befehlsnamen ’R?’, welcher ab <mem> 
gespeichert wird. Dann wird der erste String eingelesen, und ab <mem> +40 zwi- 
schengespeichert. Dies ist nötig, da wir die Reihenfolge der Dateinamen für den 
RENAME-Befehl der Diskettenstation umdrehen müssen. 
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Als nächstes wird überprüft, ob die Zeichenketten durch den TO-Befehl abgetrennt 
sind. Ist dies der Fall, kann der zweite String eingelesen, und an den Befehlsnamen 
angehängt werden. Dann muß nur noch das Zeichen ’=", sowie der zwischengespei- 
cherte, erste Name angehängt werden. Die Länge des erzeugten Befehls wird in den 
Akkumulator geladen, und das ganze wieder der Routine <sendmem> übergeben. 








































a? :Befehi 
aSsa3 9d 3c 03 165 sta men 
asab a9 Ja 1550 Ida #': 
asaB Bd Id OF 1641 sta ment! 
asab 20 Ob 9b 1562 isr frmevi String A$ holen 
aSae a2 04 1663 Idı #4 
a5b0 20 b& 9a 1664 jsr basicron 
asb3 84 fd 1665 sty azg2 sLaenge in azg2 
asb5 a9 00 1666 lda #0 sab mem+42 String zwischenspeichern 
asb7 99 66 03 1667 sta memt42,y ;und mit Null abschliessen 
a5ba 88 1558 dey 
asbb bl 22 1569 savestring:lda ($22),y 
asbd 99 56 03 1870 sta mem+42,y 
a5ch 88 1671 dey 
asct 10 #8 1672 bpl savestring 
aSch a9 a4 1873 Ida #154 sauf 'TO' testen 
Rasch a2 00 1674 ldx #0 
a5c7 20 bb 9a 1675 jsr basicrom 
aSca 20 Ob 9b 1676 isr fraevi String N# holen 
aäcd a2 04 1877 idy #4 
asct 20 bb 9a 1678 jsr basicrom 
aSd2 84 fe 1679 sty azg2+1 " :Laenge in azg?+i 
asd4 89 1680 dey ‚String an Befehl 'r:' anhaengen 
aSd5 bi 22 1681 addstringl:lda (#22) ,y 5 
a5d7 99 Je 03 1682 j 
asda 88 1593 
asdb 10 #8 1084 bpl addstringl 
1885 
asdd a6 fe 1536 ldx aza2+t ;'='" anhaengen 
asdf a9 Id 1487 lda #'= 
asel 94 Ie 05 1588 sts menmt?,x 
1539 
aSed au #f 1890 idy #884 ersten String anhaengen 
ayeb’eß 1591 addstringä:in« 
age? ch 1592 iny 
ased b9 && 02 1493 ida mem+42,y 
aseb 94 Te 03 1694 sta ment2,x 
asee dü fö 1695 bre addstrina2 
1698 
asfo 18 1897 eic ;Befehlslaenge ist Stringilaege I & 2 
asti a9 03 1698 ida #3 plus 3 Byte fuer 'r:' bzw. '=' 
aäts 65 fd 1899 ade arg? 
ast5 63 fe 1709 ade azg2+tl 
7Ac 50 a5 17061 jap sendwen weiter bei COLLEGCT ” 
1702 








Listing 4/4.6.2.27 
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4/6.4.2.28 


PAUSE TIME 





Der Pause-Befehl wurde aus der Basic-Erweiterung des C 128 übernommen, und an 
unsere Erweiterung angepaßt. Er hält den Computer für eine Zeit zwischen 1/100 
Sekunde und 655.35 Sekunden (ca. 10 Minuten und 55 Sekunden) an. Ein Ausstieg 
aus der Funktion ist mit der STOP-Iaste möglich. Eine genaue Beschreibung des 
Befehls finden Sie in den Kapiteln 4/6.5.3 und 4/6.5.3.1. 


Beispiel: 
PAUSE 105 wartet 10,5 Sekunden 


XBASIC-Befehl FAUSE TIME 
1705 5 
» 1706 BBpause: v Ausdruck holen 
;Typ testen 


:Typfehler 
1710 Y ® <fk mit I00 multiplizieren 
ir y #5#k100 
1712 #50 
1713 basicron 
1714 adresse sund in INTEGER wandeln 
1715 49950 ;Teilrate A setzen 
1716 cia2+4 
1717 #>9850 
1718 cia2+3 
1719 +14 ı{Teilrate B setzen 
1720 cia2t6 
1721 +15 
1722 cia2+t? 
1723 cia2+i4 ıKontrollreg. ä 
1724 #% 11010061 
1725 #400010061 E 





Listing 4/6.4.2.28 (Teilt) 
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pauloop: 
1734 
1735 
a 1756 
1737 


1738 pauend: 


Listing 4/6.4.2.28 (Teil?) 


4/6.4.2.29 
A$=TIME X 


cia2+1l4 
cia?+15 
#211010061 
#201011001 
cia?+15 


cia2+13 
#710 
pauend 


ı #48 


basicrom 
pauloop 


Teil 4: Software-Erstellung 





;Eontrollreg, B 


;interrupt-Flag-Reg. 


ıSTOP-Taste abfragen 


jwarten 





Die Funktion TIME wurde ebenfalls aus der C 128 Erweiterung übernommen. Sie 
dient dem Auslesen einer Echtzeituhr. Von dieser Uhr ist jeweils eine in CIAl und 
eine in CIA2 vorhanden. TIMEI liest die Uhr aus CIAl, und TIME2 die Uhr aus 
CIA2. Eine genaue Beschreibung des Befehls finden Sie in den Kapiteln 4/6.5.3 und 


4/6.5.3.3. 


Beispiel: 


PRINT TIME 1 12:34:33:8 
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1743 3 chrget tührnumser holen 
17438 3 gethyte 
1745 x minus! 
1746 x #2 sührnumner = 
1747 timeerr snein 
1748 :Uhrnummer +$de 
1799 
1750 #sdc 
175 azgti sazg auf CiA-Basis 
1752 #0 
1753 azg 
1754 a2g92 ;Zaekler auf Null 
1755 #10 ;10 Zeichen 
1755 3 reservstr ‚String einrichten 
757 #1 
1758 ta2g),y ;Stunden 
759 sBCD-Arithmetik 
1760 :Flag retten 
1761 #%A0l 11111 sohne PM-Flag 
1762 #512 ‚12 Uhr 
1763 tine? 
1754 #0 ‚12 Uhr AM = 0 Uhr 
1765 ;Flag holen 
1766 times sAM s 
1757 
768 ##12 ;+ 12 Stunden 
1769 ;BCD aus 
1770 timeud i-> String 
77 idy #10 
tazg),y :Minuten 
timeud ı-> String 
#9 
taza)ıy B 
timeud 5 
#8 
tazg),y ‚1/10 Sekunden 
timeu? ı-> String 
string 


Sekunden 
-} String 


timeul: ;High-Nıbble -> String 
‚4 Bit nach rechts 
timeu?: ıLow-Nibble -> String 


timeus: sAccu -> String 


timend: :Byte eintragen 
timeul ;High Nibble eintragen 


timeu? Low Nibble eintragen 
#: ;': eintragen 
timeus 





Listing 4/6.4.2.29 
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4/4.4.2.30 


SETTIME NR,ZEIT$ 





Mit dem Befehl SETTIME kann eine der Uhren oder der Alarmzeiten in den CIA- 
Bausteinen gestellt werden. Auch der SETTIME-Befehl stammt aus der C 
128-Erweiterung, und kann in den Kapiteln 4/6.5.3 und 4/6.5.3.2 nachgelesen wer- 
den. 


NR ist eine Nummer, welche die angesprochene Uhr identifiziert. Es gilt folgende 
Zuordnung: 


Uhr in CIA1 
Uhr in CIA2 


Alarmzeit in CIA1 
Alarmzeit in CIA2 








Zeit$ ist eine Zeichenreihe aus 10 Zeichen im Format ’’"HH:MM:SS:Z”, wobei HH 
die Stunden, MM die Minuten, SS die Sekunden und Z die Zehntelsekunden be- 
schreibt. 


Beispiel: 


Uhr in CIA2 auf 13 Uhr 34 Minuten und 5 Sekunden setzen: 
SETTIME 27°13:34:05:0” 
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377- XBASIC-Betenl SETTINE N 


1804 getbyte ;ührnummer holen 
1805 x ıi abziehen 
1805 sta arg? sElockar. (0,1,2,5) 
1907 px #4 ihr, «=4 ? 
1808 timeerr sein, ERROR 
1809 chkkon ;Komna testen 
1810 3 fraevi YZeit-String holen 
1811 x #4 
1812 jer basicrom 
1B13 cpy #10 ;10 Zeichen ? 
1814 beqg settinel ‚DK 
1815 timeerr: jmp zugross ;Fehler 
1818 
1817 settimei: Ida #0 
1318 sta azg2+l ;Zaehler=0 
1819 "  lsr azg2 ;Elocknr: O-BIT in Larry 
1320 Ida #0 ;Zeiger auf LIA 
1821 sta arg 
1922 ade #$dc ;High-Ryte von CIA 
1823 sta azgtl 
1924 ldy #14 :Kontrollreg. A 
1825 ida (azg),y 
1825 ora #410000000 ;50H2-Flag setzen 
1827 sta lazg),y 
1828 iny 
1829 lda azg2 sClocknr /2 
19370 lsr +0-Bit in Carry 
1831 php ‚Carry sichern 
1832 ida ıKontrollreg. B 
1833 rol 
1854 plp - ;Carry von oben 
35 ror 
sta lazg),y sAlarmzeit / Uhrzeit 
jsr ausw? ;2 Ziffern ausw. 
sed ;BCD-Arithmetik 
cmp #$12 ‚12 Uhr 
beg sett2 ıPM-Flag autom 
bee sett? ;vor 12 Uhr 
sbe ##12 ;12 abziehen 
ora #410000006 ;FN-Flag 
cld ;BED aus 
idy #11 
sta lazg),y 
jsr ausw? 
ldy #10 
sta (azg!,y ‚Minuten setzen 
jsr ausw? :2 Ziffern ausw. 
idy #9 
sta lazg),y ;Sekunden setzen 
lda t$22),y ;1/10 Sekunden 
and #%f 
dey setzen 
sta tazg},y 








tunden setzen 
7 


ı5 
‚2 Ziffern ausw. 





Listing 4/6.4.2.30 (Teili) 
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azg2+l 
122) ,y 


mem 
(822) 1y 
223 

mem 

men 
(822) ,y 
#432 
ausw2i 


zugross 


ausw2l: 


Listing 4/4.6.2.30 (Teil2) 


4/6.4.2.31 


SETEOL X 


Teil 4: Software-Erstellung 


2 Ziffern & ':' 
inaechstes Zeichen 
3 Bit nach links 


imerken 


inaechstes Zeichen 
;4 Bit ausblenden 
smit 1. Ziffer odern 
‚merken 


jnaechstes Zeichen 
‚0# 
;Stack bereinigen 


‚Fehler 


Ergebnis in Accu 


;laehler merken 








Der Befehl SETEOL X legt das EOL-Zeichen für den Befehl LINEINPUT# im 
Speicher ab. Auf die Bedeutung dieses Zeichens wird bei dem Befehl LINEINPUT# 
eingegangen. Als Standardzeichen ist das Zeichen 13 (= <RETURN>) abgelegt. 


Utilities 
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BBseteol: 


eolbyte: 


Listing 4/6.4.2.31 


4/6.4.2.32 


LINEINPUT A$ 


jsr getbyte 
stx eolbyte 
rts 


„by eoist 


Teil 4: Software-Erstellung 


‚Standard End of Line 


sEOL holen 


;EDL-Byte 








LINEINPUT liest maximal 80 Zeichen von der Tastatur ein. Dabei wird jedes Zei- 
chen akzeptiert, also auch die Zeichen ’’ und ’:’, welche von dem normalen INPUT- 
Befehl zurückgewiesen werden. Die Zeichen werden in den Puffer <inpuffer> ab- 
gelegt. Dieser Puffer befindet sich am Ende der Basicerweiterung, also unter den 


Basic-ROM. 


Das Einlesen wird beendet, wenn die RETURN-Iaste gedrückt wurde, oder die ma- 
ximale Zeichenzahl überschritten wurde. 


Wurde die Eingabe mit <RETURN> abgeschlossen, wird ein String mit der erfor- 
derlichen Länge angelegt, und die Zeichen in diesen String übertragen. Die Adresse 
des Strings wird der angegebenen Variablen übergeben. 


70 
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XBASIE-Befehl LINEINPUT 


BRiineinput:lda #80 79 Zeichen 
sta mem 
ida #13 ;EOL ist <RETURN> 
sta memt+l 

dolineinput:idx #20 Variable suchen 
jsr basirrom 
bit #d ;Typ testen 
bmi typok3 
jmp typerr ;Typfehler 
Idy #0 :Zeichenashler 
isr basin jein Zeichen lesen 
sta inpuffer,y sund merken 
cap mem+! sEOL 7 
beq eolfound ja 
iny ;Zaehlertl 
cpy mem max. Anzahl ueberschritten 
bne linein inein 
ldx #25 ; String too lung 
imp fehler 


5, 


eolfound: tya ‚String anlegen 
sta azg 
jsr reservstr 
ldy azg 
dey 
setstr: ida inpuffer,y sleichen in String uebertragen 
sta ($62),y 
dey 
bpl setstr bis alle Zeichen uebertragen 
iny ;Y=0 
ida azg . ıLaenge in Variable vebertragen 
sta ($47),y 
iny 
lda $62 
sta ($47),y Adresse in Variable uebertragen 
iny 
lda #63 
sta {$47),y 
rts 





Listing 4/6.4.2.32 
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4/6.4.2.33 


LINEINPUT# D,A$ 





Der LINEINPUT#-Befehl liest eine Zeichenkette von einem beliebigen Gerät. Da- 
bei kann das Ende der Zeichenketten durch ein beliebiges Zeichen markiert sein. Im 
allgemeinen ist dies das Zeichen 13 (= <RETURN>). Werden die Zeichenketten 
durch ein anderes Zeichen, z.B. Null, abgeschlossen, so wird der 
LINEINPUT#-Befehl mit Hilfe des Befehls SETEOL angepaßt. In unserem Bei- 
spiel müßte man also ’°SETEOL 0’ eingeben. 


Damit die Zeichenketten in String’s passen, dürfen sie die maximale Länge von 255 
Zeichen nicht überschreiten. 


Die Routine des LINEINPUT#-Befehls leitet die Eingabe auf die angegebene Datei 
um, und ruft dann den LINEINPUT-Befehl auf. Hat dieser seine Aufgabe beendet, 
wird die Eingabe wieder auf ’Normal’ geschaltet. 
























sta nem 
Ida eolbyte sEQL ist EOLBYTE 
sta memti 
isr getbyte :lcg. Dateinr, holen 
stx xnem 
ide #34 ;Eingsbe aus Datei 
jisr basicrom 
bes ckerr ;Fehler 
isr chkkon sauf Komma testen 
3sr dolineinput ıLINEINPUT-Routine 
ldx #38 ‚Eingabe normal 
imp basicrom 

ekerr: tax ‚Fehler melden 





inpuffer: 





Listing 4/6.4.2.33 
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6.4 Basic-Erweiterungen beim C64 Teil 4: Software-Erstellung 


4/6.4.3.3 


Basic-Loader der Version 1.2 





Auch für die XBASIC-Version 1.2 wird natürlich wieder ein Basic-Loader angege- 
ben. Dennoch haben Sie es hier etwas schwerer. Durch die Änderung der Adreßlage 
der Basic-Erweiterung stimmt von den Basic-Loadern der vorangegangenen Versio- 
nen leider nichts mehr, was es nötig macht, den Basic-Loader vollständig neu einzu- 
geben. Leider ließ sich dies nicht vermeiden. Dennoch lohnt sich die Arbeit, da man 
mit den Grafikbefehlen viele Anwendungen erschließt, die sonst nur schwer zugäng- 
lich sind. 


Wenn Sie sich bisher nicht entschließen konnten, den Quelltext einzugeben, ist jetzt 
noch einmal Gelegenheit dazu, denn dann trifft Sie das Ändern der Adreßlagen nie 
mehr. Sie brauchen dann nur neu zu assemblieren, was Sie für die zusätzlichen Be- 
fehle ohnehin machen müßten. 


REM XRASIC 1.2 DATA LOADER »984 


D >80 
3 2=2049:PRINT"CELRPENDZEILE:" 2, :0PEN1,8,15,"10":OPEN2,8,2,"XBASIC 1.2,P,W" 33291 
PRINT#Z,CHRSSLISCHRS(B); >831 
READ 14: IFZ$="--"THENCLOSE2SCLOSEL:END >1007 
BU=0:FOR Ist TO 63 STEP 2 >928 
WS=MIDS (28, 1,2): IFWS="--"THENAB= 1: 1=63:80709 
GOBUB2O:SU-SU+WLPRINTAZ,CHRSEW) 5 >1297 
NEXT 14 
WE=MIDS (24 ,LEN(25) 3,2) :60SUB20:PS=W#256 
WS=RIGHTS(Z$,2):608UB20:PS=W+HPS >1378 
IFSUC)PS THEN PRINTSPRINT"EEHLER IN ZEILE: "2 
3 IFABSOTHENCLOSE2:CLOSEL:END 3735 
7=1+32: PRINTZ,:60T05 >944 
W=tASC WS) -48+7 8 ASCIWEIISTI)RI6 »1727 
WS=RIGHTS (HS, 2) 589 
WEWHASL (HS -ABr7E HEY" 9") 1519 
RETURN >37 
{ >82 
DATAOBOSCSO7IESZICTZETLNGOOOOAFZTZAZORBSFEBAFCAFOOA2FIBBSFDBAFEA224AOHOODIA 
DATABLFBIIFDEBDOFFEGFCESFECADOF24C009BAT378501207698201798A91DAOIF201289 
DATAZDEAAZFBIAACBGESAFSABDIBDOADOODD2IFLEDOODDAICLBDBBO2A900R27885371095 
DATABGSBAFAFAZIBEDIBOSBELFOSAFZIAZFABDOLOIBEOEOTAFALA2IEBDOHOSBEO7030897 
DATAA971A2FFBDOBOSBEOFOFAFASA2IFBDOROSBEOBOSAFIFA2IBBDOZOSBEOSOSATOOORSN 
DATABDFIGZSDFBO3L07BASOLABALLOAFDOAOOOBSFLBAFBAFTZBSOLBIFBALFBEBDOFFLLCT 
DATAESFELCADOFASBBSCISBAOASCLABAITSEBSOLZOOBAAGBBSOLACHIAAHBBAABIBABAIOEIF 
DATATFSDODDDACODDDSOLDZOBEF&20ELFFDOL1SAZFBIA2O1SFDZO179BZOASFDZOIBESOFAS 
DATA2017986C02A04C72FEBDBE7F20E7780848A9368501682B60BDHAFFABENBITFTHBODDA 
DATAA9378501ADBBFFAGU2LUEADLBIFBCE01608622E6014CA5A457524F4EA72053540D0E 











Listing 4/6.4.3.3 (Teil 1) 
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2349 DATASZ494E474C45CE424144204348415220494E20535452494ELTELOLACTTAAEKOLOABT >4971 
2401 DATA2OSEADLAOLGOELOLZOFTRECHULGDELOLZOFARECHOLEOELOLZOFDAECHOIGOEGOLOEFB >3905 
2433 DATAZOF7B7CHO1A0E601209EB7LEO150E601ZOBAAN2OFTBTLEOLSOESOIZGEBBTLBOLOFIB 3993 
2465 DATASOE601207DBALKOLGOERO1ZÜCABATGOLGOEGOLZOFIRECHOLGOOOFEREZSBSBLBTOEFE >3924 
2497 DATAFOBSABBCSAABESFFABESASREIZASBABODLHDTBASRIFFELFFEFFFEZFFÜSFFEBFFITEB 33297 
25329 DATACBFFLEFFDIFF2B9AGAAFEOFF27BAOBBLZABAGAE2LIERAIBLFFFFEFFFFFFFFFFFFATBA 33626 
2561 DATAFFFFFFFFFFFFFFEFFFFFFFFFEFFFFFFFFFFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFIFEO 32854 
2593 DATAFFFEFFFFEFFFFFEFFFFEFFFEFFFFFEEFFFFFFFEFFEFFFFFFFFFFFFFFFFFFFFFFLFEO >2BB6 
2625 DATAFFFFFFFFFFFEFFFFFFEFFFEFFFFFFFFFFFRFFFFEFFFFFFFFFFFFO6GO120BFASEGICER 33082 
2657 DATAOLDOSIAOFFAIBABSFBAFFABSFLAFOLBSFOCACBEBBIFBFOOTDDOOOZDOLCFOFSAALA0R 33492 
2689 DATAO2A9D2990002CBASFN990002CBBDO002990002F04AEBLBDOFAAGO2BBEAFDLBBLIOTF 3818 
2721 DATAFBDOFB3BIBHSFBISFBAFVGABSSFLBSFOBLIFBDOCHERBSOZEDOOGZFOLBCHBZFOL71372 3884 
27533 DATAC9SFFO13CFZ2DOFBESBDOOOZFOOICTZZDOFGEBBEOZDOBCA4OBAFOOFIFDOLEOFBLOBS >4032 
2785 DATAA602EB184905850BDOCALOBB280041542800484558240044454300494E4B45590942 5053 
2817 DATA2400494E5354522800535452494E4724280053504143452628004452454548000722 >5290 
2849 DATA5245454B0044454548005354240054494D450054455354522800544553542800075C 35347 
2881 DATA434C53004F4C4443484152004336340058424153494300494E53540096424B4107E6 35303 
2913 DATAS2004F4CA40044524F4B4500524F4R4500444F4845004155A4003357415000440783 5245 
2945 DATA495200519300454F4CAL45435400494541444552004449320052454E414D45000705 35364 
2977 DATASS43524154434800494E4954494140495345005345544411520050915553450008B4 >5274 
3009 DATASS455454494D4500534554434FACOOACAFAEASBSOOACATHEHSBAOOHASZALSTADOBER 35539 
3041 DATAAF44450042B044455200494E4B0050415045520050454E0047524146910047520820 35439 
3073 DATA41464F464600475241469000405540544991004DAF564552004D4F56450050400896 5443 
3105 DATA4FS4520050ACAFS4004C494E4552004C494E45004652414D4500424F5B00434907B6 >3336 
3137 DATAS243404500414E47404500434F4C424CAFA34BOOGZALAFASABOOOOFFFFFFFFFFOBSE 35129 
3169 DATAFFFEFFFFFFFFFFEFFFFEFFEFFFREFFFEFFFFFFFFFEFFFFFFEFFFFEFFEFFFFFFFIFEO 32950 
3201 DATAFFFFFFEFFFFFFFFFFFFFFFFFFFFFFFFREFFFFFFFFFFFFFFFFREFEREFFFFFFEFFIREO 22982 
3233 DATAFFFFFFFFFFFFFEFFFFEFFERFFFFEFFFFFFFFFRFFFERFFEFFEFFFFFEFFEFFFFFFIFEO 33014 
3265 DATAFFFFFFFFFFFFFFFFRFFFEFFFFFFFFEFFEFFEFFFEFFFEFFFFFEFFFFFFFFFFFFFFIFEO )3046 
3297 DATAFFFEFFFFFFFFFFFFFFFFFFFFFFRFFRFFFFFFFFFFFFFFFFFEFFFFFFFFFEFFFFFFIFEO 3078 
3329 DATAFFFFFFFFFFFFFFFFFFRFFFFFFFFFRFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFFFFFIFEO 32854 
3361 DATAFFEFFFFFFFFEFFFFFFFFFFEEFFFEFFFFFFFFFFFEFEFFFFFFEFFFFFFFFFFFFFFFIFEO >2886 
3393 DATAFFFFFFFFFEFFFFFFFFEFFEFFFEFEFFFFFFFEFEFEFFFREFFFFFFFFFEFFFFFFFFFIFEO 32918 
3425 DATAFFFFFEFFFFFFEFEFFERFFRFFFFEFRFFFRRFFFFFFFRFFEEFFFFFFFFFFEFFFFFFFLFEO 22950 
3457 DATAFFFFFFFEFEFFFFFEFFFFFFEFFEFFFFFFFFFFEFRFFFEEFFFFFFFFEEFFFFFRFEFIFEO 32982 
3489 DATAFFFFFFFFFFFFFFO7ABOOOOOOTBUEFASSIZILALLFAZBEALGAAIFSAIDSAZECAZSOLLFO >3788 
3521 DATAA237AS57A574AS4ERABLATIBAB4LABASESTSIBEIFOFFITESFFSSAOCCHFIOASDSL2I0 34008 
3553 DATAA4ETAA7SAAIAASEAASSERSGIAGBSAGOOOODBAHBBAGACASDERSSAATEAATTAABB2L3SE >3341 
3585 DATAABDIABIBASFTABODAIO2AFZLAI7IAPOTAAAAAILOAFFAAALCAAT7ABTDABSBACSTLITB 33405 
3617 DATAACHZADFSADSDAFACHIALBSERAEFFFFFFFFFFFEFFEFFFFFFFEFFFEFFFFFFFFFFFLB2O >3181 
3649 DATAFFFFFFFEEFFEFFFFEFFFFFFFFEFFFEFFFFRFFFEFFFFEFFEFFFFFFFFFFFFFFFEFIFEO 32918 
3681 DATAFFFFFFFFFFFEFFFFFFFFEFFEFFFFFFEFEFFFFFFFFFEFFFFRFFFFFFFFFFEFFFFFIFEO 32950 
3713 DATAFFFFFFFEFFEFFFFFFEFFFFEFFRFFFEFFFFFFFFFFEFFFFFFFEEFFFFFFEFFFFFFFIFEO 22982 
3745 DATAFFFFFFFFFFFFFFFFFFFFRFFFFFFFFFRFFRRFFRFFFFFFFERFFERFFEFFFFFFFFFFIFEO 33014 
3777 DATAFFFFFFFFFEFEFFFFEEFEFFFFFFEFFFFFFFFREFFFEFFRRFEFEFFFFFFEFF1064481D9F 23390 
3809 DATARA9BABSFBAIFIABSFLASCHD2DOSIZAGFIOSZCBBISFAABAAFAOOOCAFOLSCHBIFEDOL288 I3931 
3841 DATAFBIBIBAOGOASFBRSFBAGEEEAFCDOEABIFRSOOBFOSA2OATABCHDOF4BAOASBEITFIZIL >3B20 
3873 DATAAAAOFFCAFOOBLBESFEAOLOFASOFSCHEIFEAOSOOS2047ABDOFS2F7F2OATABA402II24 33674 
3705 DATACBDOLLATFSAGACHTATAIAIALFOAGFIDBCZLIDICHEI20D6455253494FAEZOSIZEIGBF >3845 
3937 DATAS200284329200D2EC6524945534520313938370D0D00A900856020730008C9D208B0 >4830 
3969 .DATAFOOA2BACHDAE28207300CDBIFABOFACEOI2OG69FEROIHOOAAABDTFADABBDTESDOFG2 >45B8 
4001 DATA48602073000BC9D2FOOBLIBBFO2S2BACE7A76BLKO120BDFFELOLACHER76020730E37 34497 
4033 DATAOOCDBFIAFOFTORAABNTFINABBDTEIDABACT30028207300209ERD207F00CHBIFOGESE >4873 
4065 DATAOSAFA72OFFAEASEIDIOPZOCHAFROFBABSCAEA7207900BOADZOAOABALAEATASZLOFO7 73833 
4097 DATAAO01912BA212200898A522186902852DA5234900852E60202099A20420DB9BBCOBBF )4597 
4129 DATASCOSAS22BSFDAS2IBSFE2O4S9FA21420DBIBASODLOATAOOZBIATSSFLBBBLATBSOEAO >4352 
4161 DATAFB2045992055I9LCAEOFFDOOSAZOE4T2BIFGEIDOFIBBAGDICHTBO2SEIOGAOOODIODSD >4563 
4193 DATAATBOLDADSDOSGSFRRSFBFOOZESFCACSTOSAEICOSBBBLFDFIFBLADOFBGOA2ISZCIOCE >4038 
4225 DATAA2OFAL2899205599B6FRAFOOBSFLOGFBZEFLOGFEZEFLOGFBZEFLIBAPOOLEFBBSOFBE >4493 
4257 DATAFBAFDIGSFLBSFCAIOBEDIEOI204599205599E002B012BAOROAOABSFLBSFL20450E74 >4684 
4289 DATA99205597E00490034C4CA2BA2901BSFDBAAABSFEAFOORDIDOSZ04599202DIFAZOLEL )5007 
4321 DATAQ420DBIBBNSTOSAOFFA2OBBLOZAGFDFOO2AG02CBBL2ICHZEFOLAIBEIAOTOSDFOOEE2 )4253 
4353 DATASBC9O4BO57AAFDDOO7LROZBOAFZLAFOORGFDDOOTEAZESFOSACFSAOGRGAZESFOSODBF >4108“ 
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4417 
4449 
4481 
4513 
4545 
4577 
4609 
4641 
4673 
4708 
4737 
4769 
4801 
4833 
4B65 
4897 
4929 
4961 
4993 
5025 
5057 
5089 
5121 
5153 
5185 
5217 
5249 
5281 
5313 
5345 
3377 
5409 
5441 
5473 
5505 
3337 
3569 
3601 
5633 
3665 
5697 
5729 
5761 
3793 
5825 
5857 
5889 
Sl 
5953 
5985 
6017 
6049 
6081 
6113 
6145 
6177 
6209 
6241 
6273 
6305 
6337 
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DATA2AZEISFOSCHO2DOCHFBABASOLABTBAFTZBSOLACIDOSADIFOSAGFEFOOZAIFFFLFBODEF 34235 
DATAGBBSOLSBEESDOIGRABTESEGIDGIBCBECICOIDOOLSOAZOTAFTFALOOFIFAZIEAIIFODEE >4349 
DATAACOOII207300202099203599AFODF605A21020D878A20220DBIBIBASIIESILABOEIB 74561 
DATAASI4ESI2A200860085628463A290860238A2084L0998207300208097A20420D80CRS >4585 
DATAFBDOOSA20SACDEIBFBAAA00084148415B122CFI0I020EI30CIOAF00BEIO7I0160D7A >4558 
DATAC91LOBO1220ACA11865148514A5156900851SCHLADODAASISAA14ACH7ALO6L42E0C21 4305 
DATAL5061426150641426150614261560207300208099204D97A904207099A003A5140778 35176 
DATA2FOFIBSFIOCHTAFO026906916220ESA1BBIOEBACTBF94615661446 15661446 150A6R >501& 
DATAG6144415661450AF008SCFBSCCA2ZOCZODBFSCTGOFOF7ABAFOLBSCLASCEAADZPLOFAF 73971 
DATADI1A901207099A000689162207899467300207300205599E019802286FB2045990C7A >4850 
DATA205599E028B016B6D3AAFBSEDLA2OE20DBIBZ0ISIIAI002070994L7B9FAZTEALOEBB >4575 
DATA28992073002055998A48207099L8ABF007A720889162D0FB20789940359920730D51 25077 
DATA00202099420420D898A52285FDAS23BSFEB4FB204599205599BAFLBAFOSSAGFBIOOD 4556 
DATAFOFIAFOOLBSSFEBOSTCADOFF20709FAGFLAOOGBAFLBIFDSAOZAAFLILEZAAOZESIIFR 33844 
DATAFCCBCAFBDOEFAOGOCADOEAC6OD2078F94CISFFAF00207099E600207899AL35991074 74457 
DATAA2174C2899207300205599BE3C03204599202DF9A20420DBIBAS2ZESFBASZIBSOREZ 74721 
DATAFCBCIDOS204599202DIIA20420DBIHAS22BSFDASZIBSFESCIEHI20ISIFACZCOIODIE >4743 
DATADOOSA2OEAL2EFFBSBCHLOSAICOBDAOOSADALOSBDIFOSACHFOSCLTEOSBOLBEIFDOBF7 >4645 
DATAACHOOSCLSDOSFOLFDIFBDOOBEESFOSEE4OGSDOEZEE4LOSDOD2ACAOOSCEIDOSFOUFBO 33958 
DATAOGAIOOABACSIALAFGOALHLOISCHALSIALAGSAEBFOOSAZIBACZEIFASZBBSAEASZCONIF >ALSS 
DATABSAF202D99A20420089898A622A4232041A4207900A208C92CDO0620459920550BFD >4550 
DATAFFADESASAOOOZOABAAAOFFEBCOSBFO762037A4990002C90DDOFLADOOO2CISOFOOFL? 33872 
DATAAICITABOASAFOOFFOOODAFFFBETAA9O18578207300A22E20DBIBA22C2UDBIBAOODTT >4450 
DATAOGA9OBFLAECBFLAELBASEIAFLAECBASISIIAECBAZOOBDOOOZTIAEEBCBEFOODOFSIKIE 33516 
DATAFS1B6SAEBSAEFOOZELAFASFOFOFIBAIGOFLAECBFILAEABFLTACBLBFLTAZOLCHAAILIFS 33966 
DATAOOBSTHATCHIFAOOORF0002C730700ACFIFBOOHZOSCAACHBDOEF2OSTAACFODDOFFVELA >3887 
DATAAF2LZOSCAIALFFASA2ZBALDBIBAZZAHEDEIGBEOZAZICALDEFRBHOZAZIA2ODBIBOEA! >4284 
DATAA21E20DBIBBOODADESASB502A22220D8I8B00140AB206CAA6BAR4EZBIFADEBASOFOO >4151 
DATAA22020D898A226ALCDBFB205DFYASIABDBDAAASISBDBEAAUSIABDBCAAKOOLOAOHODID 74738 
DATAADOOO24BA21820DBFBBAUBKBAEBCAAFOSILHZOIORDEISABO2FIBASIAARGDBDAACDEO >4544 
DATAABAS1S4B6DBEAAZOSSALAZIHZODEIBAZFFEBEDO1019D7702DOF786L6bBBSISEROFBO >4379 
DATABSI4A2FF60206899A000A5014878A92285018A911468850160205DP9A514AL1T0CIT >4674 
DATABSFBEAFLC204599205DF9AFFLBEDFBIBAOOOASLA2OFFFBLBASISZOFFINBAFBIBDFRILBF >4283 
DATAI860205D99A514A61585FBBEFC204599205099784922850 1 ASLAROOOFLFBCBASOEBI >4418 
DATALS91FBA93685015860207500208099204D9978A001A9348501BLLAAANBEBII4ABOLTO ?4&62 
DATAAF36850158BAALSIAL207300208099204D997AAOOOAFSSBSOIBILAABAFSGBSCIORAG 74685 
DATASSAI004CSFAL207300208099204DFFASIABSFEASISBSFLAODLZOFFIBAABBZOFFOEZ4 )4580 
DATAIBABBAACSSALA21420DBIBASODBSFDASOEBSFEAS47BSFRASABBSFE2OASPIAZIHIOHB 34594 
DATAZODBFBASODLSFDDOOKASOELSFEFOGSACALAUASODDOOTASOEDOOKADO42LAUO22LUE2B 74044 
DATAROOLBIFBAABIA731FBBAII47BBLOFI602055998EELASLCHO202DF9A20420DBIBOFEB >4275 
DATA98A622A423204 1A4ADESASA20BA0002648442037A42037A42037A42037A420370BFD 33904 
DATAASAB2O37AAALFODOLEZOSFABAI2OZOISCHA2OSTAALIOOFOOBZOITAAACZOAGRTOBOCBS >3886 
DATAZOSCASASIOFODIACHLA42053A1A21620DSFBAOGOBFOLOLFODG2OICAACBDOFSROGEEC 73954 
DATAR9I002041AAADEGASA2OBAOOF204BAAROFFLB2OISTAAFFICOIASIOFOFSFB4BZ0700FOF >4011 
DATAPFARABBBBISCHIILE2BBLOFB2OT7BIFZOSLAAACTICOAISHEDICOIAFOLAZSCADUSOTEZ 34699 
DATA2O4LAAADELAASAZOBAGOFBAOZA2IAZODBIBA2IE20DBFIBADEHASA22ZOACDBFBAFAFOFE2 34008 
DATABDSCGSAFOLDODSAFAEZCAISTEDZCOTAFSAGDSDOSZUZDIIAZ0420D8I8IG4BBBBLOCER 34738 
DATA22IF3E0IB810F86B186702DOAFAFSZENITOSAFIABDIDOSZO2ZDIIAZOAZODETBBAGLON >477& 
DATAFDAI0099660388B1229966038810FEAFAHA20020D898202DF9A20420DBFEB4FEOEBZ 74256 
DATABBB1229I3EOIBBLOFBALFEAFSDIDIEOSAOFFEBCHBFLEOSFDIEOSDOFEIBAFOSGSOF&R >4289 
DATAFDSSFEACBBA6202D99240D10034C4LA0A975A0FDA2I220D898204DIFAF7ABDOAODBI >4634 
DATADDAI2HBROSDDAS14BDOADDASISSDO7DDADGEDDZ29DLOFLISDOERDADOFDDZFDLOFGEZF >43106 
BATASFSROFDDADCDDD29G2D007A23020D87809F 260207300205599CAE002B0778A1B0E05 >4495 
DATAGFDCBSFCATOOBSFBBSFDAFGA207079AOOBBLFBFBOB2IFFLFLZDOOZAFGOZBIOOIGERD >4274 
DATALB&FLZDBZODDAFTAOOABLFBZODDATAOGFBIFBZODDATAUOBBIFEZODZATALT8F94A1096 33865 
DATAAAAAAAZFOFOFIOAAFDILHZERFDEOARZOTCER76B20D2A7AFIAZODEAT60208599CADEBC >4193 
DATAS6FDEOOABOOF204599202DFIA20420DBIBCHOAFOOSACHTAZASOOBSFEAGFDAIOOGEAF >4296 
DATABSFBEFDEBSFEAGOGERBIFBOISOFLFRCBASFDAROABIFBZAZBAAFIFR2OSZABFECIL21252 34024 
DATAFOOSINO4EF1209BGDBAOGBFIFEZOSZABAUUAFLFBZOSZABAOOFFLFBBIZZZIOFSBOEAF 34318 
DATAFIFBSOAAFERI220ADAORUABDSCOSEBBI222I0FODSCGIEDICHSCHEL22CISAFOOSORDS >4495 
DATAGBEBACACAZADICOSCHBAFEH02OSSEFIBEBZABEOODAFSOSDICOSAFODBDSDOSA2LAUEDI 34785 
DATA20D898240D30034C4CA0A0002037A4990005CDZDOSFOOBLBTCSCOSDOEFA2174C0CGA 4487 
DATA2BI9IFBB5FB207099AAFBBSBTOONSFLEZBSLOFBLBASFEILATLHASSZILATCBAMESIEZI >4488 
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6401 
6433 
6465 
6497 
6529 
6561 
6593 
6625 
4657 
6689 
6721 
6753 
6785 
6817 
6849 
4881 
6913 
6945 
6977 
7099 
7041 
7073 
7105 
7137 
7169 
201 
7233 
7245 
7297 
7329 
7361 
7393 
7425 
7457 
7489 
7a21 
7553 
7585 
7617 
7649 
7681 
7713 
7745 
7777 
7809 
7841 
7873 
7905 
7937 
7969 
8001 
8033 
8065 
8097 
8129 
glst 
8193 
8225 
8257 
8289 
8321 
8353 
8385 


Teil 4: Software-Erstellung 





DATA914760AF008DSLGSADB2ASBDSDOSZ2055778602A22220D8E988008204599208DAB0L47 
DATAA2ZG4CDSFBAAACZBII205579E010B0298E20D06020559FE010BOLEBE21DOKOZ2UODEB 
DATASSIFEOLOBOLIBEB6026020559F9E002B00BBALBAAHABDFFCIH0OAZ0OE4CZEFI20S5OLSO 
DATAFFEOOABOFABARZUOFIDASATOAGAEBEOOADOF6E0G10104104GFLFICFIFAOGOBEFAOFSS 


DATAOSBCFROSBCFCOSAIEOBSFLBAFBAFFOBSFEBAFDAZIOFBFIFBFLFDCBDOFFEBFCESRISFR } 


DATAFECADOF260A9282027AABDIBDOAFSBBDLIDOZLFBO31003205DAA2053IFEO10BOGEB2 
DATAZEBAFC2O4599205579E0108ABO21OAFLOGFEOSFLOSFLOSFCAOCBBAFLAZOLAGDOOFSE 
DATAB4FBFLFBEADOFBEAFCLADOF6ACHOAAACZBAFZEFBOII003205DAA2055972027AALOEF 
DATAEOLOBOERBE21D0204597208949204599205599E010BODBAOOOBAFFOGDBFFOODFOEEB 
DATAFFOODAFFIODDBEBDOFLAFZEEDIEDOAFSBBDLIDOAFLBBDLEDOAOZLFBOSLOOIZOSDOESS 
DATAAAAIOOBDFBOIAFFGBDIBDOAFIBEDILDOAFÜSBDIANOATHOAAABIBABADIBDOLFZEOET7 
DATAFOOBAOOTBIFBLFFISSAABBLOFTEBABLIHUABFBABAUUTBISSAAFIFBCFIIFBCHBBL LEO 
DATAIOF4SBABSBAOFFFFFFFFFFFFFFFFAPOOBSFBAIDBBSFCAFOOBSFDAIOHBSFEROOOLAFE 
DATABIFD4BBIFBOAOAOAORBDICOSCHBIFRZI0FODZCOIBBIIFDEBABARAAAAAAFLFBCBODDO 
DATA6GBFLFBE&GFDDOOZEAFEIBASFBAFO2BSFRIOODZEAFLASFCEFDEDOCAADFEOSAFBOBDIATE 
DATAFBOSADCOAASBAD2IDOBDEHAAGBBD21DOAODOASISDOTIASLACIAGBOGRFOLAZOSBOFFF 
DATAPFEOCBBOB22CFBOSIOEBASLSFOOALYO2BOSSASIACIAOBOAFBEFLOSASIABDFAOSOFAT 
DATAAS1SBDFROSS0202CAB1BIBHDFAOSBEDSCOSBALDFBOISDSDEI204599202CABLBFEOBEF 
DATASDFCOSBDIEOSBABSFOOCTOODOLAAESEOSADSCOIBSIAADIDOIBTLSACHUAA202DFF0BB7 
DATAA2SCZODBFBAAG0AL2BAI20730020F5AA4LHBAB207IO02OLDAR2035FF2OAAABZLOCDF 
DATAFBOSIOLSBASARAASFELAIOOSAAHAALSBABZFOSABAFOOALSSALASFEZSFDDOOSACOEIG 
DATAOOZCAOOLAFOO4LSSALZOFSAAACBIABZOCDAAZOAAABZCFEOSLOOEBAAAAAASFEIDODSC 
DATAATAFIDASAFFLFBEOASFD2CF903300505FEF1FBAOAIFF2SFEFIFBEOZCFBOSIOLOOFTI 
DATAOEFAOSZEFBOS2OBFAB4EFBOSGEFAOSSOALFLOSPBAAAAAAAABDISACHSFLBA29030E5F 
DATARABDSOACBSFBF829071865FBBSFBADFAOSZIFBBSFEAFEOOSFEBSFCIBASFRASFELZFT 
DATABSFBASFCADFBOISBSFCADFAOS2I074907AABDI4ALBSFD7BAPSABSOLAODOBIFBBSIOAC 
DATAFER9368501586000010203050607080AGBOCODOF10111214151617391AL1BITIEOABF 
DATALFOOAOBOCOOLOZOA0B1O20A0BOADFAOZSBDFDOSADFBOSBDFEOSADFLOSBDFFO3200C69 
DATAFSAAACKIACADFAOSBDFDOSADFBOSBDFEOSADFLOSSDFFOSZGCDAA20B1ARBASE7BIOEA 
DATAAISABSOLADFDOSSSEDFAOSABAEFEOSBAEDFBOSBSSABOGAGBAIFFEFOLABAIONESOFZ7 
DATASA8SSBB55CHBB557BSSBADFFOSLBEDFLUSFOOAAFIFFEFFEBSSIHHSASBESSTAAAFOFIT 
DATAFFESSBBSSDBOLL2UFBOSSOO70AZOSFIADSBBOOSOAZOSFADSBASSBESSIBSSBASSCOEAT 
DATAE9O0BSSCOBAOOOBIFBBSFEBSSFASSEOAAA2OBAABASSF2BEBDOOAEASDDOOBAFTSOF7E 
DATABSOLSB60ASSABOBF2007ADIBASSBASSTBSSBASSCHSSBSOCASNLAASFB2IOTFOOSODIR 
DATALBAIFFIGOAAICTCAFTHSFBBSFBASFCEFOOBSFCHOASFR2907L907F00SIBAIOGBOLIFT 
DATAOAAFIBESFLHSFBISFBAIOOSSFLBSFEHNLOSEESSEASSECIO4I023AF00BSSEASFBIODT 
DATASBEIOBBSFBBOLGLAFLA0L01206FDIOODZAFDASFBIBEFOBSSFEBOOZCAFLEOAHFDIODE 
DATA9OODGAFDASFBISKIOBBSFBIOOZEAFCKOCHSELOFBAICIBSSEASFBIB6FOBBSFBIOLO7A 
DATAEEEAFCHÖZOCDAAAOOO2OLIAD2045FF20CDAAAUOSZOCIHADAOL1T7A2OSBEA2OSBEDLOFFE 
DATAADBDSCOSAE420IIDFAOSBRBCEAZOZLOEEIBABZOGIACHBABLOEOAOADFADSPFILOIODTE 
DATAADFBOFIFSDOSADFCOSF73E0360630405030402030402000102000102000105000594 
DATAO10503040520CDAAAG0020CFAD20459920CDAAADOSZOLFAD20459720CDAAAOOHOBEB 
DATAZOCFADISADA42OIGDSFOISBDASOSADAIOTGDAO0SBDAEOSTSBADASOSEDICHIBDISOFOFTR 
DATAADSBOSEDSDOSBDAHUSISADAAOSEDALOZAAAFOOHIOCABSEBAEDIEOSBDATOFFBEIOBAZ 
DATAGODOADADA7OSCIEBBOAH2LFROSIOLZADAKOSFOLICHOZBOSBADASOISC9IAOBOSLAOOD2S 
DATAOCADABOSDORAADASOSEIAOROZIAUS7AZOSBEABOIBEAZAEBDICOIAEZBOIPDFAOIODZL 
DATABBGE4B0S1GEE?8482069ACHBABIOE0604L28A9000102000105000105030405050BAF 
DATAO405030402030402000102000102060708060708070A0BOFOROBOFOAOBOFOROROOBD 
DATA0&070B04070R050708050708000105030405099A0B0I0402090A0BZ0LDAARUDOGZER 
DATA2OCFAD20459920CDAAAOOSZOCIADADIEOSCHALOSFOLSADOZBISLHZABBFZFOSIFOLTE 
DATASCHSABFFSFOISBIOEFAOOSBESSAFBDICOSFFFAGTABIOFAZOKPATEESEOIADALOSOTLS 
DATACDIEOSBOE4600001020304024C2BAFZOCDAA204599205599E0AGBOFOBES203200BF7 
DATA4599205599E0A6BOESBESSOSBE4IGSADFAOSBDICOSADFROSSPSDOSADFCOSBDSEOEZO 
DATANSAFOOBD42CIEDZFO3LDA0038563856B 56285 AAUFFUIBTH1BFHFZUSHBLBDAHOBIE 
DATANIBEA7OSBCABOSSDAFOSBELAOSBLAROIBDAFOSBESCOSBLSIOSOEA6032ES7032EO7DD 
DATAA803A9008563856B8B56295HAANS203856185692058B1BDAIOTHEA4AUFECHSOIEDOBAA 
DATASCHOSBEADOSBLAEOSGESSOIZELHOIZEASOTIBEDAFOISDAFOSBASDSOCSBDSEO039807L1 
DATASDSIOZADSIOSAP0OBSASBSEZADSIOIHSHLADASCIBSHFADLANTBSSEAADISOTESEBOBAT 
DATAZOSSBISBEDACOISDACHIBAEDADOSEDADOSFBEDIEOISDAEGTZODEBO2O42BLZODSOLBO 
DATABO2O2EB:i2006B02042B12006B0202CRLADSIOISIOLOIBADIFOISEDAFOIBD4FOJSADOLTE 
DATASOOSEDAAOSEBSOOSADSLOTEDABOSSDSIOSLBADLIGIEDAHOIBDAFOSADAACIEDA7OIDE 
DATAOSBDAAOZAD4BOIHDABOIBDABOIEESFOSDOOIEE4003ADS10310IBLBADAFOIEDACHFBR 
BATAOSSDAFOIADSOOTEDANOTBDSOOIADSLOISDAEOSEDSIGSIBADACOIEDAIOSBDACHIOIE2 
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DATAADADOZSEDAA0FSBDADOZAD4EOSEDASOFBDAEGITEALOSADALOSFOOS4L27BOZODSBÖORDE 
8449 DATA2042B120D6RO60L13ADSCOISDIFOSEDFAOSADIDOSSDAOOSEDFBOSLBADISEOSAD410BI2 >4668 
8481 DATAOSBDFCOSAI00604203B04720FEBOSOADFLOSCILBBOITZLFEOSSOLSADFBOSFOOBOESB >4070 
8513 DATACTOZBOREADFAOSCHAOBO27ACBIABADFROSDOIFADFAOSCIAOBOIBACBIABIBADALOFFE >3872 
8545 DATAOI49FFAFOLBDALOSADAZUSAFFFEIOOBDA2O3H0LBADIFOSAIFFEIOLBDSFOSADAOCADO >4874 
8577 DATAOS49FF&FO0OBDA00360AF0085LLCHSADBÄHEA2180660266D266E066126622663F00ABE >5212 
8609 DATA131BAS6CHIHFBSEHLASHDASCABSHDASHEBSHBBSHELADODTASSCAGHDASKEHSOZOCDOFID >4797 
8641 DATAAAADFAUSBDSCOSADFROSBDIDOSADFLOSSDIEN3204599205597BE4003204597200C0D >5024 
8673 DATASSIIBE4103204599205099A514A6158042038E4303204599205DIFASIAAGLSEDOBOS 35254 
8705 DATAS403BE450SEC430SFO15ROLAIBADA440I696BBDA40IADASOIHFULBDASCSFOOTEROAST >4815 
8737 DATAA203FVEBIOEA20ASPF2OSSPPBEAHOSAIOORDIFOIZOSBB2Z2CIFOIIOOBZUBLABLEOBDB >A4B! 
8769 DATASFO3I0032069ACAD420ICD4AUFDOOBADASOICDASOIFOSAL1BADAZOSADAEOSBDAZOAAS 4642 
8801 DATAOSADAIOSKIOOBDASOSCHASOSFOLLFOLHADAAOTEDAZOSADASOSBDASOTALOSBZADGADR >4592 
8833 DATAS2OSCDAA0OSFOFSIOFIBOESSOADFAOSBDFDOSADFBOSSDFEOSADFLOSBDFFOSAGAZII4F >4084 
8865 DATAOSAD4303205IALA97BAOFDA2IZ2ZODSIRAZISZODBIBA2342UDBIBAIOOACHO03200057 >431& 
8897 DATAS3ALA23620D8FBA2ICZODSFBIBAAFBEDICHIBDFAOUISAADIDGSEDFEOISIOTIZLFBODEI 34730 
8929 DATAOZZOLLCFOOFOLELIOZBOGFADFAOSCFAOBOKBFOOBLFOODOEDADFAOSCIAOBGSSALOFSO >4028 
8961 DATA4205AD430I205IA1AF7BAOFDAZIZZODEIBA2SAZODBIBAZIA2ODEPIBAIOOACHLOFODTE >4188 
8993 DATA20SIAIA236200898A23C2008983988414851SADIEOSESLABDFLOSAFO0ESISSOOBOCAS 4327 
9025 DATAADFCOSTITCBBOOLKOAFE72CAFOGBDFLOSGOAFOOBDFAOSBDFROSGORAAIFEDFAGSAFOFRE 33982 
9057 DATAOLBDFBOIKOAIIFBDFANSAIGOBDFBOIHOALZBAIZ0SSIISESCOIEOZBROFIZOSSPFODFS >4610 
9089 DATA205599BESDOIE0L9BOE6204599205599BEIEOIECILOISFODBEO2880D4204599200083 >4786 
9121 DATASS9IFIBEZFOIELIDOSPOCHEO19IBOC2204599205599E010BOBBBAFL2045992055970E9D >4747 
9153 DATAEOLOBABOABOGFLOGFLOBFLOBFLOSFEABADSDOSOARBIBAFO07IEOBIBSFBAICBTFOFFE 74020 
9185 DATAELBIBSFÜHBACSEOSALFBBBIOOSCEISCOIBOFALEISFOSAESFOZIGLGECIDOSPOLLABODBF 34537 
9217 DATAIBASFRBEIZERSFBASFCAIOOBSFCEBFODSEEOONON280050007800A00CCBOOFOGOLBOLEI >4261 
3249 DATAO14001680190018801E0010802300258028002A802D002F8022003480370039807DD >4634 
DATAO3C003--00C5 >755 
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4/6.4.4 


Grafikbefehle (Basic-Erweiterung, Version 1.2) 





In der Version 1.2 unserer Basic-Erweiterung wollen wir uns einen Satz von Befehlen 
zur Verfügung stellen, die dem Arbeiten mit der hochauflösenden Grafik, sowie der 
Mehrfarbengrafik dienen. Dabei wurde darauf geachtet, das die bereitgestellten 
Befehle möglichst in beiden Grafikauflösungen funktionieren. Nur die Spezial- 
befehle zum Setzen der Farben oder Einschalten der Grafik benötigen verschiedene 
Aufrufe. 


Mit den Grundlagen der Grafikprogrammierung werden wir uns hier nicht beschäf- 
tigen. Diese können Sie an anderer Stelle nachlesen. Für das Verständnis der folgen- 
den Assemblerroutinen sind diese Grundlagen aber erforderlich. Um die Befehle zu 
verwenden, benötigen sie die Grundlagen natürlich nicht unbedingt, sie helfen 
einem aber doch häufig beim Lösen von eigenen Problemstellungen. 


Die Version 1.2 wird folgende zusätzlichen Befehle zur Verfügung stellen: 


Befehl Bedeutung 





DRAWMODE X 1=Punkt setzen; O=Punkt löschen 
(in hochauflösender Grafik) 


BORDER X Rahmenfarbe 0 bis 15 festlegen 


PENX Zeichenfarbe 0 bis 3 in Multicolorgrafik 
festlegen 


INK X Textfarbe 0. .15 festlegen 


PAPER X Hintergrundfarbe 0 . .15 Text festlegen 


GRAFON ZF,HF hochauflösende Grafik ein; 
Zeichenfarbe ZF; Hintergrund HF 


MULTION HF,F1,F2,F3 Multicolorgrafik an; 
Hintergrund HF, Farbe 1 bis 3 = Fi bis F3 


GRAFCLR Grafik löschen 
GRAFOFF Textmodus einschalten 








12 
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Befehl Bedeutung 





MOVE X,Y Grafikcursor setzen 

MOVER X,Y Grafikcursor setzen (relativ) 

PLOT X,Y Punkt setzen 

PLOTER X,Y Punkt setzen (relativ) 

LINE X,Y Linie ziehen 

LINER X,Y Linie ziehen (relativ) 

FRAME X1,Y1,X2,Y2 Rahmen zeichnen zwischen 
(X1,Y1) und (X2,Y2) 

BLOCK X1,Y1,X2,Y2 ausgefüllter Rahmen (Rechteck) 

CIRCLE X,Y,RX,RY Ellipse mit Mittelpunkt (X,Y) 
sowie Radien RX und RY 

ANGLE 

X,Y,RX,RY,AW,EW,SW Kreissegment zeichnen 

A=TEST(X,Y) Punktfarbe des Punktes (X,Y) liefern 

A=TESTR(X,Y) Punktfarbe liefern (relativ) 





BOX X0,YO,XU,YU,XH,YH Quader zeichnen 


COLBLOCK X1,Y1,X2,Y2 Farbbereich festlegen 


An dieser Stelle wollen wir auch gleich ein kleines Demonstrationsprogramm. vor- 
stellen, welches die wesentlichen Befehle der Grafikerweiterung zeigt. Es besteht aus 
einer Sammlung kleiner Unterprogramme, welche verschiedene Grafiken auf den 
Bildschirm zaubern. Diese werden vom Hauptprogramm nacheinander aufgerufen. 
Sie können die Unterprogramme natürlich auch einzeln eingeben und ablaufen las- 
sen. 
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print"XBASIC GRAPHIK DEMO" :print:print 
forgq=1to8 
reada$:printa$:pauseö:grafelr 
ongggosub4000,1000,4500,5000,3000,2000,5500,6000 
pauseö:grafoff:grafelr 
next 
end 

999 rem *%%%* demo: line 

1000 dimx%(24),,y%(24) 

1010 grafclr:grafon?,2 

1020 fort=3t025:pause2 

1030 wi=2*3.14159/t 

1040 fors=0tot-1 . 

1050 x%(s)=sin{wi*s)*159+160 

1060 y%(s)=cos(wi*s)*99+100 

1070 next:grafelr 

1080 fors=0tot-2 

1090 forss=s+tltot-1 

1100 movex%(s),y%(s}:linex%(ss),y%{=s) 

1110 next:next 

1120 next:return 

1999 rem **%*%* demo: angle 

2000 grafonl,0:grafelr 

2010 forx=5to100step2 

2020 angle40+x*.8,100,x*1.2,x,315,90,45 

2030 angle40+x*.8,100,x*1.2,x,135,270,45 

2040 next 

2050 angle1l20,100,120,100,0,360,45 

2060 return 

2999 rem **** demo: circle 

3000 multion2,7,1,14:grafelr:pe=1 

3010 fora=5to165stepl0:forb=5t0165stepl0 

3020 circle80,100,a,b 

3030 penpe:pe=pe+l:ifpe=4thenpe=si 

3040 next:next 

3050 return 

3999 rem **** demo: plot 

4000 multion0,1,7,14 

4010 fort=0t0400:plot160*rnd(8),200*rnd(8):pen4*rnd(8):next 

4020 return 

4499 rem **%** demo: frame 

4500 grafon7,0:fort=0to160step5 

4510 framet,t,319-t,199-t:next:return 

4999 rem **** demo: block 

5000 multion2,7,14,1 

5010 pen1:block10,10,40,180 

5020 pen2:block50,10,80,180 

5030 pen3:block90,10,120,180 

5040 return 

5499 rem *+** demo: box 

5500 grafoni,0 

5510 box10,120,200,190,50,10 

5520 return 

6999 rem ***%%* demo: colblock 

6000 grafon?7,2:drawmodeO 

6010 fort=0t0319step5 

6040 movet,0:line319-t,199 

6050 next 

6060 fort=0t0199step5 

6090 moveO,t:1line319,199-t 

6100 next 

6110 pauselO 

6120 fort=0t0300 





Listing 4/6.4.4-1 (Teil 1) 
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x=rnd{8)*39 

y=rnd(8)*24 

x2=x+rnd(8)*(39-x)+1 
y2=ytrnd(8)*(24-y)+1 
colbiockx,y,x2,y2,15*rnd(8),15*rnd(8) 
next 

bl0ck0,0,319,199 

fort=0t0300 

x=rnd(8)*39 

y=rnd(8)*24 

x2=x+rnd(8)*(39-x)+1 
y2=y+rnd(8)*#(24-y)+1 
colblockx,y,x2,y2,15*rnd(8),15*rnd{8) 
next 

pauseT7:grafcelr:return 

rem **** liste der befehle 
data"PLOT" , "LINE", "FRAME" 
data"BLOCK" , "CIRCLE” ,"ANGLE" , "BOX" 
data"COLBLOCK" 





Listing 4/6.4.4-1 (Teil 2) 


In der Version 1.2 werden wir wieder einige Programmteile verändern oder ergänzen 
müssen. Das Hauptproblem ist, das die Speicherplatzreserven, die in der Version 1.0 
für kommende Erweiterungen definiert wurden, schneller als erwartet erschöpft 
sind. Sie wurden bereits von der Version 1.1 weitgehend verbraucht. Mit der Version 
1.2 werden wir uns deshalb Platz verschaffen müssen, und uns bei dieser Gelegen- 
heit neue Reserven anlegen. 


Dazu müssen wir leider wieder etwas von dem Basic-Speicherplatz für unsere Erwei- 
terung reservieren. Aber wir begnügen uns noch mit weiteren 0.5 KByte, so daß ins- 
gesamt nur 2 KByte des Basic-Speicherplatzes verlorengehen. Dieser Speicherplatz- 
verlust wird durch die zusätzlichen Befehle aber leicht wieder ausgeglichen, da diese 
nur einen Bruchteil vergleichbarer Basic-Unterprogramme benötigen. 


Weil der Quelltext ebenfalls sehr lang geworden ist, sollten Sie ihn auf verschiedene 
Dateien verteilen, welche dann mit dem Pseudobefehl ‚,.FI’” nacheinander assem- 
bliert werden. 


Die Version 1.2 benötigt folgende zusätzliche bzw. veränderte Symbole: 


Für eine 24-Bit Multiplikation benötigen wir: 


;il. Operand fuer Multiplikation 
;2. Operand 


;Ergebnis 
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‚Der Block für den Line-Input Befehl wird vom Programmende in die ungenutzte 
alte Bildschirmseite verlegt. Dazu wird die Labeldefinition am Ende des Line- 
Input# -Befehls entfernt, und das folgende Symbol eingeführt: 





inpuffer: .eq $500 ;Block fuer Line-Input 


Für die Grafikbefehle benötigen wir einige Speicherstellen, welche die aktuellen 
Bildschirmkoordinaten, die eingestellte Auflösung sowie den Zeichenmodus bestim- 
men: 





ycurs2: .eq 1023 ;Grafik Endpunkt Y 
xcurs2: .eq 1021 ;Grafik Endpunkt X 
drawmode: ‚.eq 1017 ;Zeichenmodus 


XCUrS! .eq 1018 ;Grafik X 
ycurs: .eq 1020 ‚Grafik Y 
colmode: .eq 1016 ;Grafik Farbmodus 





Da bei der Farbgrafik der Farbspeicher benötigt wird, müssen wir diesen für die 
Textseite retten. Dazu wird ein Block von 512 Byte definiert: 


colmem: .eq $600 ;Farbenspeicher 


Um bei einer Fehlermeldung, oder am Programmende automatisch auf die Textseite 
umschalten zu können, müssen wir uns außerdem in die Eingabe-Warteschleife ein- 
bauen: 


eingabevec: .eq $0302 ‚Vektor fuer Eingabe-Warteschleife 


oldeingabe: .eq $A483 ‚alte Eingabe-Warteschleife 





Schließlich wird noch der Start der Basicerweiterung um 0.5 KByte vorverlegt: 


xbasicstart:  .eq $A000-2048 ;Startadresse von XBASIC 


Wie bereits erwähnt, wollen wir bei Fehlermeldungen oder am Programmende auf 
die normale Textseite umschalten. Dazu bietet es sich an, eine eigene Routine in die 
Eingabe-Warteschleife einzubauen, denn diese wird in beiden Fällen vom normalen 
C64-Basic aufgerufen. Außerdem wird sie über einen Vektor in der Zero-Page auf- 
gerufen, so daß wir hier leicht eine eigene Routine einbauen können. 
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Wir müssen also in die Initialisierungsroutine der Basic-Erweiterung eine Umlei- 
tung des Vektors einbauen. Zusätzlich müssen die neuen, von der Grafik benötigten 
Symbole auf Anfangswerte gesetzt werden. Das folgende Listing zeigt die verän- 
derte Initialisierungsroutine: 





9817 29 36 132 initxbasic:lda #400110110 ;Adresse des Bildschirms 
8d 18 do 135 sta vic+24 sund des Zeichensatzes festlegen 
ad 00 dd 134 lda cia2 ;VIC Bereich von $0000-$FFFF 
29 fc 135 and #%411111100 
Sd 00 dd 136 sta cia2 
a9 cc 137 lda #textseite/256 ;Textseite fuer Basic festlegen 
84 88 02 138 sta charpage 

137 

a9 00 140 lda #<xbasicstart ;Neues Basic-Ende setzen 
a2 98 141 ldx #>xbasicstart 
85 37 142 sta basend 
86 38 143 stx basend+i1 
39 a7 124 lda #<newnmi ;neue NMI-Routine 
a2 98 145 ldx #>newnmi 
8d 18 03 146 sta nmivec 
Be 19 03 147 stx nmivec+ti 
a9 29 148 lda #<token ;neue Token-Wandelrmmutine 
a2 9a 149 ldx #>token 
84 04 03 150 sta tokenvec 
Be 05 03 151 stx tokenvec+tl 
a9? ac 152 lda #Xlist jneue List-Routine 
a2 9e 153 ldx #>list 
8d 06 03 154 sta listvec 
Be 07 03 155 stx listvec+ti 
a9 71 156 lda #<execute ;jneue Austuehrungsroutine 
a2 9 157 ldx Hexecute & 
&cd 08 05 158 sta executevec 
Be 09 03 159 stx executevec+l 
39 45 160 lda #exefkt ;Neues Basic-Ende setzen 
a2 9 161 ldx #$exefkt 
Bd 0a 03 162 sta fktvec 
Se Ob 03 163 stx fktvecti 
a7 97 164 lda #<neweingabe ;Neue Eingabewarteschleife 
a2 98 165 ldx #>neweingabe 
84 02 03 166 sta eingabevec 
Se 03 03 167 stx eingabevec+t 
a7 00 168 lda #0 ;Srafik auf Standard 
Bd f7 03 169 sta draumode 

9872 &d f8 03 170 sta colmode 

9875 &0 171 rts 

172 








Listing 4/6.4.4-2 


In die neue Eingabe-Warteschleife wird dann nur noch der Aufruf der Routine 
<dografoff>eingebaut. Diese Routine schaltet auf den Textbildschirm um. 
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174 
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195 
196 


XBASI 


Ec Eingabe-arteschleife 





197 
178 
199 
200 
201 
202 


; 
neweingabe: 


99997 a5 O1 
FB 48 
BIC a9 36 
787e 85 01 
9820 20 08 aa 
9833 68 203 
9Ba4 85 01 204 
Was Ac 85 a4 205 
328 


Listing 4/6.4.4-2 (Teil 2) 


lda 
pha 
Ida #356 

sta pp 

jsr dografoff 

pla 

sta pp 

jmp oldeingabe 


PP 





Für die Grafikroutinen benötigen wir außerdem einige zusätzliche ROM-Befehle, da 


wir für den ANGLE-Befehl 


die Fließkommaroutinen des Sinus und des Cosinus, 


sowie die Routine für Multiplikationen verwenden werden. Die Eingabe von relati- 
ven Koordinaten erfordert ebenfalls einen Eintrag in die Tabelle, da unsere bisheri- 


gen Routinen nur das Einle 


sen von positiven Zahlen vorsehen. Die vollständige 


Tabelle ist hier nochmals abgebildet: 


rombefehle: 
So 
31 
332 
333 
354 
335 
336 


97bb 27 ba 





Listing 4/6.4.4-2 (Teil 3-1) 
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„wo testceode-i 
“wo garbage-1 
„wo getstring-1 
„wo $bBf7-1 
‚wo $bc49-1 
„wo OlRrechts-i 
“no get-i1 

„wo $esbc-i 
„wo frestr-1 
„wo 42291-1 
„wo varsuch-i 
„wo $Sbodd-1 
no $as7c-1 
‚wo $ffba-i 
“no Srrfbd-1 
„wo $rfco-i 
„wo $rfes-i 
“wo srfcö-1 
‚no stfce9-1 
‚wo Sffec-i 
“wo Stfct-1 
«wo bsout-1 
“wo token-i 
"wo $a9ab-i 
„wo $ffei-i 
“no $ba28-1 


;26& Fileparameter 
;28 Filename 
530 Open 

;32 Close 

534 Chkin 

336 Chkout 

38 Circh 

;40 Basin 

;42 

;44 

;a6 

;48 STOP-Taste 
;50 FACK(A/Y) 
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99bd Ob bc 356 “wo $brOc-1 ;52 FAC-ARG 
99bf 2a ba 357 ‚wo $Sba2b-1 554 FAC==FACKARG 
991 8a e2 358 „wo $eZährl ;3e sin 
RS 65 e2 359 ‚wo Fezbd-i ;58 cos 
99c5 a9 bl 30 „wo $blaa-i ;60 FAC nach Integer 
S3el 
362 RESERVEL: .„eq BOX2+Hrombefehle-RESERVEI 
363 „db RESERVEI 
Reserve Rombefehle: 
364 .tx "Reserve Rombefehle:" 


0062 
365 „oo RESERVEI 











Listing 4/6.4.4-2 (Teil 3-2) 


Schließlich müssen wir die neuen Befehle in die Befehlsliste eintragen. Beachten Sie, 
daß TEST und TESTR Funktionen sind. Daher verschiebt sich auch der Dummy- 
Eintrag für den Befehl mit der Nummer 32. Bei der Gelegenheit werden wir uns 
auch gleich eine zusätzliche Fließkommakonstante definieren, die den Namen „‚pi- 
fac’’ tragen wird. Diese Konstante (pifac = 2* n / 360 = 0.01745) wird von dem 
Befehl ANGLE zur Umrechnung von Winkeln in Gradangabe, in eine Darstellung 
in Radiant benötigt, da die Funktionen Sinus und Cosinus die Winkelangabe in 
Radiant erwarten. 





453 
454 
455 
456 

9269 10 457 
458 

9aba bB 28 00 459 beflist: “by 184, '(,0 ;FRE( Liste der Funktionsworte 

9abd Al 54 28 460 „by "atl",o satt 

oo 

gacı 48 45 58 461 „by "hexs",0 ;HEX$ 

24 00 

Jach 44 45 43 462 . "dec",0 

00 

Jaca 47 4e 4b 465 . "inkeys",O 

45 57 24 00 

9adı 479 de 53 464 . "instr(",O 

54 52 28 00 

Yada 53 54 52 465 . "strings(",O 

47 de 47 24 28 00 

Fael 53 50 Ai 466 . "spaces(",O 

43 45 24 28 00 

Fae9 44 52 45 467 . “dreek",O 

45 Ab © 

9aet 52 45 45 468 . "reek",O 

Ab 00 

gaf4 44 45 45 469 - "deek",O 

4b 00 


-—-- Liste der XBASIC Befehle 





1. Liste der Funktionen 


; 
3 
5 
; 
funktionen: „by 15+1 ;Anzahl der Funktionen +1 





Listing 4/6.4.4-3 (Teil 1) 
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9a797 53 54 24 470 
oo 
gafd 54 49 4d 471 
45 00 
9602 54 45 53 472 
34 52 28 00 
7609 54 45 53 473 
54 28.00 
474 
475 
PbOrf A3 Ac 53 476 
00 
Fb1S 47 Ac 44 477 
43 48 41 52 00 
Fbib 43 36 I4 478 
oo 
Fblf 5B 42 41 479 
53 47 43 00 
9626 49 4e 55 490 
54 00 
9b2b 96 43 48 481 
41 52 00 
b31 4f Ac 44 482 
oo 
7635 44 52 ar 483 
Ab 45 00 
9b3b 52 4f 4b 484 
45 00 
7b40 44 Af Ab 495 
45 00 
9645 41 55 24 486 


9649 53 57 41 497 
Fb4e 44 49 52 488 


9b52 51 935 00 489 
9655 43 Af Ac 490 
Ac 45 43 54 00 
FbSd 48 45 a1 a9ı 
44 45 52 00 

564 44 49 52 492 
00 

9b68 52 45 4e 493 
41 Ad 45 00 

9bsr 53 43 52 494 
#1 54 45 48 00 
7677 49 4e 49 495 
54 49 41 4c 49 53 
9682 53 45 54 496 
44 c1 52 00 

9689 50 41 55 497 
53 45 00 

FbBrf 55 45 54 498 
54 49 Ad 45 00 
9697 53 45 54 4997 
45 Af A4c 00 

Fb7e 4c 49 de 500 
45 85 00 

Fba4 4c 49 de 1 
45 84 00 

9baa 44 52 41 502 
57 Ad Af 44 45 00 
Fbb3 42 LO 44 503 


45 00 


“by "st$",0 
„by "time",O 
.by "testr(",O 


.by "test(",0 


2. Liste der Befehle 


„by "els",o 
„by "oldchar",o 
“by "c64",O 

‚by "xbasic",O 
.by "inst",O 

.by 150,'char",Oo 
‚by "old",o 

“by "drake",O 
„by "roke",O 

„by "doke",O 

‚by "au",164,0 
„by "swap",O 

„by "dir",o 


‚by 'q,147,0 
.by "collect",o 


„by "header"‘,O 
by "dir",o 
by "rename",o 


„by "scratch",O 
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;ST$ 
;TIE 
;TESTR 


;TEST 


;CLS Liste der Befehlsworte 


;A_DOFR 


;DIR 


;QLOAD 
;COLLECT 


;HEADER 
;Dummy fuer Befehl 32 
;RENME 


;SCRATCH 


.by "initialise",O ;INITIALISE 


„by "setd",193,'r ,05SETDATNR 


.by "pause",O 
“by "settime",o 
„by "seteol",O 
«by "line" ,133,0 
.by "line" ‚132,0 
-by "drawmode" ‚0 


by "6,176, "der",O 








Listing 4/6.4.4-3 (Teil 2) 
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PAUSE 
;SETTIIE 
;SETEOL 
SLINEINPUT 
zLINEINPUT# 
;DRAWMGDE 


; BORDER 
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45 52 00 
bbF 49 Ae 4b 504 . "ink",O 
oo 
9bbd 50 41 50 505 .by "paper" ,O 
45 52 00 
9bc3 50 45 4e 506 "pen",O 
oo 
9bc7 47 52 41 507 . "graf",145,0 
46 91 00 
Fbcd 47 52 41 508 P “grafoff",o 
46 Af 46 Ab 00 
Ibd5 47 52 41 507 "graf",156,0 
46 9c 00 
Fbdb Ad 55 Ac . “multi",145,0 
54 49 91 00 
Fbe2 4d 4 56 . "mover",O 
45 52 00 
Pbes 49 At 56 B "move“,O 
45 00 
bed 50 4c . "plotr",O 
54 52.00 
I0f3 50 4c .by "plot",O 
54 00 
9bfB Ac 49 . "liner",o 
45 52 00 
9bfe Ac 49 "line",o 
45 00 
9c03 46 52 "frame" ,O 
Ad 45 00 
9.09 42 af 58 "box'',O 
© 
9cOd 43 49 52 "eircle",O 
43 4c 45 00 
9c14 41 de 47 520 “angle",O 
4 45 00 
9cla 43 4f 4c 521 “colblock",O 
42 Ac Af 43 Ab 00 
9c23 42 Ac Af 522 "block",O 
43 Ab 00 
523 
7c29 00 524 . [e} ;Tabellenabschluss 
525 
526 RESERVE2: 700+beflist-RESERVEZ 
527 . RESERVEZ 
Reserve fuer Befehle (Text): 
528 "Reserve fuer Befehle (Text):" 
o1Ac 
527 „00 RESERVEZ 
530 
9476 87 531  fk100: .by $97,348,0,0,0 


pifac: .by $7b,$0e,$fa,$35,$12 


;Tabelle der Adressen der Befehle & Funktionen 
befehle: „wa BBfre-i ;FREI % Funktionen 

“wa BBat-1 satt 

„wo BBhex-1 ;HEXS 

“wo BBdez-1 ;DEC 

„wo BBinkey-1 3; INKEV& 

„wo BBinstr-1 ; INSTR 

„wo BBstring-i ;STRINGS 

‚wa BBspaces-1 ;SPACES 

wo BBdreek-i ;DREEK 





Listing 4/6.4.4-3 (Teil 3) 
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9492 57 a5 544 .wo EBreek-1 ;REEK 
97494 74 a5 545 „wo BEdeek-1 ;DEEK 
dr de as 56 „wo BBst-1 ;ST$ 
9498 BL a7 547 „wo BBtime-i sTIre 
9d9a 38 ab 548 „wo BBtestr-1 3 
9d9c Al ab 549 „wo BBtest-1 ;TEST 

550 
9d9e 45 e5 551 “wo clrser-i ;ELS * Befehle 
9da0 75 8 552 „wo setzeichen-1 ;OLDCHAR 
9da2 ei fc 553 ‚wo reset-1 ;C64 
9dad4 ff 97 554 „wo BBxbasic-i ;XBASIC 
das e5 97 555 „wo BBinst-1 ;INST 
daB 53 a0 556 „wo BBdefchar-i ;DEFCHAR 
daa cc 9 537 ‚wo BBold-i ;OLDCHAR 
9dar 10 a5 558 „wo BBdroke-1 ;DROKE 
9dae dI a4 5597 ‚wo BBroke-1 ;ROKE 
9db0 e7 a4 580 „wo BBdoke-i ;DOKE 
sdb2 78 a4 S5el «wo BBauto-1 ;AUTO 
9db4 94 a5 5e2 „wo BBswap-i ;Swrr 
9dbb eb a5 563 „wo BBdir-i ;DIR 
9db8 Se as 564 “wo BBqload-i ;QLDAD 
9dba 83 a6 565 „wo BBeollect-1 ;COLLECT 
Fdbe b5 a6 566 „wo BBheader-1 ’ 
gFdbe 00 00 57 “wo oO ;Dummy fuer Befehl 32 
dc db ad 568 „wo BBrename-i ;RENME 
7dc2 b8 a6 567 ‚wo BBscratch-1 ;SORATCH 
9dc4 ac ab 570 ‚wo BBinitial-1 ; INITIALISE 
9dc& de a5 51 „wo BBsetdatnr-1 ;SETDATIR 
adeB 34 a7 572 “no BBpause-1 E 
Idea ea a7 573 “wo BBsettime-1 ;SETCLOCK 
9dce 7a aB 574 „wo BBseteol-1 5 
9dce B2 aß 575 „wo BBlineinput-1 zLINEINPUT 
9ddO di aß 576 „wo BBlineindev-i ;LINEINPUT# 
9dd2 18 a9 577 „wo EBdrawmode-i1 ;DRAWMODE 
add4 f7 a8 578 ‚wo BBöorder-1 ;BORDER 
Fddb Od a9 577 „wo BBink-i ;INK 
9dd8 02 a9 580 „wo BBpaper-i ;PAPER 
9dda Zc a9 sel „wo BBpencil-1 ;PENCIL 
9dde 73 39 582 .wo BBgrafon-i ;GRAFON 
9dde 07 aa 583 „wo BBgrafoff-1 ;GRAFOFF 
FdeO da a9 584 „wo BBgrafcir-i ;BRAFELR 
Fde2 co a9 585 “wo BBmultion-i1 ;MATION 
9de4 f4 aa 586 „no BEmover-i ;MOVER 
des cc aa 587 „wo BBmove-1 ;MOvE 
9deB 77 ab 588 .wo BBplotr-1 ;PLOTR 
9dea 74 ab 589 „wo BBplot-1 ;PLOT 
Fdec Sb ac 570 „wo BBliner-i ;LINER 
dee 53 ac se „wo BBline-1 ;LINE 
Fdto 92 ad 572 “wo BBframe-i ;FRAE 
adt2 f3 ad 595 „wo BBbox-1 ;B0X 
Hdtf4 Id af 594 „wo BBcircle-i ;LIRCLE 
Fdf& 8c bi 595 “wo BBangle-1 ;ANGLE 
Fdfs Al b3 576 „wo BBcolblock-i ;COLBLOCK 
9dfa e7 ae 597 „wo BBblock-i ;BLOCK 

598 

597 RESERVES: „eq 300+befehle-RESERVES 

609 „db RESERVES 
Reserve fuer Befehle (Tab ): 

E01 „tx "Reserve fuer Befehle (Tab ):" 
00bO 

602 „oo RESERVES 
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6.4 Basic-Erweiterungen beim C64 Teil 4: Software-Erstellung 


In der Version 1.1 hatten wir die Token-Wandelroutine bereits auf Tabellen über 256 
Byte Länge eingestellt, da sich die Tabelle dieser Grenze rasch näherte. In dieser Ver- 
sion wird diese Länge nun endgültig überschritten. Daher müssen wir auch den 
LIST-Befehl an die veränderten Bedingungen anpassen. Dies ist aber keinesfalls 
schwer: 


— 

















3 —————— — — 
4 5 Neue LIST Routine == 
5 MT — - 
gear 10 64 & list: bpl normlisti ;kein Token 
geae 48 7 pha jazg auf befehlsliste setzen 
geaf a9 ba 8 ida #<beflist 
Febl 85 fb 9 sta azg 
geb3 39 9a 10 lda #>beflist 
geb5 85 fc 11 sta azg+1 
9eb7 68 12 pla 
gebB «9 d2 13 cmp #xtoken 
geba do 59 ı4 bne normlist2 ;kein XBASIC Befehl 
gJebe 24 Of 15 bit s$f ;Hochkomma 7? 
gebe 30 52 16 bmi normlisti sja 
9ecO c8 17 iny ;XBASIC Nummer holen 
gecı bi 5f 18 lda ($5f),y 
gec3 aa 19 tax ;Nummer in X bringen 
vecd4 84 49 20 sty 349 ;Y merken 
gech a0 00 21 ldy #0 ;Befehlswort suchen 
ec ca 22 suchbef:  dex ;Nummer-1 
gec9 fO 13 23 beq foundbef ;Befehlswort gefunden 
9ecb c8 24 nextbef: iny snaechstes Befehlswort suchen 
gecc bi fb 25 Ida (azg),y 
gJece do fb 26 bne nextbef 
gedO 38 2% sec 
Fedı 98 28 tya 
9ed2 a0 00 29 ldy #0 
gJed4 85 fb 30 adc azg 
ged& 85 fb 31 sta azg 
7edB 90 ce 32 bee suchbef 
geda 86 fc 3 inc azg+1 
9edce dO ea 34 bne suchbef jweitersuchen 
Jede bi fb 35 foundbef: Ida fazg),y ;Ausgabe des Befehlswortes 
geeO 30 08 36 bmi oldnew 
Fee2 FO 34 37 beq normlist3 
Feed 20 47 ab 38 Jsr $3647 ;Ausgabe des Zeichens 
Jee7 c8 37 iny 
gee8 dO fA 40 bne foundbef 
A 
Jeea 84 02 42 oldnew: sty xmem ;Ausgabe alter Basic-Befehle 
geec 38 43 sec ;Tokennummer ermitteln 
Jeed e9 7f 44 sbe #677 
geef aa 45 tax 
sefO a0 ff A& ldy #$sff 
set2 ca 47 wsoldbef: dex ;Text suchen 
ref3 fo 08 48 beq suoldbef 
Jets c8 47 soldbef: iny 
Jetb 69 9e a0 50 ida $309e,y 
gef? 10 fa 5ı bpl soldbef 
getfh 30 #5 52 bmi wsoldbet 
Fetfd cB 55 suoldbef: iny ;Befehlswort ausgeben 
gJefe b9 9e a0 54 lda $309e,y 
Ff01 30 05 55 bmi weiter 
Ir03 20 47 ab 56 Jsr $ab47 ;ein Zeichen ausgeben 2 
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906 do #5 bne suoldbef 
Fr0B 27 7 and #47? }letzten Buchstaben 

Ff0a 20 47 ab jsr $ab47 jausgeben 

Prod a4 02 1dy xmem jund weiter bei der neuen ausgabe 
Or cB iny 

Fr10 dO ce öne foundbet 


sf12 ıc f3 ad normlisti: jmp $a6f3 ;Ruecksprung in die normale List-Routine 
915 Ac Ic a7 normlist2: jmp $a7lc 

Frt18 34 497 normlist3: ldy $47 

Ffla Ac fo ab Jmp $asf6 





Listing 4/6.4.4-4 (Teil 2) 


Wenn wir nun noch in der Basic-Einschaltmeldung die Versionsnummer von 1.1 in 
1.2 ändern, können wir uns endlich den Grafikbefehlen zuwenden. 


4/6.4.4.1 


BORDER X 








Der BORDER-Befehl ist sehr einfach. Mit der Routine <getbyte> holen wir uns 
einen Wert zwischen Null und 255. Dieser Wert wird nun getestet, ob er die zulässige 
Höchstgrenze von 15 überschreitet. In diesem Fall wird der Fehler „Illegal Quan- 
tity” geliefert. Andernfalls kann der Wert als Rahmenfarbe in das zuständige Regi- 
ster des VIC geschrieben werden. 











- XBASIC-Befehl: BORDER Col 





3 

BBborder: jsr getbyte ;Rahmenfarbe holen 
cpx #16 
bes nocol 5?>=15 -> ERROR 
stx vic+32 zund setzen 
rts 


aut8 20 5599 
a8fb eO 10 


adfd bO 29 
s8ff Be 20 do 
3902 &0 


FROONEnmPU 
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416.4.4.2 


PAPER X 





Der PAPER-Befehl macht genau das Gleiche für die Hintergrundfarbe. Auch für 
diese Farbe ist ein Register im VIC zuständig, dem nur der entsprechende Farbwert 
mitgeteilt werden muß. 





5777 XBASIC-Befehl: 


3903 20 55 99 15 BBpaper : jsr getbyte sHintergrundfarbe holen 


2906 &0 10 16 epx #16 
3908 bO 1e 17 bes nocal 5>=15 -> ERROR 
a90a Be 21 JO 18 stx vict33 sund setzen 
arg 60 19 rts 

20 





Listing 4/6.4.4.2 


4/6.4.4.3 


INK X 





Für die Textfarbe existiert kein Register im VIC, da die Textfarbe für jeden Buch- 
staben einzeln festgelegt werden kann. Die Farbinformation steht im Farbspeicher, 
und wird bei einer Ausgabe vom Betriebssystem des C64 in den Farbspeicher 
geschrieben. Die aktuelle Textfarbe merkt sich dabei das Betriebssystem in der Spei- 
cherstelle mit der Adresse 646. Diese Speicherstelle wird von INK neu belegt, so wie 
es BORDER und PAPER mit den Registern des VIC gemacht haben. 
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21 m —— 
22 3——— XBASIC-Befehl: INK Col 
23 —— z— 
8708 20 55 99 24 ink: jsr getbyte ;Zeichenfarbe holen 





agll e0 10 25 cpx #16 
a913 DO 13 26 bes nocol 5>=15 -> ERROR 
2915 Se 86 02 27 stx 645 ;und setzen 
a918 60 28 rts 

27 
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4/6.4.4.4 


DRAWMODE X 





Um mit den Befehlen in der hochauflösenden Grafik sowohl Punkte setzen, als 
auch löschen zu können, wird mit dem Befehl DRAWMODE die Arbeitsweise fest- 
gelegt. Der Befehl selbst nimmt dabei’ nur ein Argument von 0 oder 1 entgegen, und 
wandelt es in den Wert 0 bzw. 128, indem das Bit 0 in das Bit 7 rotiert wird. Dieser 
Wert wird als Flagge gespeichert. 





5—— XBASIC-Befehl: DRAUMODE Mode ir 





; 
3919 20 55 9 BBdrawmode: jsr getbyte ;Zeichenmodus festlegen 
a9lc 0 02 cpx #2 

bes nocol ;DRAKMODE>L 

txa ;BitO -> Bit 7 

clc 

ror 

ror 

sta draumode ;speichern 

rts 


ldx #14 ;Illegal Quantity melden 
jmp fehler 
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4/6.4.4.5 


PEN X 





Der PEN-Befehl legt die verwendete Farbe im Multicolormodus fest. Beim Ein- 
schalten der Multicolorgrafik werden vier Farben angegeben, eine Hintergrundfarbe 
und drei Zeichenfarben. Mit dem Befehl „PEN’’ kann nun jede der vier Farben als 
Zeichenfarbe ausgewählt werden. 


Die Routine holt dazu zunächst einen Wert von 0 bis 3, der der gewünschten Farbe 
entspricht. Dieser Wert wird dann in einer Tabelle abgelegt, wobei die Farbinforma- 
tion nacheinander in den Bits 0..1, 2..3, 4..5 und 6..7 steht. Diese Tabelle wird benö- 
tigt, da in einem Byte max. 4 Punkte auftreten können. Für jeden dieser Punkte 
steht der Farbwert in der Tabelle ‚‚penbits’’. Die Tabelle ‚‚delbits’’ enthält die Werte, 
mit welchen genau die zum Punkt gehörenden zwei Bits aus einem Byte per AND- 
Befehl ausgeblendet werden können. 


5 XBASIC-Befehl: PEN Nr 





a92d 20 55 9 BBpencil: jsr getbyte ;Farbnummer holen 
3930 e0 04 cepx #4 >23? 

a932 bo f4 bes nocol ;Fehler melden 

3934 Ba txa ;In Accu 

37355 a2 © idx #0 ;4 mal 2XLinksschieben 
3957 99 43 a9 setpenbits:sta penbits,x jergibt Masken fuer die 
3933 Oa asl ;Farbe 

a95b Oa ası 

ac e8 inx 

39354 ©0 04 cpx #4 

af do fa bne setpenbits 

a4 80 rts 


2942 01 pen: „by i ;1 ist Einschaltfarbe 
@943 01 04 10 63  penbits: .by %01,%0100,%010000,401000000; Masken fuer Farbe 1 
40 

64  ;Masken fuer Ausblenden der Bits 
a947 fc #3 cf 65 delbits: .by 255-%11,255-41100,255-%1 10000 ,255-%11000000 
3r 
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4/6.4.4.6 


GRAFCLR 





Der Befehl GRAFCLR benötigt keine Parameter. Er löscht lediglich den 8 KByte 
großen Grafikbereich, der von $E000 bis $FFFF, also unter dem Kernal-ROM, liegt. 
Zum Löschen des Speichers werden zwei Zeiger verwendet, wobei mit dem ersten 
Zeiger die unteren 4 KByte, und mit dem zweiten Zeiger die oberen 4 KByte gelöscht 
werden. Dies beschleunigt die Arbeit etwas. 


Noch schneller ginge es, wenn man den Bereich seitenweise (also in 256-Byte Schrit- 
ten) löschen würde. Da dies jedoch 32 Befehle der Form „STA 
HIRESSEITE +xxx,Y’’ erfordern würde, wurde hier darauf verzichtet. 


GRAFCLR initialisiert außerdem noch den Grafikcursor mit (0,0), was der linken 
oberen Ecke entspricht. 


66 
67 
68 
69005 
3940 a0 0 70  BBgrafcir: ;Grafik Cursor auf Anfangspos. 
a94d 8c fa 03 71 
3950 8 tb 03 72 xcursti 
2953 8c fc 08 73 yeurs 
2 74 #>hiresseite ;azg auf Hiresseite 
295885 fc 75 azg+1 
95a 84 76 azg 
a95c 39 77 #>hiresseite+4096;a292 auf 2.Haelfte 
a9Se 85 78 azg2+1 


2960 84 79 azg2 

a962 a2 so #16 ;2X16 Seiten loeschen 
2964 98 E18 

2965 91 (azg),y ;zwei Seiten loeschen 
2967 91 (a292),y 

2969 c8 


96a do grafelr 

abc eb azg+i ;bis alle Seiten geloescht 
abe 6 azg2+1 

2970 ca 

3971 do grafelr 

2973 60 
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4/6.4.4.7 


GRAFON ZF,HF 





Mit dem Befehl GRAFON wird die hochauflösende Grafik eingeschaltet, und die 
Farben für Punkte sowie Hintergrund festgelegt. 


Der Befehl programmiert dazu den VIC auf die neue Betriebsart um. Dann sind 
eventuell vorhandene Spritezeiger zu retten, da diese Zeiger in Zukunft am Ende der 
Farbseite erwartet werden, die von XBASIC an anderer Stelle verwaltet wird (‚‚far- 
behires’’). Nun werden die Parameter eingelesen. Sie dürfen einen Farbwert von 15 
nicht überschreiten. Der Farbspeicher (,‚farbehires’’) wird anschließend mit dem 
Wert ZF*16+ HF gefüllt, was der Forderung entspricht, daß die Zeichenfarbe in den 
Bits 4..7, und die Hintergrundfarbe in den Bits 0..3 steht. Die Spritezeiger werden 
dann noch in den Farbspeicher übertragen. 


Sollte von der Multicolorgrafik auf die hochauflösende Grafik umgeschaltet wor- 
den sein, so muß außerdem noch der Farbspeicher für den Text restauriert werden. 
Dies erledigt die Routine <farben>, die später besprochen wird. 









? — & 
5 XBASIC-Befehl: GRAFON ZF,HR = 





2974 29283 95 BBgrafon: Ida #700101000 ;Hires Speicher festlegen 
2976 20 27 aa % jsr savesprite ;Spritezeiger retten 
2979 84 18 do 97 sta vic+24 

297 29 3 0 8 Ida #400111011 ;Hires einschalten 

3978 84 11 do ® sta vic+17 

3981 2c 18 03 100 bit colmode ;Farbmodus ? 

2984 1003 101 bpl grafon jnein 


3786 20 Sd aa 102 jsr farben ;Farbspeicher restaurieren 
a997 20 55 99 103 grafon: jsr getbyte ;Zeichenfarbe holen 

a78c e0 10 104 cpx #16 squeltig ? 

a98e bO Ze 105 bes nocol2 ‚nein, zu gross 

3990 86 fc 106 stx azg+l ;merken 

a992 20 45 997 107 jsr chkkom ;auf Komma testen 

39975 20 55 97 108 Jjsr getbyte ;Hintergrundfarbe holen 
2998 @0 10 109 cpx #16 ;queltig ? 

379a Ba 110 txa 

a97b bo 21 141 bes nocol2 jnein, zu gross 

3994 06 Fe 112 asl azg+i ;Zeichenfarbe * 16 

a9T7f 06 fc 113 ası azg+1 

a9al 06 fc 114 asl azg+ı 

afas 06 fc 115 asl azg+1 

a9a5 05 fc 116 ora azg+1 ;+Hintergrundfarbe 

2927 20. cB 117 ldy #>farbehires ;sazg auf Farbram setzen Ei 
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3929 B4 fc 118 sty azg+l 
39ab a2 04 119 ldx #4 ;4 Seiten setzen 
a9ad a0 00 120 ldy #0 
a9atf 84 fb 121 sty azg 
a9bi 9 fb 122 setcol: sta (azg),y jeine Seite setzen 
a703 c8 123 iny 
a9b4 do fb 124 bne setcol 
a9bb eb fc 125 inc azg+1 ;bis alle Seiten gesetzt. 
a9b8 ca 126 dex 
2969 do f& 127 bne setcol 
a9bb 4c 40 aa 128 JImp loadsprite ;Spritezeiger wieder setzen 
127 
a9be 4c 28 89 130 nocol2: Jmp nocal 


131 








Listing 4/6.4.4.7 (Teil 2) 


4/6.4.4.8 


MULTION HF,F1,F2,F3 





Um die Multicolorgrafik einzuschalten, benötigt man den Befehl MULTION. Mit 
ihm werden zusätzlich die vier möglichen Farben festgelegt, wobei die erste Farbe 
der Hintergrundfarbe entspricht. Bei der Multicolorgrafik wird der normale Farb- 
speicher für die dritte Farbe verwendet. Um beim zurückschalten in den Textmodus 
die Farben zu erhalten, muß der Farbspeicher in einen anderen Bereich gerettet wer- 
den. Dies übernimmt ebenfalls die Routine <farben>. 


Der Befehl rettet also zunächst die Farben und die Spritezeiger. Dann wird die erste 
Farbe eingelesen und als Hintergrundfarbe gesetzt. Da die nächsten zwei Farben 
genau wie bei der hochauflösenden Grafik zu setzen sind, wird diese Routine von 
MULTION benutzt („JSR GRAFON’’). Anschließend bleibt nur noch der dritte 
Farbwert in den Farbspeicher zu schreiben. 


Der VIC kann dann auf die Multicolorgrafik umprogrammiert werden. 


22 
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133 57 XBASIC-Befehl :MLTION HF ,F1,F2,F3 — 
134 ee Daaaer= rung = 
135 BBmaultion: bit colmode ;Farbmodus 
136 bmi nfms ;ja 
137 jsr farben ;Farbspeicher retten 
138 nfm3: jsr getbyte ;Hintergrundfarbe holen 
137 jsr savesprite ;Spritezeiger retten 
140 cpx #Bi& ;queltig ? 
1a1 bes nocol2 jnein 
142 stx vic+33 ;Farbe setzen 
143 Jjsr chkkom ;Farbe 1 & 2 setzen 
144 jsr grafon 
145 Jsr chkkom ;Farbe 3 holen 
146 jsr getbyte 
147 epx #16 squeltig ? 
148 bes nocol2 jnein 
149 ldy #0 ;in Farbspeicher setzen 
150 txa 
151  setcolS: sta farbram,y ;Byte 0..255 setzen 
152 sta 256+farbran,y ;Byte 256. .511 setzen 
155 sta 256%2+farbram,y;Byte 512..767 setzen 
154 sta 256%3+farbram,y;Byte 768..1023 setzen 
155 iny 
156 bne setcol3 
157 Ida #700101000 ;Hires Speicher festlegen 
158 sta vic+24 
157 Ida #700111011 ;Hires einschalten 
160 sta vic+17 
i6i ida #411000 ;Farbmodus festlegen 
sta vic+22 
rts 





2c 
30 
20 
20 
20 
eo 
bo 
Be 
20 
20 
20 
20 
eo 
bo 
a0 
Ba 
” 
” 
2 
7 
c8 
do 
a9 
Bd 
a7 


® 


ey: 
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4/6.4.4.9 


GRAFOFF 





Mit dem Befehl GRAFOFF wird die Grafik wieder abgeschaltet, egal, ob Sie die 
Multicolorgrafik oder die hochauflösende Grafik eingeschaltet hatten. GRAFOFF 
muß ggf. die Farben restaurieren, was wieder von der Routine <farben> erledigt 
wird. Dann wird der VIC wieder auf die normale Textdarstellung umprogrammiert, 
und die Flagge für die Farbgrafik gelöscht. Die geretteten Spritezeiger werden 
wieder in die Textseite eingesetzt. 
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Das Label „‚dografoff”’ bildet den Einsprung von der Eingabe-Warteschleife, um bei 
Fehlern oder am Programmende automatisch wieder auf die Textseite umzuschal- 
ten. Es ist hier zwar mit „BBgrafoff” identisch, hat aber ein eigenes Symbol be- 
kommen, um während der Entwicklungsarbeit diese Automatik leicht außer Kraft 
setzen zu können. Wenn sie also interaktiv Grafikbefehle testen wollen, setzen Sie 
einfach ein RTS hinter das Symbol. 





165 gm - —— 
166 577- XBASIC-Befehl: GRAFOFF 
16703 - ——— 
168 dografoff: ;GRAFOFF bei Fehler oder END 
169 

aa08 2c f8 03 170 BBgrafoff: bit colmode ;Farbmodus 

aa0b 10 03 171 bpl nfm2 jnein 

aa0d 20 Sd aa 172 jsr farben ;Farbspeicher ruecksetzen 

aal0 39 00 173  nfm2: lda #0 ;Farbmodus abschalten 

aal2 Bd fB 05 174 sta colmode 

aal5 a9 36 175 Ida #700110110 ;Normale Speicherbelegung 

aal7 8d 18 dO 176 sta vic+24 

aala a9 1b 177 Ida #700011011 ;Text einschalten 

aalc &d 11 dO 178 sta vic+17 

aalf 39 08 177 lda #%1000 

aa2l Bd 16 dO 180 sta vic+22 

aa24 4 40 aa 181 Jmp loadsprite ;Spritezeiger ruecksetzen 
182 
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Retten der Spritezeiger 


Die Routinen <savesprite> und <loadsprite> dienen dem Retten und Setzen 
eventuell vorhandener Spritezeiger. Von <savesprite> werden die Spritezeiger in 
den 8 Byte langen Bereich ab „‚spritezeig” gerettet. Dies geschieht jedoch nur, wenn 
sich der VIC noch in der Textdarstellung befindet, da sonst durch mehrfache Auf- 
rufe von GRAFON die Information verlorenginge. z 


Mit <loadsprite> werden die Spritezeiger wieder zurückgesetzt, und zwar sowohl 
in die Textseite, als auch in die Farbseite für Grafik. Die Spritezeiger bleiben also 
in Textdarstellung und im Grafikmodus gültig. 


2 
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;- Spritezeiger retten/setzen 





; 
savespriterpha ;3A/Y retten 
tya 
pha 
lda vic+24 ;Grafik an ? 
cmp #700110110 
beq unsavesp ;ja 
ldy #7 ;8 Zeiger aus textseite 
lda textseite+1024-8,y;speichen 
sta spritezeig,y 
dey ;bis alle Zeiger gespeichert 
bpl savespd 
unsavesp: pla ;A/Y restaurieren 
tay 
pla 
rts 


loadsprite:pha ;A/Y retten 

tya 

pha 

ldy #7 ;8 Spritezeiger aus Puffer in 
loadspd: lda spritezeig,y ;textseite und 

sta textseite+1024-8,y; farbehires bringen 

sta farbehires+1024-8,y 

dey 

bpl loadspd 

pla ;A/Y restaurieren 

tay 

pla 

rts 


spritezeig:.db ;Platz fuer 8 Spritezeiger 





Listing 4/6.4.4.9 (Teil 2) 


Retten der Farbinformation 


Die Routine <farben> wurde schon häufig angesprochen. Sie soll sowohl den 
Farbspeicher in den Bereich „farbmem’’ retten, als auch die Farben aus diesem 
zurückholen. Dies wird erreicht, indem die beiden Inhalte miteinander vertauscht 
werden. Dabei kann man ausnutzen, daß der Farbspeicher des C 64 aus einem 
zusätzlichen Speicherbereich von einem KByte mit nur 4 Bits besteht. Man kann 
den gesamten Farbbereich also in einem 512 Byte umfassenden Puffer retten, indem 
man jeweils zwei Farbinformationen zu je 4 Bit in einem Byte zusammenfaßt. 
Genau dies wird hier getan. 
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Zusätzlich wird noch die Hintergrundfarbe auf die gleiche Weise gerettet bzw. 
zurückgeholt, da diese bei der Multicolorgrafik verändert wird. 























ZB ;—— - = 
219  ;- Farbram in/aus Puffer retten/holen — 
20 a _— nn 

aasd a? © 221 farben: lda #<farbram ;azg auf Farbram 

aa5f 85 fb 222 sta azg 

aabl a9 dä 223 lda #>farbram 

aad3 85 fc 224 sta azg+i 

aa65 a9 00 225 Ida #<colmem jazg2 auf colmem 

aa67 85 fd 226 sta azg? 

aa69 a9 06 227 lda #>colmem 

aadb 85 fe 228 sta azg2+1 

aacd a0 00 229 transcols: ldy #0 ;Zwei Nibble aus Farbram holen 

aasf b1 fd 230 ida (azg2),y ;Byte in colmem auf Stack 

aa7ı 48 231 pha 

aa72 bi fb 232 lda (azg),y jerstes Nibble in Bit 4..7 

aa74 0a 233 asl 

aa75 0a 234 asl 

aa76 0a 235 as] 

aa77 0a 2356 ası 

aa78 &d Sc 03 2357 sta mem ;smerken 

aa7b c8 238 iny 

aa7c bil fb 239 lda (azg),y ;zweites Nibble in Bit 0..3 

aaje 29 Of 240 and #%1111 

aa80 Od Sc 03 241 ora mem ;zweites Nibble einblenden 

aa83 88 242 dey 

aaß4 91 fd 243 sta (azg2),y ;in colmem speichem 

aadh 68 244 pla ;Byte aus colmem in Accu 

3387 48 245 pha 

aa8a da 246 lsr ;Bit A..7 in Farbram speichern 

aa87 4a 247 lsr 

aaBa 4a 248 lsr 

aa8b 4a 247 lsr 

aadc 9 fh 250 sta (azg),y 

aade c8 251 iny ; ;Bit 0..3 in Farbram speichern 

aaßf 68 252 . pla 

aa90 91 fb 253 sta (azg),y 

aa92 86 fd 254 ine azg2 ;Zeiger auf colmem +1 

aa74 dO 02 255 bne cc 

aa96 eb fe 256 inc azg2+i 

aa98 18 257 cc? clc ;Zeiger auf Farbram +2 

aa97 a5 fb 258 lda azg 

aa9b 67 02 257 adc #2 

aayd 85 fb 260 sta azg 

aayf 70 02 261 bee cc2 

aaal &6 fc 262 inc azg+i 

aaas 35 fc 268  cc2: lda azg+1 ;Ende des Farbspeichers erreicht ? 

asas c7 de 264 cmp #> farbram+1024 

aaa? dO c4 265 bne transcols jnein 

aaa? ad fB 03 266 ida colmode ;Marke fuer Farbmodus umdrehen 

aasac 49 80 267 eor #128 

aaae Bd f8 03 268 sta colmode 

aabl ad cO aa 269 lda heol ;Hintergrundfarbe in heol speichern 

aab4 48 270 pha 

aab5 ad 21 dO 271 ida vic+33 ;und hcol als Hintergrundfarbe setzen 

aab8 8d cO aa 272 sta hcol 

aabb 68 273 pla 

aabe Bd 21 do 274 sta vic+33 

asbf &0 275 rts 
276 £ 

aacO 00 277 heol: „by oO ;Speicher fuer Hintergrundfarbe 
278 
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4/6.4.4.10 


MOVE X,Y 





Der Befehl MOVE dient dem Setzen des Grafikcursors. Da dies dem Einlesen eines 
Koordinatenpaares entspricht, wie es von vielen Befehlen benötigt wird, wird die 
Routine zusätzlich mit dem Symbol ‚‚getgkoor’’ versehen. 


Die Routine holt sich das Koordinatenpaar als Adresse und Byte, wie es z.B. der 
Befehl ROKE tut. Dieses Paar wird auf den zulässigen Bereich überprüft, d.h. die 
Y-Koordinate darf den Wert 199 nicht überschreiten, und die X-Koordinate den 
Wert 319 in hochauflösender Grafik, bzw. den Wert 159 in Multicolorgrafik nicht 
überschreiten. 


Ist das Koordinatenpaar gültig, wird es gespeichert. 


— Koordinatenpaar einiesen 
& XBASIC-Befehl: MOVE X,Y 





aaci a5 ® lda #15 ;X > 159 ? 
aacy dO bne nocol3 ;ja, Fehler 
aacs 35 lda #14 

aac7 c9 emp #160 

aac9 bO bes nocolS ;ja, Fehler 
aacb 90 bec xok jmein, X ok 


jsr getadby 5X und Y holen 

cpx #200 ;Y <200 ? 

bes nocolS ;nein, Y zu gross 
bit colmode ;Farbmodus ? 

bmi koor1&0 ;ja 

lda $15 ‚x < 5127? 

beq xok ;(<256 passt immer) 
emp #2 

bes nocol3 snein 

ida #14 

emp #<320 ı< 320 ? 

bes nocol3 jnein 

stx ycurs ;Koordinaten speichern 
lda $14 

sta xcurs 

lds #15 

sta xcurs+i 

rts 
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4/6.4.4.11 


MOVER X,Y 





Manchmal ist es aber auch nützlich, die Koordinaten relativ zu den letzten Koordi- 
naten anzugeben. Dies ermöglicht die Routine <getrgkoor>, die dem MOVER- 
Befehl entspricht. Die Routine holt zwei Integerzahlen, und addiert diese zu den 
bisherigen Koordinaten. Die Y-Koordinate wird dabei bereits auf den zulässigen 
Bereich überprüft. Das Überprüfen der X-Koordinate wird von der Routine für das 
absolute Setzen übernommen, welche die restliche Arbeit verrichtet. 


310  BBmover: jrelative Koordinaten holen 
311 getrgkoar: jsr getinteger ;Integer holen 
312 cle ;Wert + X-Koordinate 
313 tya ;Low 
314 adc 
315 sta mem ;merken 
S16 txa ;High 
317 ade xcurs#i 
318 sta mem+1 jmerken 
319 jsr chkkom ;Integer holen 
320 Jsr getinteger 
321 eic . 
322 tya 
323 ade ycurs 
324 sta memt2 ;speichern 
325 txa 
sdc #0 
cmp #0 
bne nocol3 ;Y>199 -—> Fehler 
ldx mem+2 ;Weiter bei den absoluten 
lda mem ;Koordinaten 
sta $14 
lda mem+i 
sta $15 
mp setgkoor 


;+ Y Koordinate 


BRAGSSREPRESEN 


getinteger:jsr frmevi zarithm. Ausdruck holen 
id» #60 ;in Integer wandeln 
jsr basicrom ;Integer in Y/X 
tax 
rts 


Jmp nocol 
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6.4 Basic-Erweiterungen beim C64 Teil 4: Software-Erstellung 


4/6.4.4.12 


A=TEST(X,Y) / A=TESTR(X,Y) 





Die Funktion TEST liefert die Farbe des Punktes mit den Koordinaten (X,Y) 
zurück. Je nachdem, ob TEST oder TESTR aufgerufen wird, werden die Koordina- 
ten absolut oder relativ angegeben. Die Befehle unterscheiden sich nur in der Ver- 
wendung der Routine <getgkoor> bzw. <getrgkoor>. 


In der hochauflösenden Grafik ist der Befehl sehr einfach: die Routine <makezg> 
wird aufgerufen. Sie liefert in „‚azg’’ einen Zeiger auf das Byte, in dem der Punkt 
liegt. In „azg2+1”’ liefert sie den Wert unter dieser Adresse, und in „azg2’”’ die 
Maske, in der genau das Bit gesetzt ist, das dem Punkt entspricht. Durch AND- 
Verknüpfung von „azg2’” und „azg2+1”’ kann so festgestellt werden, ob der Punkt 
gesetzt ist. Je nach Ergebnis wird dann Null oder Eins als Ergebnis geliefert. 


In der Multicolorgrafik kann das Ergebnis einen Wert zwischen Null und drei 
haben. Die Routine <makezg> liefert wieder die bekannten Daten. Zusätzlich 
steht nun im X-Register die Nummer der Maske. Durch Division durch zwei erhält 
man den Offset für die bei PEN definierte Tabelle. Nun wird der Bytewert (in 
„azg+1’’) solange um zwei Bit nach rechts geschoben, bis der Farbwert des Punktes 
in den unteren zwei Bit steht. Die restlichen Bits werden gelöscht, und der so erhal- 
tene Wert zurückgeliefert. 











za 5; m — m _ 
345  ;-—— XBASIC-Befehl: A=TEST(X,Y) = 
a 
ab39 20 73 00 347 BBtestr: jer chrget ;relative Koordinaten holen 
abSc 20 f5 aa 348 jsr getrgkoor 
abSf Ac 48 ab 349 jmp testbef jund testen 
350 
ab42 20 73 00 351 BBtest: jsr chrget ;Koordinaten holen 
ab45 20 cd aa 352 jsr getgkoor 
ab48 20 35 99 353 testbef: jsr chkklazu sauf ')' testen 
ab4b 20 aa ab 354 jsr makezg .  ;Pointer berechnen 
ab4e 2c fB 03 355 bit colmode ;Farbmodus 7 
ab5ı 1015 3% bpl hirestst jnein 
ab53 8a 357 txa ;Maskennummer in A 
ab54 4a 358 lsr 3/2 
2b55 aa 357 tax sin X 
ab56 35 fe 360 lda azg2+1 ;lWert von (Painter) 
ab58 ca 361 schiebe: dex jrechtsschieben “ 
ab5? 3005 362 bmi schiebeend ;bis signifikante Bits 
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ab5b 4a 363 lsr zin Bit 0/1 
ab5c 4a 364 lsr 
ab5d A4c 58 ab 365 Jmp schiebe 
ab&O 29 03 366 schiebeend:and #%11 ;andere Bits ausblenden 
ab&2 a8 367 tay ;A/Y ist Ergebnis 
ab&s3 a9 00 368 Ida #0 
ab65 4c 53 al 369 jmp ergebnis 
370 
ab6ö8 a5 fe 371 hirestst: Ida azg2+ı 5Wert von (Pointer) 
abba 25 fd 372 and azg2 ;AND mit Maske 
ab&c do 03 373 bne coleins Farbe 1 
abbe a0 00 374 ldy #0 ;0 liefern 
ab70 2c 375 bit 
ab71l a0 O1 37& coleins: ldy #1 ;i liefen 
ab73 27 00 377 lda #0 
ab75 4c 53 al 378 jmp ergebnis 
379 





j 
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4/6.4.4.13 


PLOT X,Y / PLOTR X,Y 





Mit den Befehlen PLOT und PLOTR kann ein Punkt auf dem Bildschirm gesetzt 
werden. Die Befehle unterscheiden sich wieder nur durch die Verwendung der Rou- 
tine <getgkoor> bzw. <getrgkoor>. Die Routine <makezg> liefert wieder die 
oben beschriebenen Daten. 


In der Multicolorgrafik werden die dem Punkt entsprechenden Bits ausgeblendet, 
und die Farbbits per OR eingefügt. Dies ist relativ einfach, weil man mit Hilfe des 
Wertes im X-Register auf die bei PEN definierten Tabellen zugreifen kann. 


In der Hiresgrafik wird zum Setzen des Punktes die Werte in „azg2’’ und „azg+1’’ 
OR-verknüpft. Zum Löschen des Punktes wird die Maske erst inveriert, und dann 
mit dem Wert in „azg2’”’ AND-verknüpft. 
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= 











0 — 
381 5707 XBASIC-Befehl: PLOT X,Y — 
382 = u _ alu. 
ab78 20 f5 aa 383 BBpiotr: Jsr getrgkoor ;relative Koordinaten lesen 
ab7b 4c B1 ab 384 Jmp plot ;Punkt setzen 
385 
ab7e 20 cd aa 386 BBplot: jsr getgkoor 3Punkt setzen 
abE1 20 aa ab 397 plot: jsr makezg jAdresse in azg bringen / Maske in az 
sb84 2 fB 05 388 doplot: bit colmode ;Farbmodus ? 
3087 10 Oe 389 bpl hires snein 
abB9 Ba 3 txa ;Maskennummer/2 in X 
ab8a 4a Ss lsr 
ab8b aa 392 tax 
abBc a5 fe 393 lda azg?+1 jWert von (Pointer) 
ab3e Id 47 39 394 and delbits,x ;Bits loeschen 
ab91 id 43 a9 395 ora penbits,x ;PEN-Bits einhlenden 
ab94 91 fb 39& sta (azg),y ;Punkt setzen 
abPh &0 397 rts 
398 
ab97 a5 fd 39 hires: lda azg2 
ab99 2c 19 03 400 bit draumode ;Draumode ist setzen ? 
ab9c 30 05 401 bmi deimode ;nein 
abe 05 fe 402 ora azg2+1 ;Bit setzen 
aba0 91 fb 403 sta (azg),y ;Punkt setzen 
aba2 &0 404 rts 
abas 49 ff 405  deimode: eor #$ff ;Maske invertieren 
aba5 25 fe 406 and azg2+i ;Bit loeschen 
aba? 91 fb 407 sta (azg),y ;Punkt loeschen 
aba9 60 408 rts 
4097 





ee mau ne nn ee eh 
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Die Routine MAKEZG 


Hier folgt nun die bereits vorgestellte Routine <makezg>. Sie berechnet den Zeiger 
in „azg’’ und die Maske in „azg2’” nach den Formeln: 





azg := hiresseite+320*int(Y/8)+(Y and 7)+8*int(x/8) 
azg2:=255-2°(7(x and 7)) 





Dann wird der Wert von (azg) in „azg2+1”’ abgespeichert. Die Maskennummer in 
X entsteht dabei zwangsläufig, da die Maske mit Hilfe des X-Registers aus einer 
Tabelle ausgelesen wird. 
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410  ;- — 
all ;-— Berecmet aus Koordinaten Zeiger — 
412  ;-— auf Grafikbyte in azg, Bitmaske — 
413 ;—— in azg2 und Bytwert in azg2+H1 — 
414 3 = Ser =, 
abaa 2c fB 05 415 makezg: bit colmode ;Farbmodus ? 
abad 10 10 ald bpl makezgl ;nein 
abaf Oe fa 03 417 asl xcurs ;X-Koordinate #2 
abb2 Ze fb 05 418 rol xcurs#+1 
abb5 20 bf ab 419 Jjsr makezgl ;Zeiger berechnen 
abb8 de fh 03 420 lsr xcurs+1 ;%X-Koordinate /2 
abbb se fa 03 421 ror xcurs 
abbe 60 422 rts 
4235 
abbf ac fc 05 424 makezgl: ldy ycurs ;INT(Y/8B) 
abc2 98 425 tya 
abe3 4a 426 lsr 
abc4 4a 427 lsr 
abc5 4a 428 lsr 
abc6 aa 427 tax 
abc7 bd 16 ac 430 lda mulhi,x 
abca 85 fc a31 sta azg+1 3>320OX INT (Y/8) 
abec Ba 432 txa 
abed 27 03 433 and #3 ;Bits 2..7 loeschen 
abcf aa 434 tax 
abdO bd SO ac 435 lda mullo,x 
abd3 85 fb 4356 sta azg 3 <S320X INT (Y/B) 
abd5S 98 437 tya ;Y Koordinate 
abd& 29 07 438 and #7 sAND 7 
abd8 18 437 elc 
abd9 65 fb 440 adc azg ;Offset Y = 320XINT(Y/B)I+lY AND 7) 
abdb 85 fb aa sta azg 
abdd ad fa 03 442 lda xcurs 
abeO 29 18 445 and #+f8 
abe2 85 fe 444 sta azg2+1 ;Offset X = BXINT(X/8) 
abe4 a9 e0 445 lda #>hiresseite ;Hiresseite 
abes 05 fc 446 ora azgt+i 
abe8 85 fc 447 sta azgtl 
abea 18 a8 elc ;Adresse-Seite +0ffset X +Dffset Y 
abeb a5 tb 449 lda ag 
abed 65 fe 450 ade azg2+1 
abef 85 fb ası sta azg 
abfl a5 fc 452 lda azg+i 
abf3 dd fb 03 453 adc xcursti 
abf&6 85 fc 454 sta azg+i 
abf8 ad fa 05 455 lda xcurs 
abfb 27 07 as and #7 
abfd 49 07 457 or #7. 37-1X AND 7) 
abff aa 458 tax 
ac0O bd 34 ac 459 lda masken,x ;Maske holen 
ac03 85 fd 460 sta azg2 jund speichern 
ac05 78 233 sei 
ac0a a9 34 462 lda #$34 sauf RAM umschalten 
ac08 85 O1 463 sta pp 
ac0a a0 00 464 ldy #0 ;Wert von (Pointer) 
acOc bi fb 465 lda (azg),y 
acde 85 fe 466 sta azg2+1 jmerken 
ac10 a9 36 467 lda #836 jwieder normale Speicherverteilung 
acı2 85 01 968 sta pp 
acı4 58 467 cli 
acı5 &0 470 rts 
471 
472 ;Tabelle x*320 u 
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aci6 00 01 02 473 mulhi: -by 0,1,2,3,5,6,7,8,10,11,12,13,15 

03 05 06 07 OB Oa Ob Oc Od of 

ac23 10 il 12 474 ‚by 16,17,18,20,21,22,23,25,26,27,28,30,31 
14 15 16 17 19 1a ib Ic 1e if 


475 
acso 00 40 80 476 mullo: .by 0,$40,$80,$c0 


co 
477 
478  ;Tabelle der Masken 
ac34 O1 02 04 479 masken: .Dy 1,2,4,8,$10,$20, 340,380 
08 10 20 a0 80 
480 
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4/6.4.4.14 


LINE X,Y / LINER X,Y 





Der LINE-Befehl zieht eine Linie von der letzten Grafikcursorposition zu der ange- 
gebenen Position. Bei dem LINER-Befehl werden die Koordinaten wieder relativ zu 
den letzten Koordinaten angegeben. 


Der LINE-Algorithmus ist nicht so einfach zu durchschauen. Dennoch soll er hier 
nicht weiter analysiert werden, da der LINE-Algorithmus bereits im Beitrag zur 3D- 
Grafik behandelt wurde, und auch in einem Grundlagenbeitrag vorgestellt werden 
wird. 


Im Prinzip wird der erste Punkt mit PLOT gesetzt, und dann durch vertikale und 
horizontale Schritte zum zweiten Punkt gewandert. : 


Für das Verständnis der weiteren Routinen ist nur wichtig zu wissen, daß eine Linie 
zwischen den Koordinaten (xcurs,ycurs) und (xcurs2,ycurs2) gezogen wird, und zwar 
in beiden Auflösungen. 
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482 3— XBASIC-Befehl: LINE X,Y Ei 
483 ; 
484  linemem: „eg 87 stemporaerer Zwischenspeicher fuer LINE 
485 
acsc ad fa 03 486 BBliner: lda xcurs salten Grafikcursor retten 
acsf Bd fd 035 487 sta xcurs2 
aca2 ad fb 03 488 lda xcurs+1 
ac45 Bd fe 05 489 sta xcurs2+1 
ac48 ad fc 03 490 lda ycurs 
acab 8d ff 03 491 sta ycurs?2 
acde 20 f5 aa 492 jsr getrgkoor ;Zielkoordinaten relativ lesen 
acsi 4c 69 ac 493 jmp line 
494 
ac54 ad fa 05 495  BBline: lda xcurs ;alten Grafikcursor retten 
ac57 Sd fd 05 49& sta xcurs2 
acsa ad fb 03 497 lda xcurs+i1 
acıd 84 fe 03 498 sta xcurs2+i1 
ac60 ad fc 03 499 1da ycurs 
ac63 Bd ff 03 500 sta ycurs2 
achb 20 cd aa Kl jsr getgkoor ;Zielkoordinaten absolut lesen 
502 
ac6? 20 Bi ab 503 line: jsr plot ;Punkt setzen 
achc 86 Se 504 stx linemem+7? ;Maskennummer merken 
505 
arde 78 56  coloffli: sei sauf RAM schalten 
achf a9 34 507 Ida #834 
ac71 85 O1 508 sta pp 
ac73 ad fd 03 509 Ida xcurs2 3X2-X1 
ac76 38 S10 sec 
3c77 ed fa 03 511 spe xcurs 
ac7a 48 512 pha 
ac7b ae fe 03 513 ldx xcurs2+1 
ac7e Ba 514 txa 
ac7f ed tb 03 515 sbc xcurs#+1 
3c82 85 5a 516 sta linemem+3 ;speichern 
ac84 bO Da 517 bes vorzw ;Ergebnis negativ ? 
acdb 68 518 pla jja 
ac87 49 ff 517 eor #$ff 
acB9 69 O1 320 ade #1 
acBb 48 521 pha 
acBe a9 00 522 ida #0 
acde e5 5a 525 sbe linemem+S ;Vorzeichen wechseln 
ac90 85 58 524 vorzwi sta linemen+l 3PX2-X1L 
3-92 85 5c 525 sta linemem+5 
ac94 68 526 pla 
ac95 85 57 527 sta linemenm SCK2-X1 
ac97 85 Sb 528 sta linemem+4 
ac99 ad ff 03 529 lda ycurs2 
ac9c 18 530 clc sY2-V1 
ac9d ed fc 03 331 sbc ycurs ;Ergebnis negativ ? 
aca0 9004 532 bee negat 
aca2 49 ff 533 sor ##tf ;nein 
aca4 69 fe 5354 adc #$fe ;Vorzeichenwechsel 
acab 85 57 535 negat: sta linememt2 sY2-Yı 
acaB 66 3a 556 ror linemem+3 3 (X2-X1)7/2 
acaa 38 537 sec 
acab e5 57 539 sbce linemem 5 (Y2-Y1)-(X2-X1) 
acad aa 539 tax ;Low Byte in X 
acae a7 ff 540 ida #sff 
acbo e5 58 Sal sbe linemem+l 
ach2 85 5d 542 sta Linemem+6 ;High Byte 
acb4 bo ı1 543 bes schleife junbedingter Sprung * 
ach& 2c 78 03 544 hstep: bit colmode ;Farbmodus 
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ach? 30 07 545 bmi 
acbb Oa 546 ası 
acbe 20 59 ad 547 Jsr 
achbf 38 548 sec 
accO bO 05 547 bes 
acc2 0a 550  colanı asl 
acc 20 3f ad 551 jsr 
acch 38 552 sec 
acc? a5 5b 553 schleife: Ida 
acc? 65 57 554 ade 
accb 85 5b 555 sta 
accd a5 xx 556 Ida 
acct e9 00 557 sbe 
acdı 85 Sc 558 setzen: sta 
acd3 08 559 php 
acd4 a0 00 30 ldy 
acd6 bi fb Se lda 
acd8 85 fe 562 sta 
acda 86 5f 563 stx 
acde a5 Se 564 Ida 
acde 0a 565 asl 
acdf aa Ib tax 
aceO 20 84 ab 567 jsr 
ace3 a6 5f 568 idx 
ace5 28 569 plp 
aceds e8 570 inx 
ace7 dO 0a 571 bne 
ace9 e& 5d 572 inc 
aceb dO 06 373 bne 
aced 39 36 574 lda 
acef 85 01 575 sta 
acfi 58 576 cli 
act2 60 577  coloff2; rts 
578 
acf3 a5 5a 579 lcmt: ida 
acf5 bO bf 580 bes 
acf7 20 07 ad 581 jsr 
acfa 18 582 cle 
acfb a5 5b 3833 lda 
actd 65 57 534 ade 
actt 85 5b 585 sta 
ado1 a5 5c 586 lda 
ados 65 58 587 adc 
adoS 50 ca 588 bvc 
587 


ad07 30 1a pr28 vertikal: bmi 


ad09 a5 fb 592 lda 
adOb 29 07 593 and 
adod FO 05 574 beq 
adof 18 595 clc 
adı0 a9 ff 596 ida 
adı2 90 04 397 bec 
adi4 a9 c7 578 obenl: lda 
adid c& fc 597 dec 
adie 65 fb 80 oben2: ade 
adla 85 fb eo sta 
adic a5 fc 602 lda 
adie e9 00 605 sbc 
ad20 85 fc 604 sta 
ad22 60 605 rts 
606 
ad23 a5 fb &07 unten: lda 
ad25 27 07 608 and 
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colan ‚Ja 
;horizontaler Schritt 
horizontal 


schleife 
;horizontaler Schritt in Farbe 
horizcol 


linemem+4 

linemem+2 

linemem+4 

linemem+5 

#0 s1X2-X1)-(Y2-Vi) nach (X2-X1) 
linemem+S 


#o 

(azg),y ;Wert von (Pointer) lesen 
azg2+1 

linemem+8 ;X merken 

linemem7 ;Maske #2 in x 


doplot ;Punkt setzen 
linemem+B salten X-Wert lesen 


;Weiter bis X=0 
lcont 
linemem+& sweiter bis Zaehler =0 
lemnt 
#836 ;Speicher wieder normal 
PP 


;fertig 


linememt3 
hstep 
vertikal ;vertikaler Schritt 


linemem+4 

linemem 

linememr4 

linemem+5 

linemem+1 

setzen sunbedingter Sprung 


570 ;Vertikaler Schritt 


unten ;Schritt nach unten 
azg ;Schritt nach oben 
#7 

obeni ;oberer Blockrand 


#srt 

oben2 s-1 
#37 
azg+1 
azg 
azqg 
azg+1 
#O 
azg+1 





azg ;Schritt nach unten - 
#7 ;Blockrand unten 
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ad27 


ad2b 
ad2c 
ad2e 
adso 
ad32 
ad34 
ads& 


ad38- 


adsa 
adsc 


adsf 
adal 
ad4Ss 
ad45 
ad47 
ad47 
adAb 
adad 
ad4f 


ad52 


ad8c 
adSe 


ad92 


10 
e& 
a5 
c9 
a9 
a5 


e? 
85 


cö 


10 


26 


07 
05 


EHSURHRR 


& 


fb 
16 


12 
fd 


fd 





horizcol: 


horizontal: 


linksi: 


rechts: 


rechts2: 


colrechts: 


cap 
beq 
sec 
lda 
bes 
lda 
inc 
adc 
sta 
lda 
adc 
sta 
rts 


bpl 
inc 
lda 
mp 
bec 
lda 
sta 
Ida 
sec 
sbc 
sta 
bes 
dec 
rts 


bpl 
asl 
bee 
rol 
Ida 
sec 
she 
sta 
bes 
dec 
rts 


isr 
bec 
ror 
lda 
cele 
adc 
sta 
bec 
inc 
rts 


dec 
bpl 

lda 
sta 
lds 
clc 
adc 
sta 
bec 
ine 
rts 


#7 
unten! 


#0 
unten2 
#858 
azg+i1 
azg 
azg 

#0 
azg+i 
azg+l 


colrechts 
linemem+7 
linemem7 
#4 

linksi 
#0 
Linemem7 
azg 


48 

azg 
linksi 
azg+1 


rechts 
azg2 
linksi 
azg2 
azg 


#8 

azg 
linksi 
azg+i 


a2g2 
rechts2 
a2g2 
azg 


#8 

azg 
rechts2 
azg+1 


linemem+7? 
rechts2 
#3 
Linemem+7 
azg 


#8 

azg 
rechts2 
azg+1 
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+ 
5+313 


;Schritt nach links (Farbe) 
;Maskennummer+1 

5<4 ? 

dann fertig 

;Maskennummer =O0 


;Pointer-8 


;Schritt nach links 
;Maske schieben 
;Byte ueberschritten, 
;Pointer-8 


;Schritt nach rechts 
;Maske schieben 
;Bereich ueberschritten, 
;Painter+8 


;Schritt nach rechts (Farbe) 
;Maskennummer—i1 

;<0, dann Maskennummer=3 
;Pointer+8 
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4/6.4.4.15 


FRAME X1,Y1,X2,Y2 





Mit dem FRAME-Befehl wird ein Rahmen zwischen den Punkten (X1,Y1) und 
(X2,Y2) gezeichnet. Dabei ist es egal, wo diese Punkte auf dem Bildschirm liegen, 
da zwischen zwei Punkten immer ein Rechteck gezeichnet werden kann. 


Die eingelesenen Koordinaten werden von der Routine <inmem> hintereinander 
ab „mem’’ gespeichert, so das sich die folgende Struktur ergibt: 





<X1 >X1 Yi <X2 >X2 Y2 


mem + 0 1 2 3 4 5 





Der Rahmen kann nun durch vier Linien beschrieben werden, wobei jede Linie wie- 
derum durch 6 Byte beschrieben wird. In einer Tabelle werden daher für die vier 
Linien der Offset der Koordinaten abgelegt, so das durch Abarbeiten dieser Tabelle 
der Rahmen gezeichnet wird. 





3=—-- XBASIC-Befehl: FRAME X1,Y1,X2,Y2 — 


ad93 20 cd aa ® ;Koordinaten 1 holen 
ad9& a0 00 ldy ;ab mem speichern 
ad98 20 .c9 ad Jsr 

ad9b 20 45 97 jsr ;Koordinaten 2 holen 
ad9e 20 cd aa J3sr 

adal a0 03 ldy sab mem+3 speichern 
adaS 20 c9 ad jsr 

ada6& a0 17 ldy HAR6-1 ;4 Linien ziehen 
adaB a2 05 aneline: ldx #5 ;pro Linie & Werte 
adaa Be 42 03 stx mem+& ;Zaehler setzen 


adad be dc ad anelinel: 1dx permuts,y ;Index der Werte holen 
adbO bd Sc 03 lda mem,x ;Wert holen 


adbS ae 42 03 ldx mem+& sund als Linienbeschreibung in der Form 
adb& 9d fa 03 sta xcurs,x ;Xa Ya Xb Yb speichern 

adh? 88 dey ;bis alle Werte gesetzt 

adba ce 42 03 dec mem+& 

adbd 10 ee bpl anelinel 

adbf 98 tya ;Y retten 

adco 48 pha 

adcı 20 6? ac jsr line Line von Xa Ya nach Xb Yb ziehen 
adc4 68 pla 

adc5 a8 tay . 
adc& 10 © bpl oneline ;bis alle Linien gezogen 
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— 


adcB 60 


ade? ad fa 05 
adce 97 3c 05 
adcf ad fb 03 
add? 99 34 03 
addS ad fc 03 
add8 997 Ze 05 
addb 60 


addce 03 04 05 
03 04 02 
ade2 03 04 02 
oo 01 02 
adeß 00 01 02 
00 01.05 
adee 00 01 05 
03 04 05 





697 
700 
701 
702 
703 
704 
705 
70& 
707 


7097 


710 


zıı 


7ı2 


inmem: 


permuts: 


rts 


ida 
sta 
lda 
sta 
lda 
sta 
rts 


-by 
„by 
by 


„by 


xcurs 
mem,y 
xcurs+i 
mem+l,y 
ycurs 
mem+2,y 


3,4,5,3,4,2 
3,4,2,0,1,2 


0,1,2,0,1,5 


0,1,5,3,4,5 
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;Koordinaten ab mem,y speichern 


;Indices der Werte 


jder Linien 
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4/6.4.4.16 


BOX X1,Y1,X2,Y2,X3,Y3 





Der Befehl BOX stellt eine Erweiterung des Befehls FRAME dar: er zeichnet einen 
Quader. Die Bedeutung der Parameter können sie der folgenden Zeichnung entneh- 


men: 


2 
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Gl,YıD 





TTÄREN 7 


FIXL,YED 





= 








Mit A=X3+X2-X1 UND B=Y3+Y2-Yl. 


Der Quader kann nach dem gleichen Schema wie der Rahmen gezeichnet werden, 
wobei man noch zwei Werte aus den drei Koordinatenpaaren berechnen muß, um 
alle Punkte beschreiben zu können (siehe Skizze). Als Anwender müssen Sie beach- 
ten, daß der Quader vollständig auf den Bildschirm passen muß. Andernfalls wird 
der Fehler ‚„Illegal Quantity’’ gemeldet. 
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getgkoor ıKoordinaten I holen 
#0 tab mem speichern 
innen 

chkkom Koordinaten ? holen 
getgkoor 

#3 ab men+S speichern 
innen 

chkkon ;Koordinaten 3 holen 
getgkoor 

#6 ıab men+& speichern 
inmen 


ments HA=XIHX2-Xl 
mem+I 

ment? 

nemt7 

ments 

mem+10 


3345 


mem+? 
mem+O 
ment? 


mem+L 


memt8 ;B=Y3+Y2-Y1 
mem+S3 


as 
En 
45 
46 
3d 
46 
44 
a 


#0 
#0 


88 


;B zu klein 


;B zu gross 
;Farbmodus ? 
‚ja 

5A<320 ? 
jnein (>511) 


jnein 


excolms 
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ae78 
a@7& 


ae7c 
ae7e 
ae8O 
ae83 
aedb 
ae89 
aedc 
aedf 
ae90 
ae93 
ae95 
ae96 
ae77 
ae9a 
ae9b 
ae9c 
aese 





aesf 





Lo 


7 


a0 


EBRR 


ae 
94 


ce 
Pie} 


20 
68 
a8 
10 
2) 


E 
23 


47 
05 


a2 


fa 


48 


67 


aea2 00 O1 
00 01 05 
seaß 00 01 
03 04 05 
aeae 05 04 
03 04 02 
aeb4 03 04 
© 01 02 
aeba 00 O1 
06 07 08 
aecO 06 07 
09 0a 08 
aech 09 Oa 
07 0a Ob 
ascc 07 0a 
06 07 Ob 
aed2 06 07 
06 07 08 
aedB 06 07 
00 01 05 
aede 03 04 
07 Oa Ob 
ase4 03 04 
09 0a 08 


03 
ae 
03 
03 


03 


ac 


a? 


02 


05 


05 


02 


02 


Ob 


Ob 


ob 


05 


774 
775 
77& 
777 
778 


793 
774 
795 
796 
797 
778 


797 


801 


802 


804 


805 


807 
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camp 
bes 


box: idy 
onelinebo: 1dx 
stx 
anelinelbo:1ldx 
lda 
ldx 
sta 
dey 
dec 
bpl 
tya 
pha 
jsr 
pla 
tay 
bpl 
rts 


mocol4: Jmp 





#160 
nocol4 ;nein 
#12Xb-1 ;12 Linien ziehen 
#5 ;a & Werte 
mem+12 ;Zaehler 
permuts2,y ;Index holen 
mem,x ;Wert holen 
mem+12 zund speichern 
xcurs,x 
;bis 6 Werte gesetzt 
mem+12 
onelinelbo 
;Linie ziehen 
line 
onelinebo zweiter bis 12 Linien gezogen 
nocoi 


;Indextabelle der 12 Linien fuer BOX 


permuts2: .by 
.by 
"by 
“by 
.by 
“by 
by 


"by 


„by 


.by 


0,1,2,0,1,5 
0,1,5,3,4,5 
3,4,5,3,4,2 
3,4,2,0,1,2 
0,1,2,6,7,8 
6,7,8,9,10,8 
9,10,8,9,10,11 
9,10,11,6,7,11 
6,7,11,6,7,8 
6,7,11,0,1,5 
3,4,5,9,10,11 


3,4,2,9,10,8 





Listing 4/6.4.4.16 (Teil 2) 








Teil 4 Kapitel 6.4.4 Seite 39 





Utilities [ 








6.4 Basic-Erweiterungen beim C64 Teil 4: Software-Erstellung 


4/6.4.4.17 
BLOCK X1,Y1,X2,Y2 





Beim BLOCK-Befehl bestimmen die beiden Punkte wieder ein Rechteck. Jedoch 
wird hier nicht einfach dieses Rechteck gezeichnet, sondern es wird der vom Recht- 
eck definierte Bereich gefüllt. 


Um dies zu erreichen, werden die Koordinaten zunächst wieder mit <inmem> 
gespeichert. Ist die Y-Koordinate des zweiten Punktes kleiner als die Y-Koordinate 
des ersten Punktes, werden die Punkte miteinader vertauscht. Dann wird eine Linie 
von den so entstandenen Koordinaten (X1,Yl) nach (X2,Y2) gezogen, und Yl um 
eins erhöht. Dies macht man solange, bis Y1 größer als Y2 ist. Damit ist der Block 
gezeichnet. 


XBASIC-Befehl: BLOCK X1,Y1,X2,Y2 — 











acea 20 cd aa 815 BBblock: jsr getgkoor ;Koordinaten 1 holen 
aced a0 00 814 ldy #0 ;ab mem speichern 
asef 20 c9 ad 815 jsr inmen 
aef2 20 45 99 816 Jjsr chkkom ;Koordinaten 2 holen 
aefS5 20 cd aa 817 jsr getgkoor 
aef8 a0 05 sı8 ldy #3 ;ab mem+3 speichern 
aefa 20 c9 ad 819 jsr inmen 
aefd ad 3e 03 820 Ida mem2 3Y1<Y2 
afoo cd 41 05 821 <mp mem+5 
afos 90 13 822 bec onelineb ;ja 
afo5 a0 02 825 ldy #2 ;nein, Koordinaten tauschen 
af07 69 3 03 824 swapt Ida mem,y ;wert auf Stack 
afoa 48 825 pha 
afOb b9 3f 03 826 lda memt3,y 2. Wert speichern 
afle 99 5 05 827 sta mem,y 
atıı &8 828 pla ;1. Wert von Stack 
afi2 97 3f 05 829 sta memt+3,y 
afı5 88 BIO dey ;bis 3 Werte vertauscht 
afis 10 ef 831 bpl swap 
afı8 a0 05 832 onelineb: Idy #5 ;6 Werte setzen 
afla be 35 af 833 onelinebl: ldx permut,y ; Index holen 
afld bo Ic 03 834 Ida mem,x ;Wert holen 
afz0 99 fa 03 855 sta xcurs,y ;Wert speichern 
af23 88 336 dey ;bis 6 Werte gesetzt 
af24 10 f4 837 bpl onelinebl 
af26 20 69 ac 858 jsr line ;Linie ziehen 
af27 ee 3e 03 8357 inc mem2 syi+1 
afzc ad 41 05 840 ida mem+5 Y12Y2 2? 
af2f cd Se 03 841 cmp mem+2 
afs2 bO e4 842 bes onelineb ;nein, naechste Linie ziehen 
afs4 60 843 rts 
844 
afs5 00 01 02 845 permut: „by 0,1,2,3,4,2 
03 04 02 z 
946 





L 
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4/6.4.4.18 


CIRCLE X,Y,RX,RY 





Mit dem CIRCLE-Befehl können beliebige Ellipsen oder Kreise gezeichnet werden. 
Dabei definiert das Paar (X,Y) den Mittelpunkt, und RX bzw. RY den Radius in 
X- bzw Y-Richtung in Pixeln. Da der Algorithmus vollständig in Integrerarithmetik 
arbeitet, ist er recht schnell. Außerdem berechnet er nur ein Viertel der Ellipse, und 
gewinnt die anderen 3/4 durch Spiegelungen. Bei den Berechnungen können aber 
sehr große Zahlen auftreten. Daher müssen wir uns eine Multiplikationsroutine für 
24-Bit Zahlen schreiben. Außerdem sind die Radien auf maximal 165 Pixel begrenzt 
worden. Dies ergibt aber bereits Ellipsen, von denen nur noch Eckpunkte sichtbar 
sind. In der Praxis ist dies also keine Einschränkung. 


Um den Algorithmus vorzustellen, wird hier das entsprechende BASIC-Programm 
für CIRCLE 150,100,50,40 angegeben: 


X0=150:Y0=100 
A=50:B=40 
GOSUB1OO END 
x=0:Y=B 
GB=2%BXB:GA=2KAKA 
DX=B*kB: DY=QAXB-AXA 


DA=AXA+BXB 

PLOT X0+X,YO+Y:PLOT X0-X,YO+Y 

PLOT X0+X,YO-Y:PLDT X0-X,YO-Y 

IF DA>=0 THEN DA=DA-DX:DX=DX+0B:X=X+1 
IF DA<O TEHN DA=DA+DY:DY=DY-QA:Y=Y-1 
IF DA>O THEN 140 

PLOT X0-X,YO:PLOT XO+X,YO 
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afsb 


afse 
ara 
af44 
af47 
af49 
af4b 
afde 
afsı 
afs4 
afs6 
arse 
afsb 
afse 
afel 
af64 
afb7 
afda 
aföd 
af70 
af72 
af75 
af78 
af7b 
af7d 
af7f 
afal 
af8s 
afß& 
af8s 
afa 
aföd 
aryo 
af93 
arf96 
at 
arfsc 
afyf 
afa2 
afaS 
afad 
afab 
afae 
afbl 
afb3 
afbS 
afb7 


BERSRRLERRELPRERSSPEBSIN A 


SERRRRERBEN 


aan 


85 


a7 


238 


334 


03 


03 
03 
03 
03 


05 


03 
03 


03 


bi 


03 
03 
03 
05 
03 


03 
03 
03 


03 











3 XBASIC-Befehl: CIROLE X,Y,A,B 0 — 





rbigerr: 


BBcircle: 


.eg 
„eg 
.eq 
.eq 
.eq 
.eq 
.eq 
.eq 
.eq 
.eq 
jmp 
jsr 
jsr 
jsr 
cpx 
bes 
stx 
jsr 
jsr 
cpx 
bes 
stx 
stx 
lda 
sta 
Ida 
sta 
Ida 
sta 
ida 
sta 
sta 
sta 
sta 
sta 
sta 
sta 
ida 
sta 
sta 
Jjsr 
sta 
stx 
sty 
sta 
stx 
sty 
sta 
stx 
sty 
asl 
rol 


ida 
sta 
sta 
sta 


x0+2 
yorl 
x+2 

y+2 

gats 
ab+3 
dx+3 
Ay+3 
dat3 
a+l 


nocol 


getgkoor 
chkkom 
getbyte 
#166 
rbigerr 
a 
chkkom 
getbyte 
#166 
rbigerr 
b 

Y 

xcurs 
xO 
xcurs+i 
xO+1 
ycurs 
yo 

#0 

y+1 

x 

x+l 
regi+2 
reg2+2 
regi+1 
reg2+1 
b 

regi 
reg2 
multi24 
gb 

gb+1 
ab+2 

dx 

axt+l 
dx+2 

da 

da+i 
da+2 

gb 

ab+ti 
gb+2 

#0 
regi+2 
reg2+2 
regi+l 


;Mittelpunkt 
5x Offset 


sy Offset 
;Hilfsregister 


;Radius A 

;Radius B 

;Fehler melden 
;Mittelpunkt holen 
;Radius A holen 
smax. 165 

;zu gross 

;Radius A 

;Radius B holen 
smax. 165 

;zu gross 

;Radius B 

;Y=B 
3X5X0=X-Koordinate 


;YO=Y-Koordinate 
;High Byte von Y =0 
3X=0 

;Rechenregister fuer 
;Multiplikation 

;=0 

;B in Register 1 & 2 


;BAB 
;GE=BXB 


;DX=BXB 


;DA=BXB 


;GB=2XBxB 


;A in Register 1& 2 
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afb? 85 6a 910 sta reg?+1 
afbb ad 52 05 911 lda a 
afbe 85 61 912 sta regi 
afco 85 69 913 sta req2 
afc2 20 38 bi 914 Jsr multi24 RA 
afcS 84 43 03 915 sta ga ;QA=ARA 
afc8 Se 44 035 916 stx gatl 
afcb Bc 45 03 917 sty gat2 
afce 8d 4 03 918 sta dy ;DYzArA 
afdl Be 4d 03 919 stx dy+i 
afd4 8c Ae 03 920 sty dy+2 
afd7 Oe 43 05 921 asl ga ;DA=2HAKA 
afda Ze 44 03 922 rol gat+i 
afdd 2e 45 03 923 rol ga+2 
afeo 18 724 cle ;DA=AXA+BXB 
afeil öd Af 03 925 ade da 
afe4 Bd At 03 926 sta da 
afe? Ba 927 txa 
afed dd 0 03 928 adc da+i 
afeb Bd 50 03 927 sta da+l 
afee 98 730 tya 
afef ad 51 05 931 ade da+2 
aff2 Bd 51 03 932 sta da+2 
ats 900 98 Ida #0 ;B in Register i 
aff7 85 635 734 sta regi+2 
aff? 85 62 935 sta regl+l 
affb ad 53 03 936 lda b 
affe 85 &i 937 sta regi 
bOOO ad 43 03 938 lda ga ;GA in Register 2 
b003 85 67 9739 sta reg2 
6005 ad 44 03 940 Ida gatıi 
bO08 85 da 941 sta reg2+1 
b00a ad 45 03 942 lda gat2 
bood 85 6b 943 sta reg2+2 
boof 20 58 bi 944 jsr multi24 ;QAXB 
bo12 38 745 sec ;DY=-OAXB-AKA 
bolS ed 4c 03 946 sbe dy 
bOl& Bd Ac 05 947 sta dy 
b019 Ba 948 txa 
bOla ed Ad 03 949 sbe dy+i 
bOld 8d Ad 03 950 sta dy+i 
bO2O 78 931 tya 
bOZ1 ed de 03 952 sbc dyt2 
6024 Bd 4e 05 953 sta dy+2 
954 
b027 20 d& 60 955 circlie: jsr punkt 
bO2a 20 42 bi 956 jsr invx 
bO2d 20 d& HO 957 jsr punkt 
6030 20 2c bi 958 jsr invy 
b033 20 d& bO 959 jsr punkt ;Punkt setzen 
bO36 20 42 b1 960 jJsr invx 3X=—X 
6039 20 d& bO 961 jsr punkt ;Punkt setzen 
bosc 20 2c bl 962 Jsr inwy ; 
bOSf ad 51 03 963 lda da+2 ;DA<o ? 
6042 30 40 964 bmi negstep ;ja 
bo44 58 965 sec ;DA=DA-DX 
6045 ad Af 03 966 ida da 
bO4B ed 49 05 967 sbe dx 
bO4b 8d 4 03 968 sta da 
EO4e ad X 05 967 ida da+l 
bo51 ed 4a 03 970 sbe dx+i 
b054 Bd 50 05 971 sta dati 
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6057 





bofo 
bofs 
bofS 
bors 
bofa 
bOrfd 





SISSASEHREREBELRERHERRRAREREA 


BISEHRERGRRARRRAG 


HRHRRSSRR 


BARARERAR 


st 
fa 


fb 


a 


42 
47 
fe 


093 
03 
03 
035 
03 
03 


03 
035 
05 


03 


972 


E28 

992 

993 

74 

975 

796 

997 

998 

9977 

1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
10135 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1055 


negstep: 


nonegstep: 


endeir: 


punkt: 
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lda 
sbc 
sta 
cle 
lda 
adc 
sta 
lda 
ade 
sta 
lda 
ade 
sta 
ine 
bne 
ine 
Ida 
bpl 
cle 
lda 
ade 
sta 
Ida 
ade 
sta 
ida 
adc 
sta 


Ida 
sbe 
sta 
lda 
sbc 
sta 
lda 
sbc 
sta 
dec 
ida 


Jmp 
jsr 
Jsr 
jsr 
rts 


cie 
lda 
ade 
sta 
ida 
adc 
sta 
cle 
ida 
sdc 
sta 


adc 
bne 
Jsr 
rts 


ga+2 
dx+2 
da+2 


dx 

ab 

dx 

ax+1 
gb+1 
dx 
dx+2 
ab+2 
dx+2 

x 
negstep 
x+l 
da+2 
nonegstep 


da 
day 
da 
da+i 
dy+1 
da+1 
da+2 
dy+2 
da+2 


dy 

ga 

dy 
dy+1 
gati 
dy+1 
dy+z 
ga+2 
dy+2 
Y 

y 
endceir 
circle 
punkt 
invx 
punkt 


xo 

x 
xcurs 
xO+l 
x+L 
xcursti 


yo 
yY 

ycurs 

#0 

y+L 
noplot 
clippiot 
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;DX=DX+GB 


;X=X+L 
;DA>=0 ? 
;3a 


;DA=DA+DY 


;DY=DY-GA 


‚a 
jnein 


;Punkt setzen 


5X=-X 


;Punkt setzen 


;Punkt setzen 
3X-Koordinate = XO+X 


;Y-Koordinate = YO+Y 


;Punkt setzen 
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ycurs 
#200 
noplot 
colmode 
clipcol 
xcurs+1 
dorealy 
#2 
noplot 
xcurs 
#<320 
noplot 
plot 


xcurst+i 
noplot 
xcurs 
#160 
noplot 
plot 


#srf 
#1 


y+1 
astf 


y+l 


x 
sfr 
#1 


x+l 
#srf 


x+1 
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Punkt setzen, falls sichtbar 
;Y>197 
;Farbmodus 
;X>319 7? 
jnein 

;ja 

‚ja 

;Punkt setzen 
3159 ? 

;ja 

‚ja 

;Punkt setzen 


;Y=-Y 
;Low invertieren 


se 


;High invertieren 
3+Hlarıy 


IX=—X 
;Low invertieren 


‚m 


;High invertieren 
;+larry 





böfe ad fc 03 1036 clipplot: Ida 
blO1 c9 c8 1037 mp 
b103 bO Sc 1058 bes 
6105 Ze f8 03 1037 bit 
b108 30 13 1040 bmi 
b1Oa ad fb 03 1041 lda 
b10d4 fO Ob 1042 beq 
b10Of «9 02 1043 emp 
blll bO 2e 1044 bes 
b113 ad fa 03 1045 lda 
b11& c? 40 1046 cap 
b118 DO 27 1047 bes 
bila 4c Bi ab 1048 dorealy: jmp 
1047 
bild ad fb 03 1050 clipcol: lda 
b120 do ıf 1051 bne 
b122 ad fa 03 1052 lda 
b125 c9 a0 1053 cmp 
b127 50 18 1054 bes 
b129 4c 81 ab 1055 mp 
1056 
b12c 1B 1057 invy: celc 
b12d ad 41 05 1058 lda 
b130 49 ff 1057 eor 
b132 69 01 1060 ade 
b134 Bd 41 03 1061 sta 
bB137 ad 42 03 1062 lda 
b13a 49 ff 1083 eor 
b1Sc 69 00 1064 ade 
biSe &d 42 03 1065 sta 
b141 60 1066 moplot: rts 
1067 
b142 18 10858 invx: clc 
b143 ad 3f 03 1069 lda 
b146 49 ff 1070 eor 
b149 89 01 1071 ade 
b14a 84 3f 03 1072 sta 
b1Ad ad 40 03 1073 lda 
b150 47 ff 1074 eor 
b152 67 00 1075 adc 
b154 Bd 40 03 1076 sta 
b157 60 1077 rts 
1078 
1079 35 - 


1080 ;-—— 24-Bit Multiplikation 
1081 ;— reglireg2->merg 








1082 zu 





3 
D158 a9 00 1083 multi24: ida 
b15a 85 &c 1084 sta 
b15c 85 6d 1085 sta 
b1Se 85 de 1086 sta 
b160 a2 18 1087 ldx 
b162 06 dc 1088 multipl: asi 
b164 26 &d 1089 rol 
bl6& 26 de 1090 rol 
b168 06 &1 1091 ası 
bi6a 26 62 1092 rol 
bi6c 26 &3 1093 rol 
bite 90 13 1094 bee 
b170 18 1095 cic 
b171 a5 &c 109& lda 
b173 65 69 1097 adc 
6175 85 &c 1098 sta 


#0 
merg 
merg+1 
merg+2 
#24 
merg 
merg+t 
merg+2 
regi 
regiti1 
regi+2 
unaddr2 


mwerg 
reg2 
merg 


Ergebnis =0 


;24 Bit Zaehler 
;Ergebnis x2 


;Registerl x2 


;hoechstes Bit war nicht gesetzt 
;Ergemis=Ergetnis+Register2 


a od ne un Fr ze 


Listing 4/6.4.4.18 (Teil 5) 
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b177 25 &d 1099 ida merg+1 

b177 65 68 1100 adc reg2+i1 

b17b 85 d&d 1101 sta mergtl 

b17d a5 de 1102 lda merg+2 

b17f 85 &b 1103 adc reg2+2 

b181 85 de 1104 sta merg+2 

b183 ca 1105 unaddr2: dex ;Zaehler-1 

6184 dO de 1106 bre multipl ;bis 24 Bit abgearbeitet 
b186 35 &c 1107 lda merg ;Ergebnis in Y/X/A 
b188 a6 &d 1108 ldx merg+i 

b18a a4 de 1109 ldy merg+2 

b18c &0 1110 rts 


1111 








Listing 4/6.4.4.18 (Teil 6) 


4/6.4.4.19 


ANGLE X,Y,RX,RY,AW,EW,SW 





Der ANGLE-Befehl ist wohl der vielseitigste Befehl dieser Grafikerweiterung, aber 
auch leider der langsamste Befehl. Mit ihm ist es möglich, Ellipsensegmente unter 
Angabe der Schrittweite zu zeichnen. Damit ist es möglich, Kreise, Ellipsen, Ellip- 
sensegmente, aber auch Dreiecke, Vierecke, Fünfecke usw. zu zeichnen. 


Man sollte darauf achten, das die Linien innerhalb des Bildschirms bleiben, da 
sonst die Punkte auf den sichtbaren Bereich projiziert werden, und zwar nur mit 
der Koordinate, die nicht mehr auf den Bildschirm paßt. Die führt zu Verzerrungen, 
die sich mit steigender Schrittweite immer stärker auswirken. 


Die Parameter X, Y, RX und RY beschreiben die Ellipse, wie wir es von dem 
CIRCLE-Befehl her bereits kennen. Der Parameter AW gibt den Startwinkel an, 
und der Parameter EW den Entwinkel. Mit dem Parameter SW gibt man die 
Schrittweite an, um die der Winkel erhöht wird. Dabei gilt das folgende Winkelsy- 
stem: 


2 
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Der Pfeil gibt die Zeichenrichtung an. 


Mit dem folgenden BASIC-Programm soll der Algorithmus wieder verdeutlicht 
werden: (für ANGLE 160,100,150,90,359,180,10) 








| 10 X=160:Y=100 


20 RX=150:RY=90 

30 AW=359:EW=180:SW=10 

40 GOSUB 100 

50 END 

60 

100 GOSUB200:PLOT XW,YW 

101 IF AW>EW THEN EW=EW+360 

102 GRAFON 7,0 

110 AW=AW+SW:IF AW>EW THEN AW=EW 
120 GOSUB200:LINE XW,YW 

130 IF AW=EW THEN END 

140 GOTO110 

150 

200 XW=X+SIN(2*3.14159/360*AW)*RX 
210 YW=Y-COS(2*3.14159/360*AW)*RY 
220 RETURN 


u | 
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1112 5; ——— IK 
1113 5— Befehl: ANGLE X,Y,RX,RY,AW,EW,SW — 
1114 ; — 
1115 ;x0,yO wie bei circle 
1116 
1117 lineflag: .eq yOrl ;Flag fuer Linie ziehen 
1118 rx: .eq lineflag+1 ;Radius X 
1119 my: .eq rat ;Radius Y 
1120 .eg ryrl jAnfangswinkel 
1121 .eg awtrz ;Endwinkel 
1122 „eg ewt2 ;Schrittweite (Winkel) 
1123 
b18d 20 cd aa 1124 BBangle: jsr getgkoor ;Mittelpunkt holen 
b190 ad fa 05 1125 lda xcurs sin XO und 
b193 8d 3c 03 112& sta x0 
6196 ad fb 03 1127 lda xcurs+1 
b1997 84 34 03 1128 sta xO+l 
b19cC ad fc 03 1129 lda ycurs ;YO speichern 
bi97f Bd Je 03 1130 sta yo 
bla2 20 45 99 1131 jsr chkkom ;Radius X holen 
bia5 20 55 99 1132 jsr getbyte 
blaß Be 40 03 1133 stx rx ;und speichern 
blab 20 45 99 1134 jsr chkkom 
blae 20 55 99 1135 jsr getbyte ;Radius Y holen 
bibl Be 41 05 11356 stxry ;und speichern 
bib4 20 45 99 1137 jsr chkkom 
b1b7 20 5d 99 1138 jsr getadr iAnfangswinkel holen 
biba a5 14 1159 ida $14 ;und speichern 
bibe a6 15 1140 ldx $15 
bibe 8d 42 03 1141 sta aw 
bici Be 43 03 1142 stx aw+l 
bic4 20 45 99 1143 jsr chkkom ;Endwinkel holen 
bic7 20 5d 99 1144 jsr getadr 
bilca a5 14 1145 lda $14 ;sund speichern 
bicc a6 15 114& 1dx $15 
bice Ad 44 03 1147 sta ew 
bidi Se 45 03 1148 stx ewrl 
bid4 ec 43 03 1149 cpx awtl . ;Anfangswinkel>=Endwinkel ? 
b1d7 fO 15 1150 beq vglZw 
b1d9 bO 1a 1151 bes nextarg ;nein 
bidb 18 1152 add360: clc ;Endwinkel +360 (Grad) 
bilde ad 44 05 1153 lda ew 
bidf 69 68 1154 ade #<3560 
blei Bd 44 03 1155 sta ew 
ble4 ad 45 05 1156 lda ew+i 
bie7 67 Oi 1157 ade #>360 
bie? 84 45 03 1158 sta ewrli 
blec 90 07 1159 bcc nextarg ;Schritt lesen 
biee cd 42 03 1160 vgl2w: emp aw sAnfangswinkel>=Endwinkel ? 
biti fe 1161 beq add360 ;ja 
bif3 90 e& 1162 bee add360 ‚Ja 
bif5 20 45 99 1163 nextarg: Jsr chkkom ;Schrittweite lesen 
bifB 20 55 997 1164 jsr getbyte 
bifb Be 46 03 1165 stx sw ;zund speichern 
bife a9 00 1166 lda #0 sLineflag auf Null 
b200 Bd 3f 03 1167 sta limeflag 
1168 
6203 20 5b b2 1169 sp: jsr makepoint ;Punkt berechnen 
b206 2c 3f 03 1170 bit lineflag jLineflag gesetzt ? 
b209 30 08 1171 bmi lineit ;ja, Linie ziehen 
b20b 20 81 ab 1172 Jsr plot snein, ersten Punkt plotten 
b20e ce Sf 03 1173 dec lineflag ;Flag setzen 
b211 30 08 1174 bmi linecont zunbedingter Sprung * 
b213 20 69 ac 1175 lineit: jSsr line ;Linie ziehen 








Listing 4/6.4.4.19 (Teil 2) 
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b21& ad 42 05 117& linecont: Ida aw sAnfangswinkel=Endwinkel ? 
b219 cd 44 03 1177 cmp ew 
bZic do 08 1178 bne continag ;nein 
b2le ad 43 03 1179 lda aw+t 
b221 cd 45 03 1180 cmp ew+l 
0224 70 34 1181 beq fertigag ‚ja, fertig 
b22& 18 1182 cantinag: clc ;Anfangswinkel+Schrittweite 
b227 ad 42 03 1185 lda aw 
b22a dd 46 05 1184 ade sw 
b22d Bd 42 03 1185 sta aw 
b230 ad 43 03 1186 lda awtl 
b233 89 00 1187 ade #0 
b235 84 43 03 1188 sta awri 
b238 cd 45 05 1189 cmp ewrl sAuD=EWN ? 
b23b FO 11 1190 beq vgib2 
b234 90 c4 1191 bec sp ;nein, naechsten Punkt 
b23f ad 44 03 1192 makelast: 1daew sAM=EW (letzter Punkt) 
b242 8d 42 05 1193 sta aw 
b245 ad 45 03 1194 lda ew+1 
b248 8d 43 05 1195 sta aw+l 
b245 4c 03 b2 1196 tosp: Jmp sp ;Punkt setzen 
b24e ad 42 03 1197 vglb2: lda aw sAKUK=EW 7? 
6251 cd 44 053 11% cap ew 
b254 fO #5 1199 beq tosp ‚ja AuFEW 
b256 9% f3 1200 bec tosp sja AAKEW 
b258 60 eS 1201 bes makelast 3 AWEW 
b25a 60 1202 fertigag: rts 
1203 
b25b ad fa 05 1204 makepoint: Ida xcurs jalten Grafikcursor retten 
b25e 8d fd 05 1205 sta xcurs2 
b2&1 ad fb 03 1206 Ida xcurs+1 
b264 8d fe 05 1207 sta xcurs2+1 
b267 ad fc 03 1208 Ida ycurs 
b26a Bd ff 03 1209 sta ycurs2 
b2&d ac 42 03 1210 ldy an 
bZ70 ad 43 03 1211 ida aw+l 
b273 20 53 ai 1212 jsr ergelnis ;FACSAW 
b276 89 7b 1213 lda #<pifac 5 
b278 a0 9d 1214 ldy #>pifac 
b27a a2 32 1215 ldx #50 ;FAC=AWKZXPI/3CO 
b27c 20 dB 98 1216 jsr basicrom 
b27f a2 38 1217 ldx #56 
b281 20 d8 98 1218 Jsr basicrom ;FAC=SIN(FAC) 
b284 a2 34 1219 idx #52 
b286 20 dB 98 1220 jsr basicrom ;FAC->ARG 
6289 a9 00 1221 ida #0 
b28b ac 40 05 1222 ldy rx 
b28e 20 53 al 1223 jsr ergebnis ;FACSRX 
bZ71 a2 5 1224 ldx #54 
b293 20 d8 98 1225 Jsr basicrom ;FACSRKKSINLAWKZAPI/SCO) 
b296 a2 Sc 1226 Idx #50 
b298 20 d8 98 1227 jsr basicrom ;in Integer wandeln 
b25b 18 1228 clc ;X0 + Integerwert 
b29c aa 1227 tax ;ist X-Koordinate 
b294 98 1230 tya 
b29e &d 3c 03 1231 ade x0 
b2s1 8d fa 03 1232 sta xcurs 
b2a4 Ba 12353 txa 
b2a5 &d Sd 03 1254 adc x0+1 
b238 Bd fb 03 1235 sta xcurs+i 
b2ab 30 73 1236 bmi clipxm ;<0, X auf O setzen 
b2ad 2c 18 03 1237 bit colmode ;Farbmodus ? 
b2bO 30 11 1238 bmi colclipx „ia . = 
b2b2 c? 00 1237 cmp #0 3XG320 ? 





Listing 4/6.4.4.19 (Teil 3) 
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ro 
c7 


ad 
e7 


cs 
do 
ad 
c? 


ac 


884 


LETHSRSREALSRSRUR 


neunum 
SEIASHSEH 


37 
2c 
a7 


a7 


84 


60 
a7 


33 


a? 
Bd 


88% 


fa 
a0 


42 


45 


7b 


dB 


dB 


de 


4 


dB 
d8 
ı4 


15 
Ie 


fc 
15 
ob 
fc 
c8 
ol 


c7 


fe 


fa 


tb 


Sf 


ol 
tb 


9 
fa 


fb 


03 


03 


03 
al 


05 
al 


03 


93 


03 


03 


03 


05 


03 


03 


03 


1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1285 
1266 
1267 
1248 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 


colclipx: 


xunclips 


clipyp: 


clipym: 


elipxm: 


clipxpit 


clipxpZ: 


ldy 
lda 
jsr 
lda 
ldy 
ldx 
jsr 
1dx 
jsr 
ldx 
jsr 
Ida 
idy 
jsr 
ldx 
jsr 
ldx 
Jsr 
sec 
sty 
sta 
Ida 
sbe 
sta 
Ida 
sbe 
bmi 
ida 
cmp 
bes 
rts 


ida 
bit 
lda 
sta 
rts 
lda 
sta 
sta 
rts 
lda 
sta 
lda 
sta 
rts 
ida 
sta 
lda 
sta 
rts 





aw 

awrl 
ergebnis 
#<pifac 
#>pifac 
#50 
basicrom 
2858 
basicrom 
#52 
basicrom 
#0 

Ey. 
ergebnis 
#54 
basicrom 
#60 
basicrom 


$s14 
315 

yo 

s14 
ycurs 
#o 

sı5 
clipym 
ycurs 
#200 
elipyp 


#199 


ycurs 


#O 
xcurs 
xcursti 


#<3197 
xcurs 
#>319 
xcurs+i 


#157 
xcurs 
#157 
xscurs+i 
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;ja 


znein, X auf 319 setzen 


jnein, X auf 319 setzen 
zunbedingter Sprung 
3X<160 ? 

jnein, X auf 157 setzen 


jnein, X auf 159 setzen 


;FAC=AR 


;FAC=AWKZ2KPI/3CO 


;FAC=COS(FAC) 


;FAC->ARS 


;FACHRY 
;FACHRYKCOS (AWK2XPI/S60) 


;nach Integer wandeln 
;Y Koordinate = 
;YO-Integerwert 


;Y<O —> Y auf Null setzen 


;Y>199 -> Y auf 199 setzen 


;V=199 


;Y=0 


3x=0 


;X=319 





Listing 4/6.4.4.19 (Teil 4) 
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4/6.4.4.20 


COLBLOCK X1,Y1,X2,Y2,ZF,HF 





Mit dem Befehl COLBLOCK ist es möglich, für Teilbereiche des Bildschirms die 
Zeichen- und Hintergrundfarbe neu festzulegen. Da in der hochauflösenden Grafik 
für jeweils 8*8 Pixel ein Byte in ‚farbehires” die Zeichen- und Hintergrundfarbe 
angibt, kann man alle 16 Farben des C 64 gleichzeitig auf dem Bildschirm darstel- 
len. Mit COLBLOCK wird ein Bereich definiert, für den die neue Zeichenfarbe ZF, 
und die neue Hintergrundfarbe HF gilt. 


Die Koordinaten werden dabei als Textkoordinaten angegeben, da immer nur 8*8 
Pixel große Felder neu bestimmt werden können. Dies entspricht genau den Text- 
koordinaten. Außerdem muß die erste Koordinate die linke obere Ecke, und die 
zweite Koordinate die rechte untere Ecke bestimmen. Die Koordinaten müssen also 
folgende Bedingungen erfüllen: 


XI < 40 &X2 < 40 


XI < X2& YiI < Y2 
Yi<25& Y2 < 25 





Die Routine holt zuerst die vier Parameter und speichert sie ab ,,mem’’. Dabei wird 
überprüft, ob die oben aufgestellten Bedingungen erfüllt sind. Ist dies nicht der 
Fall, wird der Fehler ‚‚Illegal Quantity’”’ gemeldet. 


Sonst kann der Block gesetzt werden. Dazu wird zunächst der Zeilenanfang der 
oberen Zeile nach der Formel ‚‚azg = farbehires +40*Y1’ berechnet, wobei die 
Multiplikation mit 40 durch eine Tabelle ersetzt wird. Das Y-Register durchläuft 
dann die Werte von X2 bis X1, so daß die obere Zeile mit ‚„STA (azg),Y’’ gesetzt 
werden kann. Dann wird der Zeiger ‚‚azg’’ um 40 erhöht, also eine Zeile tiefer ge- 
setzt. Das Verfahren wird solange fortgesetzt, bis die letzte Zeile gesetzt wurde. 
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1305 9—— 
1306 ;—-Befehl: COLBLOCK X1,Y1,X2,Y2,ZF, HR — 
1307 3;— —— _ 
1308 
b33Sf Ac 28 a9 1309 nocol5: JImp nocol ;Fehler melden 
1310 
b342 20 55 97 1311 BBcolblock:jsr getbyte ;Koordinate X1 holen 
b345 Se Sc 05 1512 stx mem ;speichern 
bS48 e0 28 1313 cpx #40 ;<40 ? 
b34a bO f3 1314 bes nocolS jnein, Fehler 
b34c 20 45 99 1315 Jsr chkkom 
b34f 20 55 99 131& jsr getbyte ;Koordinate Yil holen 
5352 Be 3d 03 1317 stx mem+i ;speichen 
b355 e0 17 1318 cpx #25 ‚25? 
6357 DO e& 1317 bes nocol5 snein, Fehler 
b359 20 45 997 1520 Jsr chkkom 
b55c 20 55 99 1321 jsr getbyte ;Koordinate X2 holen 
b35f Be Je 03 1322 stx mem+2 ;speichern 
b3&2 ec Sc 03 1323 Cpx mem ;cX1 7? 
b365 90 d8 1324 c nocol5 ;ja, Fehler 
b367 e0 28 1325 cpx #40 ;<40 ? 
b369 bO d4 1326 bes nocol5 jnein, Fehler 
b56b 20 45 99 1327 jsr chkkom 
b3be 20 55.99 1328 jsr getbyte ;Koordinate Y2 holen 
b371 Be 5f 05 1329 stx mem3 ;speichern 
6374 ec 34 03 1550 Cpx memti ;vı? 
6377 9 c6 1331 bee nocol5 ja, Fehler 
6379 &0 19 1332 cpx #25 ‚25 ? 
b37b 60 c2 1333 bes nocol5 jnein, Fehler 
b37d 20 45 99 1334 jsr chkkom 
b3S80 20 55 99 1335 jsr getbyte ;Zeichenfarbe holen 
b383 @0 10 1336 cpx #16 ;sgueltig ? 
b385 bO b8 1337 bes nocol5 jnein, zu gross 
6387 86 fe 1338 stx azg+ ;merken 
b387 20 45 99 1339 jsr chkkom ;auf Komma testen 
b38c 20 55 97 1340 jsr getbyte ;Hintergrundfarbe holen 
b5Bt eO 10 1341 cpx #16 squeltig ? 
bS91 Ba 1342 txa » 
b392 bO ab 1343 bes nocol5 jnein, zu gross 
b394 06 fc 1344 asl azg+1 ;Zeichenfarbe x 16 
6396 06 fc 1345 asl azg+i 
6398 08 fc 134& asl azg+1 
b39a 08 fc 1347 asl azg+i 
b39c 05 fc 1348 ora a2g+1 jHHintergrundfarbe 
bS9e 48 1349 pha ;Farbwert merken 
bB39f ad Id 03 1350 ida mem+i 
bSa2 0a 1351 asl ;Yorz 
b3as a8 1352 tay jin Y 
b3a4 18 1353 elc 
b335 39 00 1354 lda #<farbehires sazg auf Farbram setzen 
b3a7 79 e0 b3 1355 ade mult4O,y 3+40%YO 
b3aa 85 fb 1356 sta azgq 
b3ac a9 c8 1357 lda #> farbehires 
bSae 79 ei b3 1358 ade mult40+1,y 
b3bl 85 fc 13597 sta azg+i 
b3b3 68 1360 pla ;Farbwert zurueckholen 
b3b4 ac Se 035 13561 setcolbl: I1dy mem+2 syavYı 
b3b7 91 fb 1362 setcolb: sta (azg),y ;Farbwert setzen 
b5b? 88 1363 dey sY-1 
b5ba 30 05 1364 bmi rdi ;setzen, bis Y<YC 
bSbe cc Ic 05 1365 cpy mem 
böbt DO f& 1366 bes setcolb 
bScl ce 3f 05 1367 rdl: dec mem+3 sXi-1 a 
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31 03 1368 fertig, wenn X1xX0 


b3c7 30 1& 1369 bmi readycb 
bSc? ec 3d 03 1370 Cpx mem+i 
b3cc 90 11 1371 bee readyeb 
b3ce 48 1372 pha ;Farbwert merken 
bict 18 1373 cic 
b3do 35 fh 1374 lda azg sazg+40 (in naechste Zeile) 
b3d2 69 28 1375 ade #40 
b3d4 85 fb 137& sta azg 
bScd6 a5 fc 1377 1da azg+ı 
bSdB 69 00 1378 adc #0 
b3da 85 fc 1377 sta azgtı 
b3de 68 1380 pla 
b3dd 90 d5 1381 bec setcolbi ;unbedingter Sprung 
b3dt &0 1382 readycb: rts 
13835 
1384 ;Multiplikationstabelle x%40, x von O bis 24 
b3e0 00 00 28 1385 mult40: „no 0,40,80,40%3, 40%4,40%5, 40%6, 40%7 ,40%B, 40%9 ,40X10 
00 50 00 78 00 a0 00 c3 00 fO O0 18 01 40 01 68 O1 90 01 
b3f& b8 01 e0 1386 „wo 40%11,40%12,40%13,40%14,40%15,40%16,40%17,40%18 
01 08 02 30 02 58 02 80 02 aB 02 do 02 
b40& f8 02 20 1387 “wo 40%19,40%20,40%21 ,40%22,40%23,40%24 
03 48 03 70 03 98 03 c0 03 
1388 
1389 
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4/6.4.9 


Teil 4: Software-Erstellung 


Übersicht der neuen Basic-Befehle 





Um Ihnen das Nachschlagen zu erleichtern, drucken wir nachfolgend eine alphabe- 
tische Übersicht der neuen Befehle (Stand: XBasic 1.1) ab. 














a Bedeutung 

AT(Z,S) setze den Cursor auf Zeile Z, Spalte S 
(liefert ” ” als Funktionsergebnis) 

AUTO STEP automatische Zeilennumerierung 

064 schaltet die Basic-Erweiterung neu aus 

CLS löscht den Bildschirm 

COLLECT räumt die Diskette auf ("V’-Befehl) 

DEC(X$) liefert den Dezimalwert der Hexzahl X$ 

DEEK (AD) wie PEEK, jedoch 16-Bit breit (Doppel-PEEK) 

DEFCHAR X, Z, M, A$ Definiert das Zeichen X aus dem Zeichensatz Z 
neu. A$ enthält die Definition und M den Aufbau 
der Definition 

DIR MASKE$ Ausgabe des Disketteninhalts 
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Befehl 
Funktion 





Bedeutung 





DOKE, AD,W 


DREEK (AD) 


DROKE, AD, W 


FRE (X) 


HEADER FORM$ 


HEXS$ (X) 


INITIALISE 


INKEY$ 


INST E$, I$, P 


INSTR(P,S$,IN$) 


LINEINPUT A$ 


LINEINPUT#D, A$ 


OLD 





wie POKE, jedoch 16 Bit breit (Doppel-POKE) 


Wie DEEK, arbeitet jedoch immer im RAM 
(Doppel-RAM-PEEK) 


wie DOKE, arbeitet aber immer im RAM 
(Doppel-RAM-POKE) 


wie die Originalfunktion 


formatieren der Diskette 


liefert X als vierstellige Hexzahl 


initialisieren der Diskette (‘l’-Befehl) 


wartet auf einen Tastendruck und liefert die Taste 
als String. Der Cursor wird dabei eingeschaltet. 


überschreibt die Zeichenkette I$ ab Position P mit 
der Zeichenkette E$ 


sucht den String S$ in IN$ ab Position P 


eine Zeichenkette einlesen 


eine Zeichenkette aus einer Datei lesen 


steilt ein Programm nach NEW wieder her 
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Funktion Bedeutung 
OLDCHAR kopiert den Originalzeichensatz in das RAM 
PAUSE TIME PAUSE-Funktion 


QLOAD FILES$, DEF 


REEK (AD) 


RENAME A$ TO N$ 


ROKE AD, W 


SCRATCH FILES$ 


SETDATNR 


SETEOL X 


SETTIME UHR, ZT$ 


SPACES$ (X) 


ST$ 


STRINGS$ (A$,X) 


SWAP A, B 





laden einer ASCII-Datei als Programm 


wie PEEK, arbeitet jedoch immer im RAM 
(RAM-PEEK) 


umbenennen von Dateien auf Diskette 


wie POKE, arbeitet jedoch immer im RAM 
(RAM-POKE) 


löschen von Dateien auf der Diskette 

setzt ine Dateinummer für Disk-Befehle 
Ende-Kennung für LINEINPUT# festlegen 
Uhrzeit setzen 

liefert X Leerzeichen 

liest den Fehlerkanal der Floppy 


liefert x-mal den String A$ 





vertauschen der Variableninhalte 
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Befehl 


Funktion Bedeutung 





TIME X Uhrzeit lesen 


XBASIC startet die Basic-Erweiterung neu 
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4/6.5 
Basic-Erweiterungen beim C 128 


(Autor: Werner Eberl) 





Der Commodore 128 besitzt zwar viele neue praktische Befehle, jedoch kann man 
hier die in Computerkreisen übliche Erfahrung bestätigen, daß kein Programm so 
gut sein kann, daß man es nicht verbessern könnte. Das trifft also auch das Basic 
7.0 zu. Ergänzungen bieten sich vor allem bei der Zahlkonvertierung an (die Verwen- 
dung von hexadezimalen Operanden im Basictext ist noch etwas umständlich), bei 
der Verwendung der Echtzeit-Uhren und bei der Ein-/Ausgabe. 


Außerdem hat wohl jeder Anwender sein Spezialgebiet, und gerade für diese Ge- 
biete bräuchte man dann spezielle Befehle, um sich das Leben mit dem Basic-Pro- 
grammieren zu erleichtern. Deshalb stellen wir auch im ersten Teil dieses Kapitels 
ein Verfahren vor, wie man allgemein neue Befehle und Funktionen in das Basic 7.0 
eingliedert. Es wurde darauf geachtet, daß der Speicherbereich für die Basic-Erwei- 
terungen so gelegt wurde, daß auch noch ROM-Routinen verwendet werden können. 


In der vorliegenden Version liegen die neuen Basic-Befehle und Funktionen in der 
Bank 1 zwischen $0400 und $1000. Die obere Grenze kann jedoch leicht auf $4000 
verschoben werden, so daß dann 15 KByte für Ihre Basic-Erweiterungen zur Ver- 
fügung stehen. 


-4/6.5.1 


Allgemeine Vorgehensweise 





Nach einer Liste der wichtigsten Adressen des Basic-Interpreters und des Betriebs- 
systems gehen wir ausführlich auf das Bank-Switching bei den Basic-Erweiterungen 
ein. Danach wird beschrieben, wie man die Basic-Erweiterung aktiviert, und im 
nächsten Kapitel folgt die Erläuterung der Dekodierung von Befehlen und Funk- 
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tionen. Die in diesem Buch realisierten neuen Befehle finden Sie dann im folgenden 
Kapitel zusammengestellt. Dort ist auch beschrieben, bei welchen Speicherbereichen 
welche Befehlsgruppen abgelegt worden sind. Den Abschluß bildet ein Kapitel über 
die Möglichkeiten, Parameter an Basic-Befehle oder Funktionen zu übergeben. Ge- 
rade das zweite und das letzte Unterkapitel beinhalten viele Informationen, die 
Ihnen langes Herumprobieren und Fast-Verzweifeln ersparen. 


4/6.5.1.1 


Symbolvereinbarungen 











Im folgenden zeigen wir Ihnen eine Liste mit den wichtigsten Basic-Routinen und 
Adressen. 


: TFFFLAG STRINFSHUNG 
:FUER Fi 




















Listing 4/6.5.1.1-1 (Teil 1) 
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TIMEH 








HREL.T 
LT 


MAL. 
HACH 


EIM-RNS 











Listing 4/6.5.1.1-1 (Teil 2) 
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Listing 4/6.5.1.1-1 (Teil 3) 


Ebenso wichtig sind die Betriebssystem-Adressen des Kernal. Die Routinen mit 
Adressen $FF. . werden über die konstante Kernalsprungtabelle angesprochen, die 
aufwärtskompatibel zum Commodore 64 ist und wahrscheinlich auch bei künftigen 
Commodore-Rechnern erhalten bleiben wird. 











Listing 4/6.5.1.1-2 (Teil 1) 
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STRR-WEHKTOR 
RIRELE 
: F, AOrR, F. IMOFET 
F. HOR. F. IMNDSTA 
AM COHFIS. RES. 











Listing 4/6.5.1.1-2 (Teil 2) 


Da wir in diesem Kapitel nur den Sprungverteiler auf die einzelnen Befehle bespre- 
chen wollen, hängt das Verständnis des Verteilers nicht davon ab, wo die einzelnen 
Befehle nun genau liegen. Trotzdem muß der Verteiler selbst natürlich wissen, 
wohin er springen muß. Deshalb folgt hier die Liste der Adressen der Sprungzicle. 






ME: 














Listing 4/6.5.1.1-3 
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4/6.5.1.2 


Bank-Switching bei Basic-Erweiterungen 





Worum es beim Bank-Switching überhaupt geht, wurde bereits bei der Besprechung 
der MMU erwähnt. Um die Problematik für die Basic-Erweiterungen transparenter 
zu machen, bilden wir hier zunächst eine Grafik ab, aus der Sie ersehen können, 
in welcher Bank und in welchem Adreßbereich die für die neuen Befehle relevanten 
Bereiche liegen. Die Banknummern bezeichnen dabei nicht die Konfigurationsnum- 
mern, die mit dem BANK-Befehl eingestellt werden können, sondern die physikali- 
schen Bänke. Die fünfzehn Möglichkeiten des BANK-Befehles grafisch dargestellt 
finden Sie in Teil 3. 
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Bank 
Adresse RAMO RAM1 ROM VO Adresse 
0000 = E 0000 
ommon ommon 
0400 
VIDEO-RAM Platz für neue 
0800 Befehle und 
1000 Funktionen 1000 
j202 Basic-Befehis-Decoder 
1600 asic-Belehis-De Si 
2000 — Ba 2000 
weitere 
3000 rl neue 3000 
Grafik Befehle 
4000 4000 
5000 — 5000 
6000 6000 
Basic- 
7000 3 i 7000 
Basic- Variablen . Basic 
Programm- und 70 
8000 Text Zeichen- i 8000 
reihen 
9000 — j 9000 
A000 — A000 
BO00 —ı BO00 
C000 — C000 
Editor 
D000 —ı DO000 
CHARROM VO 
E000 — E000 
KERNAL 
F000 — und FO00 
Monitor - 
FFFF FFFF 











Bild 4/6,5.1.2-1 Speicheraufteilung beim C 128 mit den Erweiterungen 5 2 : nicht existent 
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Die Präkonfigurations-Register der MMU werden von Basic-Interpreter bei dessen 
Initialisierung folgendermaßen besetzt: 


Name Adresse Konfiguration 





RAMO $FFO1 nur RAM 0, kein ROM, kein VO 
RAM $FFO2 nur RAM 1, kein ROM, kein /O 
ROMRAMO $FFO3 RAM 0, ab $4000 ROM, kein l/O 
ROMRAM1 $FFO4 RAM 1, ab $4000 ROM, kein I/O 





Jetzt wollen wir die für uns wichtigsten Punkte zusammentragen: 


1. 


Unsere Basic-Erweiterungen sollen ladbar und veränderbar sein und müssen 
deshalb im RAM stehen. 


. Wir wollen einige Basic-ROM-Routinen und vor allem auch die Kernal- 


Routinen von unseren Basic-Erweiterungen aus ansprechen können, ohne dabei 
mittlere Klimmzüge machen zu müssen. 


. Aus den Punkten I und 2 folgt, daß die oberen 48 KB des Prozessor-Adreß- 


raums für unsere Zwecke ausscheiden, weil sich dort ROM befindet. 


. Der verbleibende Platz in der RAM-Bank 0 geht v on $1300 bis zum Beginn 


des Basic-Programms und ist daher recht knapp. Die eigentlichen Programme 
für die neuen Basic-Befehle müssen wir daher in RAM-Bank 1 legen. 


. Die ersten 1 KB der RAM-Bank 1 scheiden aus, da dieser Adreßbereich durch 


die MMU zur Common-Area erklärt wird, d.h. hier ist immer RAM 0 aktiv. 


. Den notwendigen Platz für die Befehle in RAM-Bank 1 reservieren wir durch 


Veränderung des Zeigers auf den Anfang der Variablentabelle. Maximal können 
wir dadurch 15 KByte für unsere Zwecke nutzbar machen. 


. Die Dekodierung unserer eigenen Befehle erreichen wir, indem wir den Vektor 


auf die Befehlsausführung bzw. auf die Auswertung eines arithmetischen Aus- 
drucks entsprechend verbiegen. Die Vektoren selbst stehen in der Common- 
Area, beinhalten aber keine Information, in welcher Bank die Basic-Erweiterun- 
gen stehen. 


- Wenn der Basic-Interpreter einen indirekten Sprung über einen dieser Vektoren 


ausführt, so ist die im Basic-Interpreter am meisten verwendete Konfiguration 
aktiv, nämlich: 


$000 $4000 sFFFF 
Bild 4/6.5.1.2-2 Standard-Basic-Konfiguration „ROMRAMO“ 
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Abgekürzt bezeichnet man diese Konfiguration mit ROMRAM!. Die Tatsache, 
daß bei der Verzweigung auf unsere Routine eben diese Konfiguration aktiv ist, 
zwingt uns, wenigstens einen Teil unserer Basic-Erweiterungen, am besten den 
Sprungverteiler, in die RAM-Bank 0 zu legen, auch wenn dort der Platz etwas 
knapp ist. 


9. Bemerkenswert ist, daß keine der durch die Präkonfigurations-Register einstell- 
baren Möglichkeiten einen Zugriff auf den I/O-Bereich zuläßt. 


10. Solange eine Konfiguration mit ROM oder V/O eingeschaltet ist, kann weder 
auf den gesamten Basic-Programmtext, noch auf die gesamten Basic-Variablen 
bzw. Strings zugegriffen werden. 


ll. Für Basic-Erweiterungen sind die ROM-Routinen zum Parameter holen sehr 
wichtig. Diese Parameterhol-Routinen greifen jedoch auf den Basictext zu und 
müssen deshalb Umkonfigurationen vornehmen. Es ist damit zu rechnen, daß 
nach Abschluß dieser Routine die Basic-Standardkonfiguration ROMRAMO 
aktiv ist, auch wenn wir vorher ROMRAM1 konfiguriert haben. Dies gilt be- 
sonders für die Routine CHRGET, die in der Common-Area abgelegt ist. 


12. Beim Auswerten von arithmetischen Ausdrücken können wieder arithmetische 
Ausdrücke auftreten, wodurch sich verschachtelte Aufrufe unserer eigentlichen 
Arithmetik-Routine ergeben können. Vor dem zweiten Aufruf der Arithmetik- 
Routine kann das Basic auf ROMRAMO zurückkonfiguriert haben oder nicht. 
Weil dieser Punkt nicht vorhersehbar ist, müssen wir den Sprung auf unsere 
Arithmetik-Routine in die Common-Area legen. 


Aus dieser Tabelle der zu beachtenden Punkte folgt, daß wir uns beim Programmie- 
ren der Basic-Erweiterungen auf munteres Umkonfigurieren einstellen müssen. Gott 
sei Dank können wir die geläufigsten und wichtigsten Konfigurationen ja durch Ver- 
wendung der Präkonfigurations-Register benützen, so daß uns dann wenigstens 
keine Prozessor-Register verloren gehen. Bei Verwendung des Konfigurations- 
Registers bei $FF00 müßten wir ja wenigstens eines der Register benützen, um aus 
diesem die neue Konfiguration in dieses MMU-Register zu schreiben. 


'Weitsprünge, die nicht im Sand verlaufen 


Die hier vorgestellte Routine führt einen sogenannten Weitsprung aus. Damit ist ge- 
meint, daß außer dem Programmzähler noch die Banknummer verändert wird. In 
der vorliegenden Routine wurde der Spezialfall verwirklicht, daß das Sprungziel in 
der Konfiguration ROMRAMI enthalten ist und das aufrufende Programm in der 
Konfiguration ROMRAM!. Das Byte $20 ist der JSR-Befehl, auf den die 2 Bytes 
mit der Zieladresse folgen. Die Zieladresse wird vor dem Aufruf der Weitsprung- 
Routine vom aufrufenden Programm hier eingesetzt. Das aufgerufene Unterpro- 
gramm kehrt sicher in die Weitsprung-Routine zurück, da diese in der Common- 
Area steht. Zum Abschluß der Routine wird auf ROMRAMO zurückkonfiguriert, 
und damit ist das Unterprogramm auch fertig. 
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MEITIZODE : 


KIZZ: 














Listing 4/6.5.1.2-1 


Hilfssprung auf die Arithmetik-Routine 





HEWALGZODE 








Listing 4/6.5.1.2-2 


Wie erwähnt, muß der Sprung in die Arithmetik-Routine in der Common-Area 
liegen, weil eventuell umkonfiguriert werden muß. Dies ist hier deutlich zu sehen. 
Durch den STA-Befehl wird auf ROMRAMO konfiguriert und dann zu unserer ei- 
gentlichen Arithmetik-Routine verzweigt. 


Umrahmte Basic-Parameter-Routinen 


Das Problem der Parameter-Routinen ist bereits erwähnt worden. Wir führen uns 
nochmal die Problematik vor Augen: Es möge eine Basic-Erweiterung in der Konfi- 
guration ROMRAMI laufen. Diese ruft eine Parameterhol-Routine auf, die ihrer- 
seits auf ROMRAMO umkonfiguriert. Wenn diese Routine den RTS-Befehl aus- 
führt, springt sie ins Leere, da die aufrufende Routine ja in RAM 1 gestanden hat. 
Im Prinzip könnten wir nun hergehen und für jede Basic-Routine eine umrahmte 
Routine in der Common-Area ablegen. Für die GETBYT-Routine würde das dann 
wie folgt aussehen: 


ZGETBYT: 
JSR GETBYT 


STA SWROMRAI 
RTS 





Die Routine würde sicher zurückkehren, da ja der Aufruf in der Common-Area 
liegt; danach würde auf ROMRAMI zurückkonfiguriert und alles wäre in Ordnung. 


Wir müßten dann jeweils anstatt GETBYT die erweiterte Routine ZGETBYT auf- 
rufen. 2 


Der uns zur Verfügung stehende Platz in der Common-Area ist aber äußerst gering. 
Er beschränkt sich auf 6 Byte in der Zero-Page und etwa 23 Byte in Page 3. In dem 
Bereich der Page 3 haben wir bereits die Weitsprung-Routine und den Hilfssprung 
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für die Arithmetik-Routine gelegt. Deshalb wählen wir hier einen anderen Weg. Das 
Zurückkonfigurieren auf ROMRAM1 und der RTS-Befehl befinden sich schon vom 
Betriebssystem her initialisiert in der Common-Area und zwar ab der Adresse 
$03B3. Wir müssen jetzt nur erreichen, daß die ROM-Routine kurz dorthin springt, 
bevor sie zu unserem aufrufenden Programm zurückkehrt. Das machen wir mit fol- 
gendem kleinen Trick, der hier wieder am Beispiel der Routine GETBYT erläutert 
sei: 





[OR #RUECEH 
FHA 
LOAOHRUETEL 


FHA 
IHR GETEHT 





Listing 4/6.5.1.2-3 


Diese Umrahmung der ROM-Routine steht im RAM 1. Dadurch können wir sehr 
viele ROM-Routinen auf diese Weise umrahmen, ohne daß der Platz ausgeht. 


Der Trick ist nun folgender: Wir legen als Rückkehradresse die Adresse des kleinen 
Programmstücks ab $03B3 auf den Stapel. Danach wird die ROM-Routine auf- 
gerufen. Wenn diese auf den RTS-Befehl läuft, meint sie, sie wäre von dem Pro- 
gramm bei $03B3 aufgerufen worden und springt deshalb dahin zurück. Dort wird 
dann umkonfiguriert und alles ist in Butter. 


Wenn man ganz genau sein will, muß man natürlich anmerken, daß die um eins ver- 
minderte Rücksprungadresse auf den Stapel gelegt werden muß, da der RTS-Befehl 
den Programmzähler selbständig um 1 erhöht. 


Wir können nun die ROM-Routine aufrufen, indem wir anstatt der Adresse im 
ROM die Adresse unserer umrahmten Routine in der RAM-Bank 1 verwenden, also 
z.B. EGETBYT anstatt GETBYT. Diejenigen ROM-Routinen, die nicht auf den 
Basic-Programmspeicher zugreifen, können ohne diese Umrahmung aufgerufen 
werden. Das sind vor allem die Routinen für die Fließkomma-Arithmetik und alle 
Kernal-Routinen. Es ist auch unkritisch, die Fehlerbehandlungsroutinen anzusprin- 
gen, weil dort die Banks in geeigneter Weise geschaltet werden. 


Der Übersichtlichkeit halber wollen wir Ihnen den gesamten Programmteil mit den 
umrahmten ROM-Routinen auflisten: 
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TRAUM: 


EIHRBET: 





Listing 4/6.5.1.2-4 





LE 
FHRA 
LoA 
FHR 
IMF 


[DR 
PHR 
Lo 
PHRA 
Im 


L.oıFA 
FHA 
L.oıA 
PHA 
IMP 


LEA 
FHRA 
LOR 
FHR 
IHR 


LOA 
FHR 
LOA 
FH 
SMF 


#RELEIEL 


* SHEGOM 





#RLUE 





#RUECHL 


FRIEWL. 


#RUECKH 
#RUECKL 


SETETT 


#RUECHEH 
#RUECHL. 


GETMED 


#RUECEH 
#RUECHEL 


GETHUM 


#RUELIEH 
#RUECHL 


ECHRGET 
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Listing 4/6.5.1.3-1 (Teil 1) 


IMIT 
MEITCODE : 

SMROMERLE RÖMER 
HL 








Is 





I Ir 
SIROMRAA 





FIEREH 





HEWALDODE : 






:FROG 
:IN DO 





MLAEHG 
ERSTEH 1 

















[ein EITZOOE 
WEITSFRHM 





„OFFSET 
‚Er! 





“ ZIEL 


4 #EICL 





MEITCNDE 





;FERTIG 
;IMITIAL 


IMET: 





MESDEZOF >NEITERDE KORTE 










ER MELIE 
:TELLEN 





#ELE 
YARTAB-+L 


#ZEIRE 
Iren 
>EIRG 
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Listing 4/6.5.1.3-1 (Teil 2) 


Die Initialisierungs-Routine liegt in der RAM-Bank 0 ab $1300=4864. Sie wird des- 
halb mit 


BANKO: SYS4864 


aufgerufen. Den Bank-Befehl kann man sich sparen, wenn der Rechner seit dem 
Einschalten keinen anderen Bank-Befehl erhalten hat. 


Zu Beginn des Programms steht ein Sprung auf den wirklichen Beginn der 
Initialisierungs-Routine, wodurch Flexibilität bei Programmänderungen gewährlei- 
stet ist. Die abgebildeten Hilfszellen BEFNR, FNNR und AKKUSICH werden für 
die Befehls- und Funktionsdekodierung benötigt und werden hier gleich mit ab- 
gebildet. 


Das Programmstück ab dem Label WEITCODE wird von der Initialisierungs- 
Routine, genauer gesagt, von dem Unterprogramm WCODECOP so in die 
Common-Area kopiert, daß das letzte Byte gerade bei $03FF zu liegen kommt. Die 
Symbolzuweisungen darunter legen die wirklichen Adressen der Unterprogrammla- 
bels in der Common-Area fest. Dies sind: 








WEITSPR für die Weitsprung-Routine 
HEVAL für den Sprung auf die Arithmetik-Routine 
ZIEL für die Adresse des Weitsprungvektors 










Die eigentliche Init-Routine beginnt beim Label INIT. Dort wird zunächst die 
Weitsprung-Routine in die Common-Area kopiert, dann werden die drei Vektoren 
zum Ausführen eines Befehls (IGONE), zum Auswerten eines arithmetischen Aus- 
drucks (IEVAL) und zur Ausführung des 60 Hertz-Interrupts (IIRQ) auf unsere 
eigenen Routinen gestellt. 


Zwischendurch wird noch der Zeiger auf den Beginn der Variablen-Tabelle auf $1000 
gestellt, so daß die Basic-Varibalen nicht unsere Basic-Erweiterungen zerstören. 
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Zum Schluß wird noch eine kleine Meldung ausgegeben, wobei die Basic-Routine 
STROUT verwendet wird, die einen String, dessen Anfang in Akku und Y-Register 
übergeben wurde, solange ausgibt, bis sie auf ein 0-Byte trifft. 


4/6.5.1.4 


Dekodierung 





Zur Behandlung der normalen Basic-Befehlswörter in einer Befehlszeile führt der 
Interpreter vier verschiedene Arbeitsschritte durch: 


1. Bei der Eingabe der Zeile werden die Schlüsselwörter in sogenannte Tokens um- 
gewandelt, die eine Abkürzung des Basic-Befehlswortes darstellen. 


2. Beim LIST-Befehl werden diese Abkürzungen zur Ausgabe auf dem Bildschirm 
wieder in den ganzen Text umgewandelt. 


3. Die Basic-Befehle werden an ihren Tokens erkannt, und danach wird über eine 
Sprungtabelle zu den einzelnen Befehls-Routinen verzweigt. 


4. Ebenso wird mit den Funktionen verfahren, wobei hier allerdings nicht beim Ab- 
arbeiten von Befehlen sondern beim Auswerten von arithmetischen Ausdrücken 
ein Sprungverteiler angesprochen wird. 


Im Prinzip könnten wir bei der Realisierung eigener Basic-Befehle genauso verfah- 
ren, aber wir können uns die ersten beiden Schritte auch schenken, wenn wir bei 
der Ausführung von Befehlen und Auswerten von arithmetischen Ausdrücken nach- 
sehen, ob eines unserer Schlüsselwörter im Basic-Iext steht. 


Dieses Befehlswort ist dann nicht in Tokens umgewandelt und wir vergleichen ein- 
fach den Klartext mit unserer Schlüsselworttabelle. 


Auf diese Weise funktionieren auch die im folgenden beschriebenen Befehls- und 
Funktionsdekoder. Sie können die Befehlstabelle leicht ergänzen, wenn Sie einen 
Assembler haben. Sie müssen dann natürlich auch die Sprungtabelle um ihre Ein- 
sprungadresse erweitern. Für diejenigen unter Ihnen, die keinen Assembler verfüg- 
bar haben, haben wir einen Testbefehl und eine Testfunktion eingefügt, die man mit 
Hilfe des Monitors leicht auf die speziellen Bedürfnisse abändern kann. 
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4/6.5.1.4.1 


Befehle 








; BEFEHL 





LO ET 
H TH 









"TED E.H- 
EN UND FERTIG 


DEC TETPTR 





R 











Listing 4/6.5.1.4-1 


Zuerst möchten wir eine kleine Hilfsroutine abbilden, die einfach den Basic- 
Befehlszeiger TXTPTR um eins vermindert. Die Routine ist notwendig, weil unsere 
Dekodierungs-Routine ein Zeichen mit CHRGET liest und dabei den Befehlszeiger 
um eins weiterstellt. Wurde aber nun doch kein neuer Basic-Befehl gefunden, so 
muß diese Änderung rückgängig gemacht werden. 





[s]03 









SFUEHREN 
E Io HöLEH 








SHRÖMERE 
Sr DEO 
2 HOME 





CHR STATFTES,T 





Listing 4/6.5.1.2-2 (Teil 1) 





Utilities Teil 4 Kapitel 6.5 Seite 17 














6.5 Basic-Erweiterung beim C 128 Teil 4: Software-Erstellung 















AHSTABELLE BEFEHLE 








TAB: 








„Er "Aust, 


fo) 


„Er 





‚Er "PA 





.Er "SETTIME",S 





„Er "TE 


„Era 











Listing 4/6.5.1.4-2 (Teil 2) 
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6.5 Basic-Erweiterung beim € 128 Teil 4: Software-Erstellung 


Nach dem Holen des ersten Basic-Zeichens wird zur ROM-Routine verzweigt, wenn 
eine Ziffer oder ein Sonderzeichen gefunden wurde. Nur bei einem Buchstaben wird 
die Befehls-Tabelle Zeichen für Zeichen durchsucht, wobei die Befehlswörter durch 
ein einzelnes 0-Byte getrennt sind, und die Tabelle durch zwei aufeinanderfolgende 
0-Bytes beendet ist. Wurde eines unserer Befehlsworte gefunden, so wird der Basic- 
Befehlszeiger um die Länge des Befehlswortes erhöht, die Zieladresse aus der 
Sprungzieltabelle geholt und in den Vektor ZIEL geschrieben, womit die 
Weitsprung-Routine aufgerufen wird. Die Befehlssequenz endet mit dem Sprung in 
die Interpreterschleife NEWSTT. 


Korrespondierend zu der Sprungtabelle in Bank 0 existiert die Sprungtabelle in 
Bank 1: 





: # SPRUMGLEISTE ek 
Tr Al 
Hr 
SMF PR 





Ir 
JHMR 
IMF 





Listing 4/6.5.1.4-3 
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4/6.5.1.4.2 


Funktionen 















AUF EIN 








zn 
1) 





© TATPTR+HL 





FHHR 





Listing 4/6.5.1.4-4 (Teil 1) 
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EBEN: 





IP 





UMSTABELLE FUNKTIONEN 











„Er "EINME",S 


‚Er "EEK 





‚Bir "TIME 














Teil 4: Software-Erstellung 






-FUHRTIOH 








Listing 4/6.5.1.4-4 (Teil 2) 
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Der Programmablauf für die Funktionsdekodierung ist weitgehend identisch mit 
dem für die Befehlsdekodierung. Für die Auswertung von hexadezimalen Operan- 
den, von binären Operanden und die erweiterte VAL-Funktion wurden drei zusätz- 
liche Abfragen am Anfang des Programms eingefügt. Im Gegensatz zu der Befehls- 
Routine endet diese Routine nicht mit JMP NEWSTT sondern mit RTS. 


Es ist zu beachten, daß die Hilfszelle AKKUSICH, die Hilfsroutine DECBZ, der 
Vektor ZIEL und die Weitsprung-Routine auch von der Befehlsdekodier-Routine 
benützt werden. Man könnte meinen, daß sich dadurch Probleme ergeben. Jedoch 
zeigt sich, daß die Funktionsdekodier-Routine von der Befehlsdekodier-Routine nur 
indirekt über einen Befehl aufgerufen werden kann und das zu einem Zeitpunkt, wo 
die Befehlsdekodier-Routine bereits ihre Arbeit erledigt hat und deshalb diese Hilfs- 
zellen nicht mehr benötigt. 


Auch hier gibt es eine korrespondierende Sprungtabelle in Bank 1, die auch einige 
wichtige Hilfsroutinen enthält: 











Listing 4/6.5.1.4-5 
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6.5 Basic-Erweiterung beim C 128 


416.5.1.5 


Übersicht über die neuen Befehle 


Teil 4: Software-Erstellung 





Selbstverständlich wollen wir Ihnen auch eine Zusammenfassung der neuen Befehle 
geben. Hier eine Aufstellung: 





Befehi (*=Funktion) 


Bedeutung 





Adreßbereich 
in Bank 1 









$hhhh 
%bbbbbbbbbbbbbbbb 
AUS 

BIN$(Adr) 

PAUSE HSEK 

QEEK (Adr) 

QOKE Adr, Adr 
SETTIME U, ZE$ 
TEST 
TIMEI 
TIME2 
VAL(VS) 








Hilfsroutinen sind nicht angeführt; die an 


* 


Erfassen Hexadezimalwert 
Erfassen Binärwert 
Beiehlserweiterung ausschalten 
Binärstring aus Adresse bilden 
Pause 

16-Bit-PEEK 

16-Bit-POKE 

Alarmzeit im CIA setzen 


Uhrzeit aus CIA 1 lesen 
Uhrzeit aus CIA 2 lesen 
Zahlwert einer Zeichenreihe errechnen 





















$04F2 — $0513 
$0514 — 30535 
30815 — $0839 
$057B — $0595 
$0888 — $08D7 
30861 — $0887 
$083A — $0860 
$08D8 — 30980 
$09FD — $09FD 
$0981 — SO9FC 










30536 — $057B 





geführten Parameter haben folgende Be- 





deutung: 
b —  Binärziffer 
h — Hexadezimale Ziffer 
Adr — Ganze Zahl (Adresse) zwischen 0 und 65535 
HSEK _— Zeit in 1/1100 Sekunde 
V$ — Zeichenreihe aus Ziffern 
U — Uhrnummer: 1 — Uhr im CIA 1 


ZE$ 


2 — Uhr im CIA 2 
3 — Alarmzeit im CIA 1 
4 — Alarmzeit im CIA 2 


Zeit-Zeichenreihe im Format HH:MM:SS:Z 
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6.5 Basic-Erweiterung beim C 128 Teil 4: Software-Erstellung 


4/6.5.1.6 


Parameterübergabe 





Bereits bei den Zahlkonvertierungen haben wir verschiedene Parametertypen ken- 
nengelernt. Wir wollen sie hier noch einmal kurz zusammenstellen. 


1. Numerische Parameter 


Das Commodore-Basic rechnet grundsätzlich mit Fließkommazahlen, aber von 
der Verwendung her sind auch oft nur eingeschränkte Zahlenbereiche interessant. 
Folgende Möglichkeiten sind wichtig: 


1.1 Fließkommazahlen 
1.2 Byte-Parameter: Ganze Zahlen von 0 bis +255 
1.3 Adreß-Parameter oder „non-signed integers“: 
Ganze Zahlen von O bis +65535 
1.4 „Signed-Integers“: Ganze Zahlen von -32768 bis +32767 


2. Variablen 


Eine Variable als Parameter zu übergeben heißt die Adresse der Variable dem 
Maschinenprogramm mitzuteilen. Dieses kann dann auf die Variable schreibend 
oder lesend zugreifen. Somit kann der Inhalt der Variablen als Ein- oder Aus- 
gabeparameter verwendet werden. 


3. Stringparameter 


Ein Stringparameter bedeutet beim Commodore-Basic einen Deskriptor zu über- 
geben. Der Deskriptor beinhaltet die Länge der Strings und die Startadresse 
(Low Byte, High Byte) desselben. 


4. Parameterübergabe an beliebige Maschinenprogramme 


Die Parameter für Maschinenprogramme, die man einfach mit SYS aufrufen 
möchte, müssen ja nicht unbedingt dahinter im Befehlstext stehen. Man kann 
statt dessen folgende einfache Methode verwenden: Man sucht sich im Speicher 
einige freie Speicheradressen aus und schreibt in diese Zellen die Eingabepara- 
meter, Das Maschinenprogramm kann nun genau diese Adressen benützen, da 
diese vorher fest vereinbart wurden. Vor dem Aufruf mit SYS muß man dann 
natürlich die Parameter einPOKEn. 
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Die Behandlung von Ausgabeparametern kann auf ähnlich einfache Weise ge- 
schehen; das Ergebnis kann man dann mit PEEK aus den spezifizierten Speicherzel- 
len herauslesen. Wenn Sie anfangen, mit Maschinenprogrammen zu experimentie- 
ren, werden Sie vor allem diese Methode benützen, da Sie die Parameter natürlich 
auch im Monitor verändern können, und Sie daher immer eine gute Kontrolle über 
den Programmablauf haben. 


Braucht man nur wenige Parameter, so kann man die Prozessorregister zur Über- 
gabe verwenden. Der SYS-Befehl des Commodore 128 besitzt nämlich die prakti- 
sche Eigenheit, daß unmittelbar vor dem Aufruf des eigentlichen Maschinenpro- 
gramms die Prozessorregister Status, Akku, X, Y aus den Speicherzellen 5 bis 8 
(vergleiche im Handbuch Seite H7) geladen werden und nach Verlassen der Routine 
die geänderten Werte in diese Zellen zurückgeschrieben werden. Deshalb kann man 
eben diese Speicherzellen wieder als Ein- oder Ausgabeparameter verwenden. 


Eingabeparameterübergabe aus dem Basictext 


Die wichtigste RAM-Routine hierzu ist FRMEVL. Sie wertet einen Ausdruck belie- 
bigen Typs und beliebiger Komplexität aus. Bei einem numerischen Parameter steht 
das Ergebnis im Fließkomma-Akkumulator, bei einem Stringparameter kann mit 
FRESTR die Stringadresse in die Zero-Page-Zellen INDEX, INDEX +1 geholt wer- 
den, die Länge steht dann im Akkumulator. 


Außer FRMEVL gibt es noch viele andere Routinen, die eine Kombination von 
FRMEVL mit anderen Routinen darstellen. So z.B. GETBYT zum Holen eines 
Byteparameters in das X-Register. 


Eine Kurzdarstellung der wichtigsten Parameterhol-Routinen geben wir anschlie- 
Bend, Beispiele finden Sie auch noch bei den einzelnen Befehlen und Funktionen. 


























[ Routine Bedeutung Beispiel 
CHKCOM prüfen auf Komma OQOKE $1083D 
CHKNUM numerische Prüfung BIN$STR $1057E 
CHRGET holt Zeichen aus Basic-Text EEVAL $013D5 
FRESTR holt Stringparameter SETTIME $108E8 
FRMEVL holt beliebigen Parameter PAUSE $1088D 
GETBYT holt numerischen Wert (0-255) SETTIME $108DB 
GETNUM holt numerischen Wert (Fließk.) 
GETWRD holt numerischen Wert (0-65535) OOKE $1083A 
LEN FRESTR+Typflag prüfen VALNEU $1053C 
PARCHK holt Ausdruck in Klammern BIN$TR $1057B 
[ EENGEREEEEN — [1 





Funktionen, die einen numerischen Wert liefern sollen 


Diese Funktionen müssen das Ergebnis als Fließkommazahl im Fließkomma-Akku- 
mulator zurückgeben. Es muß darauf geachtet werden, daß das Flag für den Para- 
metertyp VALTYP auf numerisch (=0) gesetzt wird. 
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Funktionen mit Strings als Ausgabeparameter 


Im folgenden werden zwei wichtige Möglichkeiten zur Lösung dieser Aufgabe be- 
sprochen. Das ist zum einen die Verwendung der Routinen GETSPA und PUT- 
NEW, zum anderen das Ablegen der Strings im Pufferbereich ab $00FF und an- 
schließende Verwendung der Routine STRLIT. 


Die erste Möglichkeit ist z.B. bei der Routine zum Uhrzeit-Lesen verwendet worden. 
Die Routine GETSPA schafft Platz für einen neuen String, dessen Länge im Akku- 
mulator übergeben werden muß. Die Routine übergibt im Akkumulator nochmals 
die Länge des Strings und im X- und Y-Register das Low- und Highbyte der String- 
adresse, wo sich der neue String nun befindet. Zweckmäßigerweise speichert man 
diese drei Byte nacheinander im Fließkomma-Akkumulator ab und beschreibt dann 
den String. Anschließend ruft man die Routine PUTNEW auf, die den Deskriptor 
aus dem Fließkomma-Akkumulator auf den Stringstapel überträgt. Der zuletzt auf 
den Stringstapel gelegte String ist das Ergebnis der Routine. 


Die andere Möglichkeit geht davon aus, daß der String ab $0OFF beginnt und durch 
ein 0-Byte begrenzt wird. Dann genügt es, die Routine STRLIT aufzurufen, die 
dann alles weitere erledigt. 


4/6.5.2 


Zahlenumwandlung 





In diesem Kapitel sind die Routinen zur Auswertung von hexadezimalen und binä- 
ren Parametern aus dem Basic-Iext, die erweiterte VAL-Funktion und die 
BIN$-Funktion sowie einige dazugehörige Hilfsroutinen zusammengefaßt. 


Symbolvereinbarungen 


id FUFFER: „Ei 2 ;FUER SELLDUNG 
Hi: SP ; 


H2: 


E 
ELLE 
YALTSP 








Listing 4/6.5.2-1 
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Das Symbol PUFFER beschreibt den Zwischenspeicher zum Aufbau einer Zeichen- 
reihe, wie bei den Zahlkonvertierungs-Routinen in Kapitel 4/6.3.2 beschrieben. Die 
Hilfszellen Hl bis H3 begegneten uns ebenfalls dort. Die Basic-Routine LENI ist 
nichts anderes als ein Aufruf von FRESTR, der zusätzlich noch das Typflag auf 
numerisch setzt. 


Sprungleiste 


Ex SPRUHGLEIETE 


JMF EIMIMT 
Me IHTEIH 
IM 
IHF 





Listing 4/6.5.2-2 


In dieser Sprungleiste sind die Labels für die vier neuen Basic-Funktionen sowie die 
wichtigsten Hilfsroutinen dieses Abschnitts zusammengefaßt. 


Hilfsroutinen zum Erhöhen des Basic-Befehlszeigers 


IHITHT 


IMITHTL: 











Listing 4/6.5.2-3 


Offensichtlich macht diese Routine nichts anderes als den Zeiger im Zellenpaar 
TXTPTR, TXTPTR+1 um eins zu erhöhen. 
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Basic-Befehlsanzeiger um Y erhöhen 





BERLT: ;TEHTPTE UM Yo ERHOEHEN 


SACDETION 





EHEH 
BERUFT: 
FTSE ;FERTIS 











Listing 4/6.5.2-4 


Diese Routine macht etwas ähnliches wie die obenstehende, jedoch kann man hier 
im Y-Register die Anzahl der Zeichen angeben, um die der Befehlszeiger weiterge- 
stellt wird. 


Hexadezimalen Operaden auswerten 















IPEILEN 
TEREH 


: IMETST 
#4 





A #TSTPTE 
21 

: INGFET 
FUFFER. 


Koi 





IHT 


ir UN ERH. 





TR 
: INTFLE 














Listing 4/6.5.2-5 





Mit der ersten Programmzeile wird die erste hexadezimale Ziffer angepeilt. Darauf- 
hin werden fünf Zeichen aus dem Basictext in den Pufferbereich übertragen, wobei 
die Kernal-Routine INDFET verwendet wird, die das Bank-Switching managt. 


Anschließend wird die Umwandlungs-Routine HEXINT aufgerufen, der Basic- 
Befehlszeiger korrigiert und das Ergebnis nach Fließkomma umgewandelt. 





Teil4 Kapitel 65 Seite 28 ] Baiies 











6.5 Basic-Erweiterung beim C 128 Teil 4: Software-Erstellung 


Binären Operanden auswerten 


EIHMGL: 


: INDFET 
FUFFER 


BIHCI 
#18 sp 1 IMZIFFERM 
IHIHT 

Y ; '. UM ERH. 
#% 
YALTTR 
INTFLP 





Listing 4/6.5.2-6 


Der Programmablauf ist völlig analog zum Auswerten eines hexadezimalen Operan- 
den; lediglich werden hier 17 Byte in den Pufferbereich kopiert. 


Die Routine INTFLP wird im nächsten Kapitel erläutert. 


Erweiterte VAL-Funktionen 


"EICHEH 


AL. WOR HERERHL. 


TIHRNIHiRI ; 1j AU RAM LADEHM 


FUFFER, IH FUFFER 
VALPFAIRL 
Hi 











Listing 4/6.5.2-7 (Teil 1) 





Teil 4 Kapitel 6.5 Seite 29 





Utilities 








6.5 Basic-Erweiterung beim C 128 Teil 4: Software-Erstellung 


INTFLF: 
HZ 
I HE 
HOSFLT 


HEMWAL : 
FAR HG ETREAGEHM 

HEMIHT 

IHTFLF 





EIHMWAL: . 
SALPAR Ziege RTRASEH 
EIHINT ; L 
IHTFLF SERSEEN] > FAL 





Listing 4/6.5.2-7 (Teil 2) 


Im ersten Teil des Listings spricht dieses wohl für sich selbst, es wird lediglich in 
Abhängigkeit vom ersten Zeichen des Strings zu HEXVAL, zu BINVAL bzw. in die 
normale VAL-Routine verzweigt. 

Der nächste Abschnitt ab VALPAR ist eine Hilfsroutine, die den String in den Puf- 
ferbereich kopiert. Die folgende kleine Routine INTFLP lädt Akku und Y-Register 
aus den Hilfszellen H2 und H3, damit die Parameterkonventionen für die Routine 
NOSFLT eingehalten werden. 

Die letzten beiden Programmstücke ab HEXVAL und BINVAL sprechen wieder für 
sich selbst. 


BINS-Funktion 










HAL.EH 
FEH 





EFRRÖHE. 








; STELL! 
SUMMAHDLANHE 





IMTEIH 
1LDA #FFF 
LE #&a 
SMF STELLT 





















Listing 4/6.5.2-8 “ 


Hier wird zunächst der Parameter ausgewertet und in die Hilfszellen H2 und H3 
gelegt. Dann wird das erste Zeichen des Strings, den wir bei $OOFF beginnen lassen 
wollen, mit einem Prozentzeichen besetzt. Anschließend wird die Umwandlungs- 
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Routine INTBIN, die in Kapitel 4/6.3.2 besprochen wurde, aufgerufen und an- 
schließend der String mit Hilfe von STRLIT in den eigentlichen Stringbereich trans- 
feriert und der Deskriptor des neuen Strings auf den Stringstapel gelegt. 


4/6.5.3 


Uhrzeit und Pause 





Die Zeitbehandlung beim Commodore 128 kann auf verschiedene Weisen erfolgen. 
Zum einen kann man natürlich die eingebaute TI/TI$-Uhr, die sogenannte Jiffy- 
Clock, verwenden; genauer ist aber die Verwendung der Echtzeituhren oder der 
Timer der CIA’s (siehe Kapitel 2/2.1.5). Die Timer laufen quarzgenau, und die Echt- 
zeituhr läuft netzfrequenzgetrieben und ist daher über lange Zeiten noch genauer, 
auch wenn kurzfristig Abweichungen bis zu drei Minuten auftreten können. 


Die Timer im CIA können maximal mit einem 32-Bit-Wert geladen werden, der 
dann mit 1 MHz heruntergezählt wird, so daß auf diese Weise nur Zeiten bis etwa 
einer Stunde realisierbar sind. Wenigstens theoretisch liegt aber die Genauigkeit 
dieser Uhr bei einer Mikrosekunde. 


Ganz anders ist die Echtzeituhr aufgebaut. Sie ist wie eine Digitaluhr mit Stunden-, 
Minuten-, Sekunden- und Zehntelsekunden-Register ausgerüstet und verfügt außer- 
dem noch über ein Vormittags-, Nachmittags-Bit (AM/PM). 


In diesem Abschnitt wollen wir beide Möglichkeiten ausnützen und zwar werden wir 
zunächst eine Pause mit den Timern realisieren, die auf 1/100 Sekunde genau an- 
gegeben und eingehalten werden kann (der SLEEP-Befehl funktioniert nur ab einer 
Sekunde aufwärts). Als zweites werden wir Routinen vorstellen, die die Uhren der 
CIA’s stellen und lesen können. 
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4/6.5.3.1 


Pause 








12m 





:TRAHTE 








:AB HIER FREIE : 








ro MEN. 





FLEHNOS 











FRUÜLIOF : 





FRAUEHD: 





;EHDE PR 














Listing 4/6.5.3-1 
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Zunächst werden einige Besonderheiten des Programms angemerkt. Wir verwenden 
die Timer A und B des CIA2, die normalerweise nicht gebraucht werden, es sei denn 
für RS-232 Ein-/Ausgabe. Wir benötigen ein Hilfszellenpaar in der Zero-Page, wo- 
für wir zwei Byte aus dem freien Bereich $FA bis $FF benützen. Da die Zeit auf 
1/100 Sekunde genau angegeben werden kann, werden wir den Zeitparameter zu- 
nächst mit 100 multiplizieren und dann eine ganze Zahl bilden, welche dann die An- 
zahl der hundertstel Sekunden darstellt. 


Wie immer bei selbstgemachten Assembler-Routinen für den 128 treten auch an 
dieser Stelle Bank-Switch-Probleme auf, die jedoch hier recht einfach gelöst werden. 
Zum einen geschieht das Holen des Parameters mit Hilfe der Routine EFRMEVL, 
wodurch die Rückkehr in unser Programm gesichert wird, zum anderen wird die 
MMU mit einer Konfiguration geladen, die auch den V/’O-Bereich enthält. Dadurch 
kann überhaupt der CIA erst beschrieben werden. 


Zum Programmablauf: Nach dem Holen des Parameters und Multiplikation mit 
100 wird die Zahl mit Hilfe von FLPNOS (siehe Kapitel 4/6.5.3.2.2) in eine vor- 
zeichenlose ganze Zahl umgewandelt, die wir zunächst auf den Stapelspeicher legen. 
Danach wird die MMU umkonfiguriert und die Teilrate für den Timer A auf 9850 
gesetzt, wodurch der Timer B mit 100 Hertz getriggert wird. Dadurch können wir 
unseren umgerechneten Parameter als Teilrate für den Timer B einschreiben. 


Die Timer werden auf verkettete Betriebsart geschaltet, und dann wird in einer 
Schleife gewartet, bis das entsprechende Interrupt-Flag anzeigt, daß Timer B abge- 
laufen ist. Zwischendurch wird immer auch noch die Stop-Taste abgefragt, damit 
man im Zweifelsfalle eine zu lange Pause unterbrechen kann. 


4/6.5.3.2 


SETTIME — Uhrzeit im CIA setzen 





Wenn der 128er schon über gleich zwei Echtzeituhren verfügt, so sollte man doch 
auch einen Befehl haben, um diese in bequemer Weise zu stellen. Da die CIA’s auch 
über ein Alarmzeit-Register verfügen, wurde dieser Befehl so gestaltet, daß durch 
Angabe eines Parameters auch die Alarmzeiten gesetzt werden können. 


Die Behandlung des Alarmfalles, wenn Uhrzeit und Alarmzeit übereinstimmen, 
wird hier nicht gezeigt. Im Prinzip müßte man dabei so vorgehen, daß man im 
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CIA-Interrupt-Control-Register das einschlägige Bit setzt, wodurch dann im Falle 
eines Falles entweder ein IRQ (bei CIA1) oder ein NMI (bei CIA2) ausgelöst wird. 
Die Interupt-Routine muß dann abfragen, ob der Interrupt wirklich vom Alarm 
eines CIA gekommen ist. 


Wir wollen folgende Syntax vereinbaren: 


SETTIME UHRNUMMER, ZEIT 
Dabei bedeuten: 
UHRNUMMEER eine Zahl zwischen 1 und 4: 





Uhr in CIA 1 
Uhr in CIA 2 


Alarmzeit in CIA 1 
Alarmzeit in CIA 2 


man 





ZEIT = Zeichenreihe aus 10 Zeichen in folgendem Format: 
„HH:MM:SS:Z“ Die Zeit wird im 24-Stunden-Format angegeben. 


SETTIML: 


FIN CARE 


GI 
"TE Yon DIR 


#=1 Ra 


<FZIN.T 





Listing 4/6.5.3-2 (Teil 1) 
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AUTOH, 
IHR 
TEHEN 








AIHE 
LE 











pi] 






zg 






I 


HILF 















HE 


Eh 
© SDEFM 








SINDES 











"EICHE 







IGEN 





JHMP FÜERR :FEHLER 








LER #ERAIRONIO 
STA MMUCH 









Listing 4/6.5.3-2 (Teil 2) 
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DA HILF - 
IM 
ST ZAEHL 


FTSE 








Listing 4/6.5.3-2 (Teil 3) 


An Bank-Switch-Probleme haben wir uns jetzt ja schon gewöhnt, und hier sind im 
wesentlichen die gleichen zu bewältigen, wie beim oben beschriebenen Pause-Befehl, 
jedoch müssen wir hier noch einiges öfter hin- und herschalten. Der Programm- 
ablauf beginnt wieder mit dem Holen der Parameter, wobei der numerische Para- 
meter mit EGETBYT und der String-Parameter mit EFRMEVL und FRESTR 
geholt wird. Als Hilfszellen benötigen wir CLOCKNR zur Aufnahme des Uhrnum- 
mern-Parameters, ZAEHL als Zeiger in den String und HILF zum Zwischenspei- 
chern des Akkumulators. 


In der Hilfszelle CLOCKNR wird die um eins verminderte Uhrnummer gespeichert, 
so daß wir den CIAl ansprechen müssen, wenn der Inhalt dieser Zelle gerade ist, 
sonst CIA2. Wir werten die Informationen aus, indem wir das niederwertigste Bit 
dieser Zelle in das Carry schieben und dann eine Addition zum Wert $DC ausfüh- 
ren, womit wir im Akkumulator das höherwertige Byte der Basisadresse des richti- 
gen CIA erhalten. 


Einen Zeiger auf diesen CIA errichten wir in dem Hilfszellenpaar FZ1, FZ1+1. Auf 
noch trickreichere Weise, wie gerade eben, setzen oder löschen wir das Alarmzeit-/ 
Uhrzeit-Bit des Kontroll-Registers B. Dazu schieben wir das nächste Bit der Uhr- 
nummer in das Carry, sichern das Carry, laden nun das Kontroll-Register, rotieren 
es nach links, holen das alte Carry zurück und rotieren das Kontroll-Register erneut 
nach rechts und speichern es wieder ab. Auf diese Weise ist das Bit aus der Zelle 
CLOCKNR in das Kontroll-Register des CIA gewandert. 


Wir müssen unsere Trickkiste nun noch einmal bemühen, denn die Uhrzeit muß ja 
noch vom 24-Stunden- in das 12-Stunden-Format umgerechnet werden. Dazu holen 
wir zunächst mit der Hilfsroutine AUSW2 die Stunden im BCD-Format in den 
Akku. Dann schalten wir mit dem SED-Befehl auch den Prozessor auf BCD- 
Arithmetik um, womit wir auf einfache Weise 12 abziehen können, was ja notwen- 
dig wird, wenn unsere Stundenzahl größer als 12 ist. In diesem Fall müssen wir 
natürlich noch das Nachmittags-Flag setzen, was ab dem Label SETTPM erledigt 
wird. " 


Im restlichen Programmstück werden lediglich die weiteren Ziffern gelesen und in 
die entsprechenden Uhrzeit-Register übertragen. 
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4/6.5.3.3 


Uhrzeit aus Echtzeituhr lesen 





Fast noch wichtiger als das Setzen der Uhren mit einem Basic-Befehl ist das Lesen 
der Uhr mit einer geeigneten Funktion, weil sonst das Lesen der Uhr länger dauert 
als das Genauigkeitsintervall der Uhr selbst. 







FUHRHLMMER HOLEN 


#201 
Fzi+l 





UHEHLIMER- LEONE 
‚FzZ4. AUF DIR 












= UHR AM = 5 HR 





PLE FLAG HL 
EFL TIMES zahl 





ADE HEIZ + 





STUHDEN 


TIMES: 


TIMELD 
#10 
EFZEID.HF 
TIMEUE 
#2 
EFZ13,T 
SR TIMEND 
#5 
FZIlS.H 














Listing 4/6.5.3-3 (Teil 1) 





Teil 4 Kapitel 6.5 Seite 37 





Utilities 








6.5 Basic-Erweiterung beim C 128 Teil 4: Software-Erstellung 


























TIMEUZ => STRING 
SWRCHIRFIL 
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TIMEL : EHISH-HFEENE 








TIMEUZ: LOM-HFEN 
4 BIT Mi 

TIHMEUS 

TINELD: 





" TIMELL 
se TIMENE SLOM-HTERLE 
#2 Ba 
TIMES ;EINTRERSEHN 
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Die Uhrzeit kann durch diese Funktion mit PRINT TIMEI bzw. PRINT TIME2 
abgerufen werden, je nachdem, ob die Uhr aus CIAI oder CIA2 gemeint ist. Unser 
Programm muß also mit dem Holen der Uhrnummer beginnen. 


Ähnlich wie im vorigen Kapitel wird in den Zellen FZ1, FZ1+1 ein Zeiger auf die 
Basisadresse des entsprechenden CIA’s errichtet. Dann wird mit Hilfe der Routine 
NEUSTR ein neuer String mit der Länge 10 eingerichtet und dessen Deskriptor im 
Fließkomma-Akkumulator zwischengespeichert, der für diese Zwecke mißbraucht 
wird. Die Stunden werden ebenfalls wieder mit dem Trick über die BCD-Arithmetik 
in 24-Stunden-Format umgerechnet, die anderen Ziffern sind dann wieder einfacher 
zu behandeln. Unser Programm hört auf mit einem Sprung auf die Routine PUT- 
NEW, die den String, dessen Deskriptor im Fließkomma-Akkumulator steht, auf 
den Stringstapel legt. Dies ist die Vorgehensweise, wie man allgemein einen String 
als Ergebnisparameter bereitstellt. 


Nun werfen wir noch einen Blick auf die Hilfsroutinen TIMEUD und TIMEUI bis 
TIMEU3. Die Routine TIMEUD trägt zwei Ziffern und einen Doppelpunkt in den 
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String ab der momentanen Zählerstelle ein. Als Zähler verwenden wir übrigens die 
Hilfszelle ZAEHL aus dem vorigen Kapitel. Man sollte sehr vorsichtig sein, eine 
Hilfszelle für zwei verschiedene Unterprogramme zu verwenden, zumal hier ja nicht 
sichergestellt ist, daß man nicht vielleicht die Uhr des einen CIA’s mit dem Stand 
des anderen setzen möchte, so daß die Routinen dann verschachtelt aufgerufen wer- 
den, wodurch unter Umständen die Hilfszelle verändert wird. In unserem konkreten 
Fall ist das jedoch durch die spezielle Form des Programmablaufs ausgeschlossen. 


Die Routine TIMEUI1 wandelt die oberen vier Bits des Akkumulators in eine Ziffer 
um und trägt sie in den String ein, TIMEU2 macht dies mit den niedrigeren vier 
Bit und TIMEU3 trägt nur den Inhalt des Akkumulators in den String ein. Letztere 
Routine wird dann benutzt um einen Doppelpunkt einzutragen. 


4/6.5.4 
16-Bit-Speicherbefehle 





Der Basic-Interpreter und das Betriebssystem benutzen oft Speicherzellenpaare zur 
Speicherung einer vorzeichenlosen ganzen Zahl — etwa einer Adresse — wobei in 
der ersten der beiden Zellen das niederwertige Byte und in der zweiten das höher- 
wertige Byte abgelegt wird. Wenn man solch ein Paar lesen oder schreiben möchte, 
so ist das mit den normalen PEEK- bzw. POKE-Befehlen nur umständlich möglich. 
Mit den hier vorgestellten Erweiterungen ist das kein Problem mehr. Der Zugriff auf 
jede beliebige Bank wird, wie bei den Standard-PEEK- bzw. POKE-Befehlen, mit 
dem BANK-Befehl eingestellt. 
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416.5.4.1 


QOKE — der 16-Bit-POKE 








KElE 















JSR 1 
Lkr 
PLA 


ICHERH 
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Die Zieladresse wird mit der Routine REGETWRD geholt, die in den Hilfszellen 
POKER, POKER+1 einen Vektor auf eben diese Zieladresse richtet. Den einzu- 
pokenden Wert könnte man zwar ebenfalls mit GETWRD holen, doch dann wäre 
unser schöner POKER-Vektor überschrieben. Deshalb lesen wir sie mit EFRMEVL 
und wandeln dann mit FLPNOS in eine ganze Zahl um, wobei diese im Akku und 
im Y-Register übergeben wird und somit POKER nicht zerstört wird. 


Zum Speichern müssen wir die Routine INDSTA des Kernal benutzen, die das Spei- 
chern in eine beliebige Bank ermöglicht. Sie verlangt als Parameter in der Zelle 
STAVEC die Adresse des Vektors, im Y-Register den Offset der Speicherzelle (in un- 
serem Fall 0 für das Lowbyte, 1 für as Highbyte), sowie im X-Register die Nummer 
der gewünschten Speicherbank, wobei hier wieder — wie beim BANK-Befehl — die 
Nummer der Konfiguration gemeint ist. 
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4/6.5.4.2 


QEEK — der 16-Bit-PEEK 














HOSFLT 





Listing 4/6.5.4-2 


Diese Routine ist so etwas wie die Umkehrung. des QOKE-Befehls aus dem vorigen 
Kapitel. Auch hier dürfen wir den POKE-0000-Vektor nicht überschreiben, da — 
wie bei allen Funktionen — Vorsicht geboten ist, weil ein rekursiver Aufruf nie aus- 
zuschließen ist. Als Vektor verwenden wir deshalb die Zellen des Fließkomma- 
Akkumulators, die in diesem Moment noch nicht gebraucht werden. 


Das Laden der Speicherzellen geschieht mit der Kernal-Routine INDFET, die den 
Zeiger auf den Vektor mit der Ladeadresse im Akkumulator erwartet. X- und 
Y-Register werden wie im vorigen Kapitel vorbesetzt. 
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4/6.5.5 


AUS-Erweiterungen abschalten 





#8 ERMEITTERUHG AUSSCHALTEN 3 





FILE 


LO #CHIRE 
STA 
DA 
STA 
2LI 





EH AB Fiadan 
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Dieser Befehl macht nichts anderes als die Vektoren, die bei der Initialisierungs- 
Routine verbogen wurden, nun wieder auf die Standard-Routine zu richten. Im ein- 
zelnen handelt es sich um den Befehlsausführ-Vektor, den Arithmetik-Vektor, den 
IRQ-Vektor und den Zeiger auf den Beginn der Variablen in der Bank 1. 
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4/6.5.6 


Zusammenfassung der Basic-Erweiterungen zu 
ladbaren Dateien 





Die in den vorangegangenen Kapiteln erläuterten Basic-Erweiterungen, der in Kapi- 
tel 6.3.1 vorgestellte Interruptmanager und die in Kapitel 6.3.2 angeführten Zahl- 
konvertierungen belegten im Speicher die in nachfolgender Tabelle aufgeführten 
Bereiche: 





Dekoder für Befehle 
und Funktionen: $1300 bis $14F1 in Bank O0 
Interruptmanager: $1303 bis $1348 in Bank 0 


Zahlkonvertierungen und 

andere Hilfsroutinen: $0400 bis $05C0 in Bank 1 
Neue Befehle und 

Funktionen: $0800 bis $09FD in Bank 1 





Diese Programme lassen sich in insgesamt zwei ladbare Maschinenprogramm- 
dateien zusammenfassen, eine für Bank 0 und eine für Bank 1. In der Belegung der 
Bank I klafft eine Lücke zwischen $05C0 und $0800. Dieser Platz ist vorgesehen, 
um weitere Hilfsroutinen aufzunehmen. 


Den verbleibenden Zwischenraum muß man im vorliegenden Fall auffüllen, damit 
eine zusammenhängende Datei entsteht. Dies geht mit dem in diesem Buch be- 
schriebenen Assembler am einfachsten, indem man folgende zwei Zeilen vor die 
Sprungtabelle der Befehle setzt, die bei $0800 beginnt. 





MARK: ‚Ei #* 
„DE Z02G3-NAREI 








Listing 4/6.5.6-1 


Verwendet man den in diesem Buch beschriebenen Assembler, so erhält man die 
Maschinenprogrammdateien durch entsprechende .ou-Befehle. Nennt man diese 
Dateien z.B. „erw.Bank0“ und „erw.Bankl‘“, so kann man sich auch noch ein kleines 
Startprogramm in Basic schreiben, das die Erweiterungen lädt und startet. Dies 
könnte dann wie folgt aussehen: 
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Um Ihnen für zukünftige Erweiterungen eine Hilfestellung zu geben, bilden wir im 
folgenden die Tabelle der Symbole ab, die bei der Assemblierung der Basic-Erweite- 
rungen entstanden sind. Dabei wurden die Programme wie oben vorgeschlagen auf- 
geteilt, so daß insgesamt zwei verschiedene Symboltabellen ausgedruckt sind, eine 
für die Programme in Bank 0 und die andere für Programme in Bank 1. 


Symbole der Programme in Bank 0: 











Hz 
EINIMTZ 


FLFIHMT 
FRETOF 








LMEITH 
THOCBE 


NNMNANNIEONE 









IH 
Trımi 









u) 










nz 





m 


TIME 
5204  TIMEUE 
FF>PE OO TATFTR 
FFRE OO USRPOE 
a533 WALFREI 
BSZF  ZAEHL. 


2 








b 





am 
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Symbole der Programme in Bank I: 





MEITIÜDE 





Listing 4/6.5.6-4 
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Teil 4: Software-Erstellung 


4/7 
Tips & Tricks 





In Kapitel 4/7 wollen wir in loser Folge Tips und Tricks — getrennt für C64 und 
C 128 aufführen, die Ihnen entweder das Programmieren oder die Fehlersuche ver- 
einfachen oder beim Vermeiden von Fehlern helfen oder sie über im Handbuch 
nicht Erläutertes informieren oder... 


4/71 
Tips & Tricks zum C 64 





Wir beginnen mit zwei Themen, die von allgemeiner Bedeutung sind: Speicherplatz- 
und Rechenzeiteinsparung bei Basic-Programmen. 


4/7.1.1 


Speicherplatz sparen 





Das Einsparen von Rechenzeit und Speicherplatz sind meist konkurrierende Ziele, 
in manchen Fällen kann man aber auch durch Sparen von Speicherplatz die Rechen- 
zeit reduzieren, wie zum Beispiel beim Weglassen von Bemerkungen. 


44 
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Obwohl heute auch Home-Computer über mehr Speicher verfügen als noch vor 
einigen Jahren, nutzen die Anwender sehr oft den verfügbaren Speicher bis ins 
Letzte aus. Dies wird zu einem großen Teil durch die Anwenderfreundlichkeit der 
Programme notwendig, da hier in der Regel Erklärungstexte und Grafiken den 
Speicherplatz verbrauchen. Da der C 64 nach heutigen Maßstäben sowieso nicht 
verschwenderisch mit Speicherplatz ausgestattet ist, ist die Beachtung der folgenden 
Tips in manchen Fällen unausweichlich. 


Bevor wir zu den Tips kommen, noch ein paar Worte zur Thematik im allgemeinen: 
Nicht immer ist es sinnvoll, Speicherplatz zu sparen, weil dadurch meist die Mög-' 
lichkeit der Eigendokumentation von Programmen sehr stark eingeschränkt, wenn 
nicht sogar unmöglich gemacht wird. Wenn man den in diesem Werk vorgestellten 
REM-KILL verwendet, kann man in der Programmierphase ein reichlich dokumen- 
tiertes Programm erstellen, und dies mit dem REM-KILL von Speicherfressern wie 
REM-Zeilen befreien. 


Man darf aber — wie eingangs erwähnt — nicht nur das Ziel der Speicherplatz- 
optimierung verfolgen, sondern dabei die Rechenzeit nicht aus den Augen lassen, 
so daß ein Mittelweg gefunden werden muß. 


Abgesehen von den logischen Möglichkeiten der Speicherplatzeinsparung (vgl. 
Datum platzsparend speichern), die immer nur anhand der Problemstellung abzu- 
schätzen sind, sollen im folgenden einige allgemeine Tips gegeben werden: 


Schreiben Sie mehrere Anweisungen in eine Zeile 


Jede Zeile benötigt 5 Bytes zur internen Verwaltung: 


— 2 Byte für die Zeilennummer 
— 2 Byte für den Verweis auf die nächste Zeile im RAM 
— 1 Byte für die Zeilenendmarkierung 


Durch jede eingesparte Zeile gewinnen Sie 4 Byte. 


Beispiel: 


100 FOR I = 1 TON 
110 PRINT N 
120 NEXT 


oder 


100 FOR I = 1 TON : PRINTN : NEXT 
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sparen Sie 8 Byte: 2*5 für die Zeile abzüglich 2*1 für die ’:”-Zeichen. Allerdings ist 
die kürzere Möglichkeit vom Standpunkt der Dokumentation die schlechtere, wegen 
des fehlenden Überblickes. 


Löschen Sie alle unnötigen Leerzeichen 


Jedes Leerzeichen — außer dem Leerzeichen zwischen Zeilennummer und der 
ersten Anweisung — muß intern gespeichert werden. Mit: 





100 FDRI=1TON:PRINTN:NEXT 





sparen Sie also gegenüber dem letzten Beispiel weitere 9 Byte. Dies erledigt übrigens 
der schon erwähnte REM-KILL auch. 


Man sieht schon an diesem kleinen Beispiel, daß durch Auslassen von Leerzeichen 
ein relativ großer Prozentsatz Speicher eingespart werden kann. 


Löschen Sie alle REM-Befehle 


Jeder REM-Befehl benötigt ein Byte für das Basic-Token zuzüglich der Anzahl der 
Zeichen hinter dem REM. Steht das REM in einer gesonderten Zeile, sogar noch 
weitere 5 Byte mehr (s. 0.). 


Benutzen Sie Variablen statt Konstanten 


Wenn Sie in einem Programm 10 mal den Wert 1.23456789 benötigen, setzen Sie 
einmal A=123456789 und benutzen Sie die Variable A stätt der Konstanten 
1.23456789. 


Jedes Zeichen einer Konstanten benötigt ein Byte Speicherplatz. Auch Zahlkonstan- 
ten werden zeichenweise gespeichert. 


Benutzen Sie temporäre Variable häufiger 


Kurzlebige Variablen (z.B. sofortiges Verarbeiten nach dem Einlesen wie beim Einle- 
sen eines einzelnen Zeichens mit A$) sollten häufiger in verschiedenen Programm- 
teilen verwendet werden, da BASIC keine lokalen Variablen, wie sie zum Beispiel 
bei blockorientierten Sprachen (PASCAL) vorkommen, kennt, und die sogenannte 
Lebensdauer im Speicher für eine Variable von der Definition bis zum Programm- 
ende fortläuft. Durch die Wiederverwendung von Variablen sparen Sie einerseits 
Platz in der Variablenliste, andererseits Rechenzeit, da das Durchsuchen der rech- 
nerinternen Liste der Variablen schneller abläuft. 
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Häufig wiederkehrende Programmteile als Unterprogramm schreiben 


Ein GOSUB XXXXX mit zugehörigem RETURN braucht viel weniger Speicher- 
platz als die mehrmalige Programmierung desselben Programmstückes. 


Setzen Sie häufig benutzte Unterprogramme an den Anfang 


Diese Unterprogramme können durch ein GOTO „erste Zeile nach den Unterpro- 
grammen‘‘ sehr einfach übersprungen werden, aber das Voranstellen hat einen Vor- 
teil: Die Zeilenangabe nach einem GOSUB wird zeichenweise gespeichert, d.h. 
GOSUB 3 benötigt 4 Byte weniger Speicher als GOSUB 30 000. Wird ein Unterpro- 
gramm sehr oft aufgerufen, macht sich diese Ersparnis jedesmal bemerkbar. 


Dies spart außerdem auch noch Rechenzeit, da bei einem Unterprogrammaufruf ab 
dem Anfang des Programmes nach dessen Startzeile gesucht wird, wenn die ge- 
suchte Zeile kleiner als die aktuell bearbeitete Zeile ist. Andernfalls wird ab der 
aktuellen Zeile gesucht. 


Wird das Unterprogramm von verschiedenen Stellen im Hauptprogramm aufgeru- 
fen, ist es günstiger, dies an den Programmanfang zu setzen. Dies trifft auch zu, 
wenn z.B. das Unterprogramm mit vielen GOTO und GOSUB versehen ist, die auf 
frühere Zeilennummern zeigen. Die Einsparung liegt bei großen Programmen 
dadurch nicht selten im Sekunden-Bereich. 


Benutzen Sie die 0-Elemente von Feldern 


In BASIC kann zwar die Feldlänge mit DIM A) bestimmt werden, wobei x eine 
positive ganze Zahl darstellt, jedoch wird damit nur das letzte Element festgelegt. 
Die Felder beginnen immer mit dem Element ‚0‘. Statt DIM A(100) — wenn 100 
Elemente gewünscht sind — genügt also DIM A(99). 


Wie leicht zu sehen ist, leidet durch die Speicherplatzeinsparung die Übersichtlich- 
keit der Programme sehr. Bevor Sie also zu obigen Hilfsmiteln greifen, sollten Sie 
andere Möglichkeiten (z.B. Modularisierung) in Betracht ziehen. 
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4/7.1.2 


Rechenzeit verkürzen 





Die Rechenzeit läßt sich am besten durch eine genaue Problemanalyse und ent- 
sprechende Programmierung verkürzen. Aber auch allgemeine Regeln, wie das 
Löschen von REM-Zeilen bzw. -befehlen bringen eine Rechenzeitersparnis. 


Optimierung geschachtelter Schleifen 


Besonders wichtig bei der Verkürzung von Rechenzeit sind geschachtelte Schleifen. 
Zum einen bringen kleinere Optimierungen bei den innersten Schleifenanweisungen 
sehr viel, zum anderen kann man durch genaues Überlegen bei den Schleifen- 
grenzen einige Zeit sparen. Dazu je ein Beispiel: 


Meist genügt es, in geschachtelten Programmschleifen die Anweisung innerhalb der 
innersten Schleife zu optimieren: 


100 FOR I = 1 TO 10 

110 FOR J = 1 TO iO 

120 FOR K = 1 TD 16 

130 FOR L = i TO 10 

140 FOR M = 1 TD 10 
150 Anweisungen 


180 NEXT 
170 NEXT 
180 NEXT 

190 NEXT 

200 NEXT 





Obwohl die einzelnen Schleifen es nur auf je 10 Durchläufe bringen, macht sich jede 
im Teil „Anweisungen“ eingesparte Millisekunde in der Rechenzeit mit 100 Sekun- 
den bemerkbar, da der Anweisungsteil 100.000mal durchlaufen wird. 


19 
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Beachten Sie auch, daß die Schleifen-Grenzen entsprechend der Problemstellung 
gewählt werden. Beim obigen Beispiel etwa wäre zu überlegen, ob z.B. die Laufva- 
riable J nicht nur von 2 bis 8 laufen muß. Bei einer „Anweisungen“ -Rechenzeit von 
10 Sekunden werden dadurch insgesamt 3000 Sekunden = 50 Minuten eingespart. 


Durch ungeschickte Programmierung in diesen Punkten sind „normale“ Rechen- 
zeiten von Stunden sehr leicht auf Jahre zu verlängern und werden damit undurch- 
führbar. Ein konkretes Beispiel: Sie wollen „irgendetwas“ bei den Lottozahlen aus- 
probieren, und müssen dazu alle Zahlenkombinationen durchlaufen. Eine mögliche 
Vorgehensweise: 





















100 FOR I=1 TO 49 

110 FOR J=1 TO 49 

120 FOR K=1 TO 49 

130 FOR L=1 TO 49 

140 FOR M=1 TO 49 

150 FOR N=1 TO 49 

180 GOSUB “prüfen> 

“prufen auf zulässige Kombination, 
d.h. alle Zahlen paarweise ver- 
schieden> 

“wenn unzulassig, Schleife verlassen» 
<Permutatioren (gleiche Zahlen, nur in 
anderer Reihenfolge) überspringen» 
170 GOSUB <bearbeiten> 

<Anweisungen> 

180 NEXT 

190 NEXT 

200 NEXT 

210 NEXT 

Z20 NEXT 

230 NEXT 








Die Anweisungen — und insbesondere das Prüfen — können vielleicht eine 
Sekunde den Rechner in Anspruch nehmen. Dabei wird- dieser Teil 
49*49*49*49*49*49 durchlaufen, was ca. 13.841.287.200 Sekunden oder etwa 439 
Jahren entspricht. So ein Programm lohnt schon gar nicht den Programmierauf- 
wand. 
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Wenn Sie die inneren Anweisungen vielleicht so optimieren können, daß nur noch 
1/10 Sekunde benötigt wird, sieht die Sache zwar besser aus, ist aber immer noch 
undurchführbar. 


Man braucht aber nur die Schleifenkriterien etwas zu durchdenken, und stellt fest, 
daß mit folgender Konstruktion immer noch alle möglichen Konstellationen — und 
einige zuviel — erreicht werden: 





100 FOR I=1 TOD 44 
110 FOR J=2 TO 45 
FOR K=3 TO 46 
FOR L=4 TO 47 
FOR M=5 TO 48 
FOR N=6 TO 4% 
GOSUB <prüfen, wie oben» 


GOSUB <bearbeiten> 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
230 NEXT 





Es sind jetzt nur noch 44° Bearbeitungen der inneren Schleife durchzuführen. Bei 
einer angenommenen Bearbeitungszeit von 1/10 Sekunde wären dies circa 
72.563.138 Sekunden, entsprechend 2 Jahre und etwa 4 Monate. Jetzt könnte man 
es vielleicht mit einem guten, absturzsicheren Computer schaffen, wenn man sonst 
nichts mehr damit machen will! 


Man kann das Ganze aber nochmals überdenken, und erhält vielleicht das Ergebnis 
auf der folgenden Seite. 
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FORI=1T044 

FORJ=I+1T045 
FORK=J+1T046 
FORL=K+1T047 
FORM=L+1TD048 
FORN=M+1T049 


GOSUB “bearbeiten? 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 
NEXT 








Das Ergebnis ist immer noch eine vollständige Liste der möglichen Lottokombina- 
tionen. Die Anzahl der Berechnungen ist nun allerdings etwas schwerer zu ermitteln: 
Die erste Schleife (I) wird 44mal durchlaufen. Die nächste Schleife zuerst 44mal 
(von 2 bis 45), dann 43mal, dann 42mal, ..., bis zum einmaligen letzten Durchlauf 
(1=44, K=45). Nach Gauß (n*(n+1)/2, n ist bei uns 44) ergibt dies 990 Durchläufe. 
Dieser Wert wird allerdings nicht mit 44 multipliziert, sondern würde allein bei den 
beiden Schleifen (I, J) schon die Gesamtzahl der inneren Läufe darstellen. 


Wenn man diese Rechenweise fortführt, oder die Kombinatorik zu Hilfe nimmt, 
kommt man auf 13.983.816 Durchläufe, was exakt mit der Anzahl der möglichen 
Kombinationen übereinstimmt, wie man leicht nachvollziehen kann, wenn man die 
Werte der Laufvariablen im Inneren der Schleife in Gedanken auf einen Lottoschein 
überträgt: Erst alle Zahlen von 1 bis 6, dann wird statt 6 die 7 angekreuzt darauf 
die 8, bis hin zur 49. Anschließend wird statt der bisherigen 5 die 6 markiert und 
als sechste Zahl wieder 7, die wieder durch 8 ... 49 ersetzt wird. 


Man hat aber jetzt nicht nur Durchläufe eingespart, sondern das Unterprogramm 
zum Prüfen kann ebenso entfallen, da keine Permutationen (Zahlenverdrehungen) 
und doppelte Zahlen mehr auftreten. 


Wenn wir trotzdem eine Rechenzeit von 1/10 Sekunde pro inneren Durchlauf anset- 
zen, so wären wir — ohne Stromausfall und andere Katastrophen — in gut 16 Tagen 
fertig! 

Kommen wir an dieser Stelle nochmals auf die Problemanalyse zurück. Zur Dar- 
stellung des Sachverhaltes bei einer Schleifenschachtelung haben wir natürlich 
ein extremes Beispiel herangezogen. Auch 16-17 Tage sind eine lange Rechenzeit, 
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und man kann nie sicher sein, ob die Frau des Hauses nicht gerade die Steckdose 
für den Staubsauger braucht. 


Man muß schließlich nicht für einen Systemtest alle Kombinationen durchprobie- 
ren. Man kann sich auch zufällige Zahlen ziehen, und es bei 1.000, 10.000 oder auch 
100.000 Ziehungen bewenden lassen. Eine solche Stichprobe reicht mit an Sicherheit 
grenzender Wahrscheinlichkeit aus. In der — ernsthaften — Spieltheorie nennt sich 
ein solcher Test eine Monte-Carlo-Simulation. 


Sollten Sie im konkreten Fall dennoch die erstgenannte Methode anwenden wollen, 
vermeiden Sie PRINT-Befehle innerhalb der innersten Schleifen, auch diejenigen, 
die zur Kontrolle dienen, ob der Rechner noch läuft. In solchen Fällen sind PRINT- 
Befehle ein entscheidender Zeitfresser. Bei einer einzigen Anweisung in der innersten 
Schleife (O=O-+1) und PRINT-Befehle für das aktuelle Zwischenergebnis jeweils in 
den drei äußeren Schleifen, benötigt der C 64 (C 128 im 64er-Modus) schon 23 
Stunden (ohne Abschalten VIC siehe unten). Der C 128 benötigt für diese Berech- 
nung im SLOW-Modus mehr als 31 Stunden und im FAST-Modus ungefähr 13 
Stunden. 


Vermeiden von unnötigen Leerzeichen und REM-Befehlen 


Diese beiden Möglichkeiten gehen ausnahmsweise konform mit der Speicherplatz- 
einsparung. Im normalen Programm, das nur einmal oder wenige Male durchlaufen 
wird, bringt das wenig, aber eine Millisekunde Ersparnis im letzten Beispiel schafft 
eine kürzere Wartezeit von ungefähr 4 Stunden. Und dies allein dadurch, daß der 
Rechner (in Basic der Interpreter) keine unnötigen Zeichen zu überlesen braucht. 


Bei Kompilern, die beim Kompilieren sowieso diesen „Ballast“ nicht bearbeiten, 
spielen Leerzeichen und Kommentare keine Rolle und sollten zur Dokumentation 
verwendet werden. 

Variablen statt Konstanten 

Das Einsetzen von Variablen statt Konstanten spart ebenfalls Rechenzeit, da eine 
Konvertierung der Daten entfällt (etwa Faktor 10). Häufig benutzte Variablen soll- 
ten am Programmanfang definiert werden (z.B. einfach mit A=0), da sie dann beim 
Suchen in der Variablentabelle schneller gefunden werden. 


NEXT ohne Index-Variable 


Benutzen sie NEXT ohne Index-Variable (also nicht NEXT I), da somit die Über- 
prüfung durch das Betriebssystem entfällt. 
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VIC abschalten 


Haben Sie auch schon festgestellt, daß der Bildschirm nichts anzeigt, wenn ein 
Programm von Kassette geladen wird? Da der Rechner den VIC nicht benötigt, wird 
er einfach abgeschaltet. Weil Eingaben von der Tastatur damit auch sinnlos sind 
und Timer etc. nicht gebraucht werden, kann man auch den IRQ abschalten. Zu- 
sammen ergibt dies: 


POKE 53265, PEEK(53265) AND 239 
(VIC ausschalten) 


POKE 56333,1 
(IRQ abschalten) 





und das Ganze zurück: 


POKE 53265, PEEK(53265) OR 16 


POKE 56333,129 








Ein kleines Problem: Die Tastatur geht nicht mehr. 
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4/7.1.3 


ASCII-Code in Bildschirmcode umwandeln 





Mit den ersten beiden Zeilen des folgenden Programmes wird ein in A vorliegender 
ASCII-Code in den Bildschirmcode des Commodore 64 umgewandelt, der Rest 
stellt ein Testprogramm dar: 


A(CO)=12B 


1 At2I=0. 5 AISI=64 3 Al4)=1972 
S = Al&)=84 : A(7)=96 

DEF OFNBEXISA(K +CXANDS1)+33% (X=255) 

FOR X=25 TO 255 

PRINT" (ELR)",X,FNB(X),CHR$(34) ,CHRS$(X) 

POKE 1048,FNB(X) 

FOR W=1 TO 200 : NEXT 

NEXT 





In der ersten Zeile wird eine Umrechnungsvorgabe in einem Feld festgelegt, die in 
der zweiten Zeile verwertet wird. Bei der Umrechnung können jeweils Bereiche von 
32 Zeichen als ganzes behandelt werden (X AND 31), wenn man von dem letzten 
Zeichen (PT: ASCH=255 / Bildschirmcode=94) absieht. Näheres ist aus folgender 
Tabelle ersichtlich: 


Bits im ASCII-Code Bit im Bildschirmcode 
128 64 32 64 32 





_ 
D 
o 


1 
0 
0 
0 
1 
0 
0 
0 





Man sieht leicht, daß die Zuordnung nicht umkehrbar eindeutig ist. 
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Bildschirm-RAM und Zeichensatz verlegen 





Das Register 53272 ist für die Position des Bildschirm-RAM und den Zeichensatz 
zuständig. Dabei gilt: 


Startadresse Bildschirm-RAM 
Startadresse Zeichengenerator 


1. Halbbyte (Bits 7-4)*1024 
2. Halbbyte (Bits 3-0)*1024 


Achtung: Bit 0 wird bei der Startadresse des Zeichengenerators nicht berücksichtigt, 
so daß sich folgende Möglichkeiten ergeben: 


Wert in 53272 Startadresse 


xXXX000x 
xxxx001x 
XXXx010xX 
xxxx011xX 
xxxx100x 
xxxx101x 
xxxx110x 
xxxx111x 















Beispiel 





POKE 53272, 18 (=1*16+2) 





ergibt Startadresse Bildschirm-RAM : 1024 
Startadresse Zeichensatz : 2048 
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Achtung: für das Bildschirm-RAM muß auch die Adresse 648 geändert werden: 








POKE 648, (Startadresse)/256 





Das ist die relative Adresse zum VIC-Arbeitsbereich, der in 56576 definiert ist. 


4/7.1.5 


Schließen aller offenen Dateien 
Anzahl der offenen Dateien 





Mit 





SYS 65511 


kann man alle offenen Dateien schließen, allerdings nur im Rechner. Bei der Floppy 
geschieht dies mit 





OPEN1,8,15 : CLOSE1 
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Die Anzahl der offenen Dateien läßt sich mit 





PEEK(152) 








feststellen. 
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4/7.1.6 


Zeilen automatisch löschen — DELETE 





Wer nach einem teilweise Umarbeiten eines Programmes viele Zeilen zuviel hat, 
wird sich sehnlichst eine DELETE-Routine wünschen. Im folgenden stellen wir eine 
Basic-Routine etwas ausführlicher vor, weil sie einige Tricks beinhaltet. Sicherlich 
geht es auch kürzer. 


Verwendet wird der Tastaturpuffer und der Puffer für den Kassettenrekorder. Prin- 
zip des Programmes: 


— Zeilennummern, die gelöscht werden sollen, nacheinander auf den Bildschirm 
bringen 

— Programm verlassen 

— Zeile löschen 

— Programm „mittendrin‘‘ wieder neu starten, natürlich mit der nächsten zu 
löschenden Zeile 


Kurz gesagt: Der Handbetrieb wird automatisiert. 





1 SDTD 60100 
&0000 INPUT "VON";ZVO 
&0010 INPUT "BIS":BI 
&0020 INPUT "SCHRITTWEITE"SSR 
&0030 POKE 831,VO AND 255 
60040 POKE 832,VD/256 
60050 POKE 833,BI AND 255 
&0060 POKE 854,B1/256 
&0070 POKE 835,5R 
60100 VO = PEEK(832)X256 + PEEK{831) 
&0110 BI = PEEK(834)%256 + PEEK(833) 
80120 SR = PEEK(835) 
&0130 PRINT" (CLR)"ZVO 
0140 IF VO => BI THEN STOP “ 
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eul5O VO = VO+SR 
80160 POKE 831,VD0 AND 255 
680170 POKE 832,V0/25& 
&0180 POKE 631,145 
80190 FOKE 652,145 
60200 PDKE 835,145 
60210 POKE 834,13 


REM CURSOR NACH OBEN 
REM CURSOR NACH OBEN 
REM CURSOR NACH OBEN 
REM CHR&$(13) 


60220 FOKE 6835,82 REM R 
60230 POKE 636,85 REM U 
60240 POKE 637,78 REM N 


PrIEL EFT Tuer) 


&0OR50 POKE 6838,13 
60280 POKE 198,8 


Haan up ee en ee ee ee a a en 


Zeile 1 wird benötigt, weil der Tastaturpuffer nur zehn Zeichen aufnehmen kann 
und eine Zeilennummer für ein Programm ziffernweise (genauer: zeichenweise) ein- 
gegeben werden muß. Die Zeilen von 60000 bis 60070 werden nur zur Erfassung der 
gewünschten Daten benötigt, wobei die größeren Zahlen (VO, BI) jeweils in der übli- 
chen Form (Low-Byte, High-Byte) in den Kassettenpuffer geschrieben werden. 


REM CHR&${13) 
REM ZAHL DER ZEICHEN IM PUFFER 








In Zeile 60100 beginnt die eigentliche „Programmschleife‘“: Lesen der aktuell zu 
löschenden Zeilennummer, Endekriterium prüfen, neuen Wert anhand der Schritt- 
weite berechnen, Sichern dieses Wertes, Füllen des Tastaturpuffers wie angegeben 
und Programmabbruch. 


Warum die Variableninhalte sichern? Das Löschen einer Zeile ist eine Programm- 
änderung und löscht somit alle Variablen. Wenn Sie die Zeile 1 weglassen, können 
Sie die Programmsequenz mit dem weiter unten beschriebenen KurzMERGE ein- 
laden, Zeile 1 eintippen und mit RUN 60000 starten. 


Vielleicht gibt Ihnen das Programm auch einen Tip für Ihre anderen Probleme. 
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4/7.1.7 
INPUT-Ersatz 





Für Textverarbeitungsprogramme und Datenverwaltungsroutinen ist der normale 
Basic-Input-Befehl schlecht geeignet, da Probleme auftauchen, wenn Kommata, 
Doppelpunkte und Anführungszeichen im Text gemischt auftreten können. 


Um diesen Mißstand abzuhelfen, können Sie für Eingaben am Bildschirm folgende 
Routine verwenden: 





1000 B& = "" : REM Ausgabestring annullieren 
1010 SYS 65487 : REM KERNAL-Routine CHRIN ($FFCR) 
1020 A=PEEK (780) : REM Akku = gelesenes ?Feichen 


1030 IF A=1Z THEN RETURN : REM Ende bei "Return -Taste 
1040 B&=B$+CHRS$(A) : REM in B$ Zeichen sammeln 
1050 GOTO 1010 : REM Schleife 








Diese Routine wird mit GOSUB 1000 aufgerufen und gibt den eingelesenen String 
in B$ zurück. Hierbei wird kein Fragezeichen — wie bei INPUT üblich — ausgege- 
ben, außerdem steht der Cursor nachher in der alten Zeile. Wenn es notwendig sein 
sollte, können Sie diesen Mangel aber leicht mit PRINT-Befehlen beseitigen. 


.Die CHRIN-Routine bewirkt beim ersten Aufruf, daß der Cursor blinkt und die 
Zeile eingegeben werden kann. Anschließend wird die Routine aufgerufen, um die 
Zeichen zu holen, wobei das Endekriterium das Auftauchen von CHR$(13) 
(RETURN-Täste) ist. 
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4/7.1.8 


Joystick-Simulation über Tastatur 





Da Joystick- und Tastaturabfrage gleichzeitig vorgenommen werden können, ist es 
auch möglich, die Joystickeingabe über Tastatur zu simulieren, was allerdings für 
schnelle Reaktionen einiges Geschick erfordert. 


Bei untenstehender Tabelle wird auch deutlich, warum die Kollision zwischen Joy- 


stick und Tastatur beim Control-Port 2 (Adresse 56320) nicht so gravierend ist: Wer 
drückt schon im Normalfall die angegebenen Tastenkombinationen. 


Controlport 1 (56321) Controlport 2 (56320) 
























Leertaste — Feuer CTRL und J — Feuer 
CTRL-Taste — links CTRAL und D — links 
1 — oben CTRL und Cursor rechts — oben 
2 — rechts CTRL und G — rechts 
< CTRL und A — unten 





4/7.1.9 


Letzte Zeilennummer nach Programmabbruch 





Haben Sie nach einem Programmabbruch durch die STOP-Taste versehentlich den 
Bildschirm gelöscht und wollen wissen, welche Zeile die Meldung „BREAK IN ..“ 
enthalten hat, können Sie diese mit 


PRINT PEEK(57) + 256°PEEK(58) 








erfahren. 
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4/7.1.10 
Ein einfaches MERGE 





Zwei Basic-Programme können Sie sehr einfach verbinden, wenn Sie wie folgt vor- 
gehen: 


erstes Programm laden 

PRINT PEEK(43), PEEK(44) 

Ergebnis merken (Basic-Anfang 

POKE 43,(PEEK(45) + 256*PEEK(46)-2) AND 255 
POKE 44,(PEEK(45) + 256*PEEK(46)-2) /256 


(Anfangszeiger auf Ende des Programmes setzen) 
zweites Programm laden 

POKE 43, (erste gemerkte Zahl) 

POKE 44, (zweite gemerkte Zahl) 

SYS 42291 (Programme verbinden) 





Achtung: das zweite Programm muß höhere Zeilennummern haben als das erste 
Programm. 
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4/7.1.11 


Programm retten 





Folgende Anweisungen funktionieren natürlich nur, wenn Sie ein Programm ver- 
sehentlich mit NEW oder einem Reset gelöscht haben. In diesem Fall steht das Pro- 
gramm noch im Speicher und nur einige Zeiger wurden durch den Rechner „umge- 


bogen“ 


(Alle Programmzeilen sind jeweils mit RETURN abzuschließen). 
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———— 


POKE 46, PEEK(56)-1 

POKE 45, PEEK(55)+247 

CLR 

(Zeiger auf Start der Variablen an Basic-RAM-Ende) 

POKE PEEK(44)*256 + PEEK(43)+1, PEEK(44) 

63999 

FOR I=PEEK(44)*256+PEEK(43) TO PEEK(46)+256 + PEEK(45):1F PEEK(I) 
OR PEEK(I+1) OR PEEK(!+2) THEN NEXT 

{! Abkürzungen verwenden ! / Suche nach Programmende: 
drei aufeinanderfolgende 0-Bytes) 

POKE 45, (1+3)AND 255 

POKE 46, (1+3)/256 

CLR 

(Neues Programmende setzen) 
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4/7.1.12 
RAM-Bereich speichern / laden 





Zum Speichern von Grafiken (sofern diese im zugriffsfähigen RAM liegen) und 
Maschinenprogrammen ist es oft sinnvoll, RAM-Bereiche direkt zu speichern. Dies 
geht mit: 








SYS 57812 ‘'Name‘‘;8 

POKE 193, (Anfangsadresse Low Byte) 
POKE 194, (Anfangsadresse High Byte) 
POKE 780, 193 


POKE 781, (Endadresse Low Byte) 
POKE 782, (Endadresse High Byte) 
SYS 65496 





Das Gegenstück dazu ist das Laden an eine gewünschte Adresse: 


SYS 57812 “Name‘;8 

POKE 780,0 

POKE 781, (Zieladresse Low Byte) 
POKE 782, (Zieladresse High Byte) 
SYS 65493 





Anschließend kann mit 





PEEK (782)'256 + PEEK(781) 





die letzte geladene Adresse+1 abgefragt werden. 








Teil 4 Kapitel 7.1.12-15 Seite 2 Tips & Tricks 











71 Tips & Tricks zum C 64 Teil 4: Software-Erstellung 


4/7.1.13 
Software- und Hardware-RESET (Warm- und Kaltstart) 





Software-RESET 








SYS 64738 


bewirkt einen Sprung auf die Initialisierungsroutine, die beim Einschalten ange- 
sprungen wird. 

Hardware-RESET 

Für einen Hardware-RESET gibt es zwei Möglichkeiten: 


a) Pin 1 und Pin 3 am User-Port verbinden (GND und Reset) 
b) Pin 2 und Pin 6 am seriellen Bus verbinden (erreichbar am Floppy-Stecker) 


Nicht vergessen: Basic-Zeiger sind im Urzustand und müssen für das aktuelle 
Programm gesetzt werden. 
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4/7.1.14 


Speichern auf Kassettenrekorder und Floppy verhindern 





Wer seine Programme vor unerlaubter Weitergabe schützen möchte, der probiere 
folgendes: 


Kassettenrekorder 





POKE 0,7 gaukelt dem Benutzer nur das Abspeichern vor. Probieren Sie LOAD! 


POKE 0,47 Normalzustand 





Floppy 


POKE 819,253 ergibt Missing File-Name 
POKE 818,253 
POKE 808,225 STOP-Taste ausschalten 


POKE 819,253 ergibt den, den Assembler-Programmierern hinlänglich bekannten, 
POKE 818,34 Befehl 


POKE 808,225 BIF (Branch in Forest) 


POKE 818,237 Normal-Modus 
POKE 819,245 
POKE 808,237 





Bemerkung: in 818/819 steht der SAVE-Vektor, in 808/809 steht der STOP-Vektor 
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4/7.1.15 


Synthetische Steuerzeichen (Finkeln) 





Steuerzeichen sind in normalem Text eingebettete Zeichen, die nicht ausgegeben 
werden, sondern eine andere Aktion veranlassen, wie z.B. Bildschirm löschen 
(inverses Herz) oder die Cursor-Bewegungen. 


Neben der normalen Tastenfunktion (z.B. durch CLR/HOME) können diese 
Zeichen aber auch synthetisch erzeugt werden. Für ein vorhandenes Steuerzeichen 
könnte man dies wie folgt durchführen: 


Ka Leere Zeichenreihe ausdrucken. 

Beachten Sie: Sie sind nicht mehr im „Texteingabemodus‘. 
hinteres »““«-Zeichen löschen 

Invers-Modus direkt einschalten 

Steuerzeichen für Cursor nach hinten eingeben 
Invers-Modus direkt ausschalten 

Übergabe an den Rechner 

























DEL-Taste 
RVS-ON-Taste 
Q 

RVS OFF-Taste 
RETURN-Taste 





Probieren Sie es auch mit der Eingabe „S‘‘ (Cursor in linke, obere Bildschirmecke 
/ HOME). 


Hier eine Liste von synthetischen Steuerzeichen, die auch mit PRINT CHR$(X) 
bewirkt werden können: 
































BE 
Zeichen CHRS$-Code Bedeutung | 
H 8 Umschaltung Groß/Kleinschrift 

durch C=/SHIFT wird gesperrt 
| 9 Gegenteil zu H 
M 13 RETURN; 
Rest der Zeile wird nicht mehr ausgegeben 
N 14 Umschalten auf Kleinschrift 
T 20 ersetzt DEL-Taste 
SHIFT + M 141 SHIFT RETURN z.B. Drucken des Textes ab 
diesem Zeichen in der nächsten Zeile 
SHIFT + MR Ausführen der Steuerzeichen auch im Listing, 
in diesem Fall REVERSE ON. 
Probieren Sie auch andere Steuerzeichen 
SHIFT + N 142 Umschalten auf Großbuchstaben 
SHIFT + T 148 ersetzt INST-Taste 
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4/7.1.16 
Nützliche und hilfreiche PEEKs, POKEs und SYS-Aufrufe 





Cursor an/aus 








POKE 204, 0 


POKE 207,0:POKE204,1 





Cursorgeschwindigkeit ändern 


POKE 56325,X X — gewünschte Geschwindigkeit 
1 — schnell,..., 255 langsam 
0 — Bildschirmausgabe verlangsamen 
52 — normaler Zustand, seltene Werte zwischen 51 und 59 in unregelmäßigen 
Abständen 








Achtung: Da sich die Interrupt-Geschwindigkeit ändern kann, geht die TI-Uhr 
falsch. 


Dauerfunktion für Tasten 


POKE 650, 
x 128 : alle Tasten 


x = 0  : normal (Cursor- und Leertaste) 


x 64 : alle Tasten ohne Dauerfunktion 
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Directory ohne Programmverlust laden 





POKE 44, PEEK (46)+1 
LOAD “$"8 
POKE 43,1 : POKE 44,8 





Farbwechsel unter dem Cursor 


PEEK (647) gibt die Farbe unter dem Cursor an. Dementsprechend kann Sie mit 


POKE 647, x 





geändert werden. 


FILE-Parameter in der Zero-Page 


PEEK (183) — Länge des Filenamens 
PEEK (184) — aktuelle Filenummer 
PEEK (185) — aktuelle Sekundär-Adresse 
PEEK (186) — aktuelle Primäradresse 
PEEK (187, 188) — Zeiger auf Dateinamen 





Freier Speicherplatz 


Die korrekte Ausgabe des freien Speicherplatzes (Basic) erhalten Sie mit 


PRINT FRE(X)+65536, wenn FRE(X) negativ 
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INVERS-Modus 


POKE 199,1 


POKE 199,0 





Länge der momentanen Bildschirmzeile 
Diese kann mit PEEK (213) abgefragt werden. 


Listschutz ein/aus 


POKE 775,200 (ein) 


POKE 775,167 (aus) 





LIST während Programmablauf 









100 POKE 631,82 
110 POKE 632,69 
120 POKE 633,212 
130 POKE 634,13 
140 POKE 198,4 

150 LIST 





Bedeutungen der Adressen: N 


631 - 633 : Abkürzung für Basic-Befehl RETURN 
634 : RETURN-TIaste 
198 : Anzahl gültiger Zeichen im Tastaturpuffer 


15 
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(vergleiche auch ausführlicheres Beispiel unter DELETE). Das Programmstück ist 
als Unterprogramm aufzurufen, obwohl kein RETURN am Ende steht. Dies wird 
durch das Programm selbst übernommen. Sinnvoll ist der Einsatz beim Programm- 
test. 


LOAD ERROR umgehen (Kassettenrekorder) 





POKE 45,PEEK(831) 


POKE 46,PEEK(832) 
CLR 





Durch SAVE wird ein Programm zweimal auf Kassette gespeichert. Wird beim 
Laden eine gewisse Zahl von Fehlern überschritten, tritt ein LOAD ERROR auf, 
auch wenn das zuerst geladene Programm fehlerfrei ist (z.B. Beschädigung des Ban- 
des, dort wo sich die Kopie befindet). Aber versuchen kann man es immer (vielleicht 
ist auch ein Fehler in einer Stringkonstanten). 


Programm zerstören 


Um ein Programm gegen unbefugte Benutzer — etwas — abzusichern, kann man 
nach einem falsch beantworteten Passwort das Programm sehr leicht mit 





POKE 776,1 


zerstören, indem der Vektor für die Basic-Befehlsadresse umgesetzt wird. 
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Andere Möglichkeit: 


SYS 64738 (Systemreset) 





(Siehe auch Listschutz) 


Statusabfrage 


PRINT ST 


oder 





PRINT PEEK(144) 





gibt den Gerätestatus aus. 


RUN / STOP ausj/ein 





POKE 78852 (aus) 


POKE 788,49 (ein) 





35 
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RUN/STOP-RESTORE ausjein 


POKE 808,225 (aus) 


POKE 808,237 (ein) 





STOP-Taste sperren (andere Möglichkeit) 


POKE 830, 169 
POKE 831, 1 
POKE 832, 96 
POKE 808,62 
POKE 809,3 





Das Betriebssystem setzt durch die Stop-Taste das Zero-Flag in einem kleinen Pro- 
gramm. Durch obige Routine wird ein Unterprogramm in den Kassettenpuffer 
geschrieben, das immer das Zero-Flag löscht. Die Speicherzellen 808 und 809 zeigen 
auf die Betriebssystem-Routine. 


STOP-Taste freigeben 


POKE 808,237 Anfangsadresse 


POKE 809,246 Betriebssystem-Routine eintragen 





Gedrückte Taste 


PEEK (203) 
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Characterwert der letzten gedrückten Taste 


PEEK (215) 


Umschalten auf Groß/Kleinschrift 





PRINT CHR$(14) — Groß/Kleinschrift 


PRINT CHR$(142) — Normalmodus 





Warteschleifen 


Neben dem bekannten 


10 GET A$ : IFA$ = " " THEN 10 





gibt es noch die Version 


10 GET A$ : ON - (A$="* “) GOTO 10 





die den Rest der Zeile (bei knappem Platz) auch noch nutzbar macht, weil die IF- 
Abfrage wegfällt. 


35 
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Auch möglich 





WAIT 198,1 : GETA$ (Taste gedrückt) 





Auf den Joystick wartet 








WAIT X,127,127 mit X=56320 für Port 2 


und X=56321 für Port 1 





Zeichenfarbe ändern 


Wer die CTRL-Kombinationen umgehen möchte, und damit auch die Steuerzeichen 
im String, kann auch die Adresse 646 benutzen: 


POKE 646, (Farbcode) 








Zeile auf dem Bildschirm löschen 





POKE 781,2 
SYS 59903 
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5/1.3 
Tabellenkalkulation 





Die Stärke eines Computers, auch eines sogenannten „Homecomputers“, legt 
immer noch darin, große Datenmengen übersichtlich und schnell zu ver- und be- 
arbeiten. 


Neben Datenverwaltungsprogrammen und dem Bereich Textverarbeitung erfreuen 
sich gerade auch Tabellenkalkulationsprogramme großer Beliebtheit bei Computer- 
besitzern, die mit ihrem Rechner nicht nur spielen wollen. Was kann nun ein 
Tabellenkalkulations-Programm? 


Es kann große Zahlenmengen je nach Problemstellung übersichtlich darstellen. Und 
es kann mit Hilfe von mathematischen Funktionen und Formeln umfangreiche Be- 
rechnungen und Auswertungen mit diesem Zahlenmaterial anstellen. Jeder hat 
sicher schon einmal für Beruf, Schule oder Hausgebrauch eine Tabelle anlegen müs- 
sen. Es ging vielleicht um Verkaufsergebnisse verschiedener Mitarbeiter in verschie- 
denen Gebieten von verschiedenen Produkten. Oder um die Ergebnisse von 
Versuchen im Physikunterricht. Oder auch einfach nur um die Haushaltsausgaben, 
die man in Griff kriegen möchte. 


Alle diese Aufgabenstellungen mußten mit Papier, Bleistift und Lineal in stunden- 
langer Arbeit erledigt werden. Mit einem Tabellenkalkulationsprogramm gelingt 
dies nicht nur schneller und übersichtlicher, die einmal erstellten Arbeitsblätter 
(Arbeitsformulare/Rechenvorschriften) können auch jederzeit ohne viel Aufwand 
geändert und ergänzt werden. 


Wir wollen Ihnen im Rahmen dieses Buches ein solches Tabellenkalkulations- 
programm als Musterlisting vorstellen. 
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51.3.1 
Das Konzept von ALIPLAN 





ALIPLAN wurde nicht mit dem Anspruch geschrieben, bekannten und „berühm- 
ten“ Programmen dieser Art Konkurrenz zu machen. Es ist ein Programm, dessen 
Leistungsfähigkeit auf das Wesentliche konzentriert wurde, um den Programmier- 
aufwand klein und die Bedienungsfreundlichkeit hochzuhalten. Wenn Sie sich näher 
mit dem Programm befaßt haben, so wird es für Sie ein leichtes sein, eigene Ergän- 
zungen in das vorgestellte Listing einzubauen. 


Folgende Punkte unterscheiden ALIPLAN von käuflichen Tabellenkalkulations- 

programmen: 

— Es bietet alle Möglichkeiten, die ein Tabellenkalkulations-Programm mindestens 
für ein komfortables Arbeiten aufweisen muß. 


— Es ist menügesteuert und deshalb auch wirklich leicht zu bedienen, auch für den 
Computeranfänger. : 


— Es berücksichtigt die begrenzten Möglichkeiten der Single-Floppy des C 64 und 
steht deshalb vollständig im Speicher. Es ist also kein Nachladen während der 
Bearbeitung notwendig! 


Die Menüsteuerung erspart es Ihnen, sich erst Dutzende von Kommandos zu mer- 
ken, bevor Sie mit dem Programm arbeiten können. Sie können, nachdem Sie sich 
diese Anleitung einmal sorgfältig durchgelesen haben, sofort loslegen. 


5/1.3.2 


Die Tastaturverwendung 





Hier folgen ein paar Hinweise für einige wichtige Tasten. Die RETURNJIaste ist 
eine der wichtigsten Tasten (wie immer) bei der Arbeit ALIPLAN. Nach jeder 
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Eingabe von Daten und Kommandos muß die RETURN-Iäste in der Regel gedrückt 
werden. Sie sagt dem Rechner, daß eine Daten- oder Kommandoeingabe beendet ist 
und das Programm fortgesetzt werden kann. 

Die Leer(SPACE)-Iaste dient dazu, Leerstellen darzustellen. Das Programm ALI- 
PLAN fordert Sie aber auch an verschiedenen Stellen auf, die Leertaste zu drücken, 
um das Programm fortzusetzen. Dies ist z.B. nach einer Fehlermeldung möglich. 

Die SHIFT-Taste dient dazu, von der Kleinschreibung auf die Großschreibung um- 
zuschalten. Aber auch viele Sonderzeichen, wie z.B. „+“ können mit der SHIFT- 
Taste erreicht werden. 

Mit der COMMODORE(C)-Iaste neben der SHIFT-Taste auf der linken Seite er- 
reichen Sie einige Grafikzeichen. Z.B. durchgezogene Linien zum Unterstreichen. 

Die INST/DEL-JIaste dient dazu, bei der Eingabe von Daten oder Kommandos, fal- 
sche Zeichen zu löschen. 

Mit den Cursor-Tasten bewegen Sie den Zellzeiger auf Ihrem Arbeitsblatt. Diese 
Tasten sind auch in Verbindung mit der SHIFT-Taste zu bedienen. 

Rechts neben der eigentlichen Tastatur befinden sich die Funktions-Tasten. Sie wer- 
den im Programm ALIPLAN als Kommando-Tasten benutzt, wobei die Tasten mit 
den geraden Nummern (2, 4, 6, 8) in Verbindung mit der SHIFT-Taste gedrückt 
werden müssen. 














5/11.3.3 


Laden des Programmes 





Bevor Sie das Programm laden, schalten Sie bitte Ihre Geräte in der Reihenfolge 
Floppy, Drucker, Monitor/Fernseher, Rechner ein. Legen Sie die Programmdiskette 
ein und tippen Sie dann ein: 


LOAD “s”,8 
und drücken Sie RETURN. Sofern Sie die Programme aus diesem Buch abtippen, 
muß dafür das Programm ‘LOADER’ an erster Stelle auf der Diskette stehen. An- 


sonsten muß ALIPLAN mit LOAD‘LOADER)8 gestartet werden. Nach einigen 
Sekunden meldet Ihr Rechner READY” Tippen Sie jetzt ein: 


RUN 
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und drücken Sie wieder RETURN. Der Bildschirm wird gelöscht, und nach einigen 
Sekunden werden Sie aufgefordert, die Farben für den Hintergrund, Rahmen und 
Zeichen zu wählen. Wenn Sie Ihre Wahl getroffen und RETURN gedrückt haben, 
wird das Hauptprogramm geladen. Nach etwa einer Minute erscheint dann das 
Arbeitsblatt (siehe Abbildung 5/1.3.4-1) auf Ihrem Bildschirm. Sie sollten nun die 
Programmdiskette aus dem Floppy-Laufwerk nehmen und eine formatierte Daten- 
diskette einlegen. 


51.3.4 
Das Arbeitsblatt 








Stellen Sie sich ein großes leeres Blatt vor, das rasterförmig in 25 Spalten und 80 
Zeilen eingeteilt ist. Auf diesem Blatt, dem Arbeitsblatt, befinden sich 25 x 80 = 
2000 Zellen, die mit beliebigen Daten gefüllt werden können. Die tatsächlich mögli- 
che Anzahl von gefüllten Zellen ist allerdings von der Breite der Spalten und der 
Art der Daten (numerisch oder alphanumerisch) abhängig. Der Platz reicht jedoch 
in jedem Fall für viele hundert Zellen. Da der C 64 jedoch nur 40 Zeichen je Zeile 
und insgesamt 25 Zeilen auf dem Bildschirm darstellen kann, sehen Sie immer nur 
einen Ausschnitt Ihres Arbeitsblattes. Wie Sie jedoch trotzdem jede einzelne Zelle 
erreichen können, wird weiter unten beschrieben. Nachdem Sie das Programm ge- 
laden haben, sieht Ihr Bildschirm so aus: 
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Bild 5/1.3.4-1 
Arbeitsblatt von ALIPLAN 


Zeilen und Spalten 


Oben befindet sich ein Balken, der die Spalten markiert. Am linken Rand sehen Sie 
einen senkrechten Balken für die Zeilenmarkierung. 


Zellzeiger 


In der linken oberen Ecke erkennen Sie ein Rechteck, das so breit ist wie eine Spalte. 
Dies ist der Zellzeiger, der eine Zelle auf dem Arbeitsblatt markiert. Den Zellzeiger 
können Sie mit den Cursor-Tasten Ihres Computers an jede beliebige Stelle Ihres 
Arbeitsblattes bewegen. Versuchen Sie es einmal. 


Geraten Sie dabei an den Rand des Bildschirmfensters, so wird der gesamte Aus- 
schnitt um eine Spalte oder Zeile nach oben oder unten verschoben. Je nachdem, 
in welche Richtung Sie den Zellzeiger bewegen. 


Zellen 


Wenn bisher immer nur allgemein von Zellen gesprochen wurde, so war dies nicht 
ganz exakt. Wir müssen nämlich von vier Arten von Zellen unterscheiden. 


Die ersten drei Arten werden von Ihnen über den Hauptmenüpunkt ‘Eintrag’ ein- 
gegeben. Die meisten Zellen werden sicherlich Zahlen enthalten, mit denen Sie Be- 
rechnungen oder Kalkulationen anstellen möchten. Es handelt sich dann um nume- 
rische Zellen. 
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Sollen diese numerische Zellen auch mit einigen Kommastellen dargestellt werden, 
so spricht man vom Dezimal-Format. Im anderen Fall, wenn nur ganze Zahlen dar- 
gestellt werden sollen, spricht man vom Integer-Format. 


Da Zahlen aber alleine meist nicht aussagefähig sind, benötigen Sie auch noch 
Über-/Unterschriften, Bezeichnungen oder Maßeinheiten usw. Diese Zellen, die 
vornehmlich aus Buchstaben bestehen, aber jedes beliebige Zeichen enthalten 
können, haben ein alphanumerisches oder Alpha-Format. Die Formatbestimmun- 
gen werden unter dem Hauptmenüpunkt ‘Format’ abgehandelt. 


Die letzte Zellenart betrifft das Ergebnis von Berechnung mit Hilfe einer Formel. 
Diese Zellen, die also die Ergebnisse von Formel-Berechnungen enthalten, werden 
Ergebniszellen genannt. Das Format dieser Zellen ist immer dezimal! 


Funktionstasten-Kommandozeile 


Unterhalb des eigentlichen Arbeitsblatt-Ausschnitts sehen Sie eine Leerzeile. Diese 
Leerzeile wird für die Kommandos der Funktionstasten benötigt. Sie heißt deshalb 
“Funktionstasten-Kommandozeile”. 


Hauptmenü 


Darunter befinden sich zwei Zeilen, die die Funktionen des Hauptmenüs enthalten. 
Der erste Menüpunkt (oben links: Eintrag) ist durch ein “Leuchtfeld’ gekennzeich- 
net. Dieses Leuchtfeld kann durch Druck auf die Leertaste bewegt werden. Immer, 
wenn Sie die Leertaste betätigen, springt das Leuchtfeld auf den nächsten Menü- 
punkt. Auf diese Art und Weise können Sie eine Hauptmenü-Funktion auswählen. 
Möchten Sie beispielsweise eine Formel anlegen, so bewegen Sie das Leuchtfeld mit 
der Leertaste auf den Menüpunkt ‘Formeln’ und können hier wiederum verschie- 
dene Funktionen auswählen. Doch dazu später mehr. 


Name des Arbeitsblattes 


Unterhalb des Hauptmenüs befinden sich zwei wichtige Informationen. Ganz links 
stehen zwei » » «. Hier erscheint der Name eines Arbeitsblattes, das Sie von der 
Diskette geladen haben. 


Zellzeiger-Koordinaten 


Rechts daneben stehen zwei Zahlen, die durch einen Schrägstrich getrennt sind. Es 
handelt sich um die Koordinaten des Zellzeigers. Bewegen Sie den Zellzeiger einmal 
mit den Cursor-Iasten. Sie werden sehen, daß automatisch die Koordinaten korri- 
giert werden. Die Reihenfolge ist Zeile/Spalte! So können Sie mit einem Blick die 
genaue Position des Zellzeigers feststellen. 
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5/1.3.5 


Das Menü und die Bearbeitungsmöglichkeiten 





Alle notwendigen Eingaben, Anweisungen oder Informationen, die die Funktionen 
des Hauptmenüs betreffen, werden entweder in den vier Zeilen unterhalb des Ar- 
beitsblattes, oder aber in einem Anweisungsfenster dargestellt. Das Anweisungsfen- 
ster legt sich sozusagen über Ihr Arbeitsblatt, solange Sie mit der Abwicklung einer 
Funktion beschäftigt sind. 


5/1.3.5.1 


Eintrag von Zellen 








Das Füllen von Zellen erfolgt über die Eingabezeile, die sich unterhalb des eigent- 
lichen Arbeitsblattes befindet. Der Zellzeiger muß vorher an die Stelle gebracht wer- 
den, an der die Daten auf dem Arbeitsblatt erscheinen sollen. Wenn Sie mit der 
Leertaste das Leuchtfeld auf den Menüpunkt Eintrag’ gebracht haben, drücken Sie 
bitte die RETURN-Iaste. Nun erscheint im Anweisungsbereich ein Lichtpunkt un- 
terhalb von “Eintrag”. 


Außerdem gibt das Programm an, welches Format die angewählte Zelle hat. Geben 
Sie nun die Daten ein. Sollen alphanumerische Eingaben nicht linksbündig darge- 
stellt werden, wo drücken Sie gleichzeitig die Leertaste und SHIFT so oft, wie einge- 
rückt werden soll. 


Nachdem Sie die RETURN-JIaste gedrückt haben, wird die Eingabe entsprechend 
dem Zellenformat an die Stelle auf Ihrem Arbeitsblatt gebracht, auf der sich der 
Zellzeiger befindet. Sie können maximal 11 Zeichen je Zelle eingeben. Befand sich 
der Zellzeiger auf einer Zelle, die bereits mit Daten gefüllt war, so erscheint die Mel- 
dung ‘Zelle belegt”. Das Programm schützt also Ihre Eintragungen vor unbeabsich- 
tigtem Überschreiben. Das gleiche geschieht auch, wenn Sie versuchen, in eine 











Teil 5 Kapitel 1.3 Seite 8 Kommerzielle Programme 








1.3 Tabellenkalkulation Teil 5: Musterprogramme 


Ergebniszelle Daten zu schreiben. Wollen Sie Ihre Dateneingabe beenden, so 
drücken Sie ausschließlich RETURN und Sie befinden sich wieder im Haupt- 
menü. 


5/1.3.5.2 


Format 





Das Programm unterscheidet drei Zellenformate: Alphanumerisch (Alpha), Dezi- 
mal und Integer. Für jede Zelle auf Ihrem Arbeitsblatt kann eines dieser Formate 
bestimmt werden. Eine Ausnahme bilden nur Ergebniszellen, die grundsätzlich das 
Format ‘Dezimal’ haben. Die Formatierung kann zeilen-, spalten- und zellenweise 
erfolgen. Außerdem können Sie für numerische Zellen die Anzahl der Dezimalstel- 
len, das Füllzeichen und das führende Zeichen bestimmen. Die Spaltenbreite ist frei 
zwischen 3 und 11 Stellen wählbar. Wenn Sie das Programm geladen und gestartet 
haben, sind folgende Parameter vorgegeben: 


Spaltenbreite 9 
Anzahl Dezimalstellen 2 


Füllzeichen Leerzeichen 
Führendes Zeichen Leerzeichen 
Zellenformat Dezimal 





Nachdem Sie das Leuchtfeld auf den Menüpunkt ‘Format’ gebracht und RETURN 
gedrückt haben, erscheint im Anweisungsbereich der Aufruf für folgende Para- 
meter: 


Spaltenbreite 
Anzahl Dezimalstellen 


Füllzeichen 
Führendes Zeichen 








Drücken Sie für Füllzeichen und Führendes Zeichen jeweils die Taste für das ge- 
wünschte Zeichen. Ein Leerzeichen müssen Sie mit SHIFT eingeben. Bei der Spal- 
tenbreite ist zu berücksichtigen, daß numerische Daten grundsätzlich mit einem 
Vorzeichen dargestellt werden. Es werden maximal 6 Dezimalstellen formatiert dar- 
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gestellt. Enthält eine Zelle mehr Zeichen als formatiert dargestellt werden können, 
so wird die maximale Anzahl linksbündig angezeigt. 


Beispiel: Sie haben eine Spaltenbreite von 8 Zeichen gewählt. Eine numerische Zelle 
enthält aber z.B. 11 Zeichen (—1234567.90). Diese Zelle wird nun linksbündig mit 
8 Stellen angezeigt: (—1234567.). 


Wenn Sie die obigen Eingaben mit RETURN überspringen, werden die zuletzt ge- 
wählten Parameter beibehalten. Anschließend wird die spaltenweise Formatierung 
aufgerufen. Geben Sie Spaltennummer (1-25) und Format (0-2) an und schließen Sie 
die Eingabe mit RETURN ab. 


Bei der nachfolgenden zeilenweisen Formatierung verfahren Sie ebenso. 


Bei der zellenweisen Formatierung müssen die Koordinaten für Zeile und Spalte an- 
gegeben werden. Auch diese Abfragen können mit RETURN ohne Auswirkung 
übersprungen werden. Beachten Sie bitte, daß immer die letzte Formatanweisung 
eine vorherige überschreibt. Formatieren Sie etwa Spalte 1 Dezimal und anschlie- 
ßend Zeile 1 Integer, so lautet das Format für die Zelle Zeile 1/Spalte 1 Integer, ob- 
wohl die Spalte 1 das Format Dezimal erhalten hat! Alle Parameter-Aufrufe erfol- 
gen nacheinander und können grundsätzlich mit RETURN ohne Wirkung 
übersprungen werden. Alle Formatparameter können jederzeit geändert werden. 


511.3.5.3 


Kopieren 





Alle Zeilen und Spalten sowie jede Zelle kann beliebig oft kopiert werden. Es gelten 
jedoch folgende Einschränkungen: 


— Ergebniszellen werden nicht kopiert. 
— Bereits gefüllte Zellen werden beim Kopieren geschützt und nicht überschrieben. 


Kopieren und Zeilen und Spalten 


Nachdem Sie aus dem Hauptmenü ‘Kopieren’ gewählt und hier die Funktion ‘Zeile’ 
oder ‘Spalte’, werden Sie aufgefordert, die Nummer der zu kopierenden Zeile/Spalte 
und anschließend die Ziel-Zeile bzw. Spalte einzugeben. Schließen Sie die Eingabe 
mit RETURN ab. 
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Kopieren von Zellen 


Jeder Zelleninhalt kann durch einfaches Bewegen des Zellzeigers in eine andere Zelle 
kopiert werden. Bringen Sie dazu den Zellzeiger zuerst auf die zu kopierende Zelle. 
Nun bewegen Sie das Leuchtfeld auf den Menüpunkt ‘Kopieren’ und drücken 
RETURN. Wählen Sie aus dem Untermenü nun ‘’ für ‘Zelle kopieren”. 
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Bild 5/1.3.5.3 
Kopieren mit ALIPLAN 


Die Kopierfunktion muß nun noch durch Drücken der Leertaste eingeschaltet wer- 
den. Dies erkennen Sie an der reversen Darstellung von ‘* Kopieren einer Zelle *. 
Wenn Sie jetzt den Zellzeiger mit den Cursortasten bewegen, wird der Zelleninhalt 
in die angewählten Zellen kopiert. Dies geschieht so lange, bis Sie die RETURN- 
Taste gedrückt haben. Dann befinden Sie sich wieder im Untermenü ‘Kopieren. 
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5/1.3.5.4 


Löschen 





Bewegen Sie das Leuchtfeld auf den Menüpunkt ‘Lösch’ und drücken Sie RE- 
TURN. Nun werden Sie aufgefordert, durch Drücken der Tasten 1 bis 4 eine Lösch- 
funktion anzuwählen: 


or TEE) I EEE BEE: ERBE 


4 


[2e) 


Pe 
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SJSDUNDDNDSLOD 
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SDENSD DODOD 
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SODDDDODADSND-N 
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BNIISALDDSODNF MOD 


oe schenl,J8TT; 


‘ Spalte 





Bild 5/1.3.5.4-1 
Das Menü zum Löschen 


(1) Alles: 


Das Programm fragt zuerst, ob Ihre Entscheidung auch richtig war. Antworten Sie 
mit ‘j, so wird das gesamte Arbeitsblatt gelöscht und alle Formatparameter auf den 
Einschaltzustand gesetzt. ‘n’ führt Sie zum Hauptmenü zurück. 


(2) Zelle 


Bringen Sie den Zellzeiger zuerst auf die zu löschende Zelleund das Leuchtfeld auf 
den Menüpunkt “Lösch”. Drücken Sie dann RETURN und wählen Sie dann “2 für 
‘Zelle löschen”. Nachdem Sie nıın wieder RETURN gedrückt haben, ist die Zelle ge- 
löscht. 
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(3) Zeile 
(4) Spalte: 


Geben Sie die zu löschende Zeile oder Spalte an. Bei irrtümlicher Wahl von ‘3’ oder 
‘4° gelangen Sie durch RETURN wieder in das Hauptmenü. 
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3 
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3 
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k oeschen@ 1 T2E2 7 BE SS SE SU BET 207 2 700 se 
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Bild 5/1.3.5.4-2 
Sicherheitsprüfung beim Löschen 


5/1.3.5.5 


Ändern 





Bewegen Sie den Zellzeiger auf die zu ändernde Zelle und das Leuchtfeld auf den 
Menüpunkt Ändern’ und drücken Sie RETURN. Das Programm zeigt Ihnen jetzt 
den unformatierten Inhalt der angewählten Zelle. Geben Sie nun den neuen Zell- 
inhalt ein und drücken Sie RETURN. Wenn Sie ausschließlich RETURN drücken, 
gelangen Sie ohne Änderung der angewählten Zelle in das Hauptmenü zurück. 
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Zeitungen 
Schallpl. 
Kleıdung 
amputer 
elefon 
ıete 
ersicher 
Auto 
Reinıgung 
Anschäff. 
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M 
U 





Bild 5/1.3.5.5 
Ändern des Eintrages einer Zelle 


5/1.3.5.6 


Formeln 





Die wichtigste Aufgabe eines Tabellenkalkulationsprogrammes ist es, mit Hilfe ge- 
eigneter Formeln Rechenoperationen mit den Daten des Arbeitsblattes auszuführen. 
ALIPLAN bietet Ihnen die Möglichkeit, alle numerischen Werte Ihres Arbeits- 
blattes mit insgesamt 13 mathematischen und statistischen Funktionen zu verknüp- 
fen. Außerdem können Sie mit Konstanten und mit Klammern rechnen. 





Die Funktionen und ihre Symbole: 

+ Addition ; 
— Subtraktion 

/ Division 

» Multiplikation 
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Die Funktionen und ihre Symbole: 


W Quadratwurzel 

E Exponent 

S Sinus 

C Cosinus 
Summe 

% Prozent 

M Mittelwert 














s Standardabweichung 
[1] Konstanten 
() Klammerrechnung 











Die Rechenanweisungen werden in einer Formel zusammengefaßt. Es sind zwei Ar- 
ten von Wertangaben zu unterscheiden: 


— Die numerischen Werte einer Zelle Ihres Arbeitsblattes. 
— Konstante Werte. 


Jede Zelle Ihres Arbeitsblattes, mit der Sie rechnen wollen, muß bei der Bildung 
einer Formel mit Ihren Koordinaten aus Zeile und Spalte bezeichnet werden. Die 
Koordinatenwerte müssen dabei immer zweistellig sein. Wollen Sie z.B. zwei Zellen 
addieren, so lautet die Formel etwa: 


+0101+0102 


addiere zum Wert der Zelle in Zeile 1/Spalte 1 den Wert der Zelle aus Zeile 1/ 
Spalte 2. Soll jedoch ein konstanter Wert in Ihre Formel einbezogen werden, so set- 
zen Sie diesen in eckige Klammern: +0101+[23]; addiere zum Wert der Zelle Zeile 
1/Spalte 1 den Wert ‘23°. Jede Formel wird grundsätzlich von links nach rechts abge- 
arbeitet, d.h. anders als bei der üblichen Vereinbarung, z.B. Multiplikation und Di- 
vision vor Addition und Subtraktion auszuführen, rechnet ALIPLAN die Anwei- 
sungen immer nacheinander ab. Dieses Prinzip kann durch die Verwendung von 
runden Klammern aufgehoben werden: +0101*(0102-[3]); multipliziere den Wert 
der Zelle Zeile 1/Spalte 1 mit der Summe aus der Rechnung: Zelle Zeile 1/Spalte 2 
minus ‘3’. Mehrfachschachtelung ist hier nicht möglich! 


Vor jedem Wert (Zellenkoordinate oder Konstante) sowie vor jeder runden Klammer 
muß grundsätzlich ein Funktionssymbol stehen. Jedoch dürfen nie zwei Funktions- 
symbole unmittelbar hintereinander stehen: 


Falsch wäre: +0101—W0102. 


In diesem Fall muß der Wurzelteil in runde Klammern gesetzt werden: 
+0101—(W0102). 


Kommerzielle Programme 
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Weitere Beispiele zu diesem Fall: 


Falsch: + [22]—C0112 Richtig: + [22]—(C0112). 
Falsch: + 1221 + —1107 Richtig: + 1221+(—1107). 





Die Formeln dürfen keine Zwischenräume enthalten! 








Die wichtigsten Funktionen im Einzelnen: 





Funktionssymbole 





Funktion 





Bedeutung/Erklärung 





% Prozent 


Wollen Sie die Prozentdarstellung eines Wertes zu einem 
Basiswert ermitteln, ist folgende Formel zu bilden: 


910031503 


wieviel Prozent sind (Wert aus Zelle Zeile 10/Spalte 3) von 
(Wert aus Zelle Zeile 15/Spalte 3)! 








4 Summe 





PPETREEN DE 


Mit dieser Funktion können Sie die Summe aus den Werten 
einer Zeile oder einer Spalte Ihres Arbeitsblattes ermitteln: 


# 00070316 
summiere die Spalte 7 von Zeile 3 bis Zeile 16. 


Die ersten vier Ziffern geben an, ob eine Spalte oder eine 
Zeile summiert-werden soll und um welche Zeile oder Spalte 
es sich handelt. Da es in unserem Beispiel um die Spalte 7 
geht, muß der Wert für die Zeile 00 sein. Die Reihenfolge 
ist auch hier wieder Zeile/Spalte. Die Werte müssen wie 
immer zweistellig sein! Anschließend geben Sie an, welche 
Spalten- bzw. Zeilenelemente summiert werden sollen. Soll 
die Zeile 7 summiert werden, so lautet die Formel: 


+ 07000316! 





M Mittelwert 


Mit M wird der statistische, arithmetische Mittelwert der 
angegebenen Speicherzellen gebildet. Die Syntax von M 
entspricht der Summenfunktion 





s Standard- 
abweichung 








Die Standardabweichung ist eine Funktion aus dem Be- 
reich der Statistik (vgl. entsprechendes Kapitel). Die Syntax 
von s entspricht der Summenfunktion. 











Folgende ungültige Operationen werden vom Programm erkannt und gemeldet: 


— Division durch 0, 


— negativer Wurzelwert. 
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Diese Operationen führen nicht zu einem Programmabbruch. Es können insgesamt 
150 Formeln angelegt werden. 


Alle Formeln werden nacheinander berechnet. Die Ergebniszellen werden unmittel- 
bar nach der Berechnung der entsprechenden Formel gefüllt. Dies bietet die Mög- 
lichkeit, Zwischenergebnisse zu bilden und anschließend als Zellenwert in einer wei- 
teren Formel zu verwenden. 


Formel anlegen 


Bevor Sie eine Formel anlegen, müssen Sie den Zellzeiger auf die Position bringen, 
an der das Ergebnis dieser Formel erscheinen soll. Nun bewegen Sie das Leuchtfeld 
auf den Menüpunkt ‘Formeln’ und drücken RETURN. Anschließend wählen Sie 
»1« für ‘Formel anlegen’. 


Lebensmit 
LEITE I. WE FG 


[91 877-] 
wo 
RD 
E 7 17.) 


BAD 
[@ Te TesTe Te 72 | 


+ 
.9 
-8 
.8 
u] 
:8 
.8 


aD SD 


ormelzelle belegt Taste druecken ' 


Bild 5/1.3.5.6-1 
Formeln bei ALIPLAN 





Nun erscheint die Nummer der nächsten Formel und darunter der Lichtpunkt für 
die Eingabe. Der Pfeil nach oben ‘?’ markiert die maximale Länge eines Formel- 
eintrages (110 Zeichen). Geben Sie nun die gewünschte Formel ein und schließen Sie 
die Eingabe mit RETURN ab. Das Programm prüft nun automatisch auf formale 
Richtigkeit der Formel. Ein Fehler wird mit einem Kommentar angezeigt und die 
fehlerhafte Stelle mit einem Lichtpunkt markiert. Drücken Sie in diesem Fall die 
Leertaste und geben Sie die Formel neu ein. 
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Fehlermeldungen 





Funkt-code fehlt/ungültig 


Der Funktionscode fehlt oder ist ungültig. Sie haben vergessen, einer Konstan- 
ten oder einer runden Klammer des Funktionssymbol, zu schreiben, oder aber 
das Symbol ist ungültig. Der Funktionscode muß auch vor dem ersten Wert 
(Zellenkoordinate oder Konstante) stehen. Üblicherweise wird dies das Plus- 
zeichen ‘+?’ sein. 





Ungültige Zelle 


Sie haben einen Zeilenwert angegeben, der kleiner als 1 oder größer als 80 ist, 
oder einen Spaltenwert, der kleiner als 1 oder größer als 25 ist. Diese Fehler- 
meldung erfolgt auch, wenn auf einen Funktionscode unmittelbar ein weiterer 
Code folgt. 








Klammer ‘T’ fehlt 


Es wurde vergessen, eine Konstante mit der eckigen Klammer zu markieren. 





Klammer ‘)’ fehlt 


Es wurde vergessen, einen Klammerausdruck mit der runden Klammer abzu- 
schließen. 





Ungültiger Wert 


Diese Fehlermeldung bezieht sich auf die Angabe der Spalte oder Zeile in den 
Funktionen ‘#’, Standardabweichung ‘” und Mittelwert ‘M’. Entweder 
sind beide Werte größer als 0 (#03110115) oder beide Werte sind gleich O0 
(s00000115). Ebenso werden Zeilenwerte kleiner 1 oder größer 80 sowie Spal- 
tenwerte kleiner 1 oder größer 25 gemeldet. 


























Nach korrekter Eingabe einer Formel erscheint das Hauptmenü. Sie können 
nun den Zellzeiger auf die nächste gewünschte Ergebniszelle setzen und nach 
RETURN sofort die nächste Formel eingeben. Wollen sie die Formeleingabe 
beenden, so drücken Sie ausschließlich die RETURN-Iaste. Jede Ergebniszelle 
wird vor Überschreiben durch eine weitere Formel geschützt. 











Formeln lesen/ändern 


Bringen Sie zuerst wieder den Zellzeiger auf die Ergebniszelle der Formel, die Sie 
lesen oder ändern wollen. Danach wählen Sie den Menüpunkt ‘Formeln’ und hier 
“2° für ‘Lesen/Ändern. Nachdem Sie RETURN gedrückt haben, zeigt das Pro- 
gramm Formel und Formelnummer an. 
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Lebensmit 
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Bild 5/1.3.5.6-2 
Formeln lesen und ändern 


Soll nicht geändert werden, so drücken Sie einfach wieder RETURN. Im anderen 
Falle geben Sie nun die neue Formel vollständig ein. Sollte die angewählte Zelle kei- 
ne Ergebniszelle sein, so macht das Programm Sie hierauf aufmerksam. Durch 
Drücken einer Taste kommen Sie wieder in das Hauptmenü. 


Formel einfügen 


Da alle Formeln in der eingegebenen Reihenfolge abgearbeitet werden, kann es not- 
wendig werden, eine Formel an einer Stelle einzufügen. Wählen Sie eine ‘3 im Un- 
termenü ‘Formeln’, nachdem Sie wieder den Zellzeiger auf die gewünschte Position 
gebracht haben. Nach Drücken von RETURN erscheint die Aufforderung, die 
Nummer der Formel, vor der eingefügt werden soll, anzugeben. Die Nummer erfah- 
ren Sie durch den Untermenüpunkt ‘Lesen/Ändern”. Geben Sie eine Nummer an, 
die noch nicht belegt war, so kehrt das Programm wieder zur Abfrage der Formel- 
nummer zurück. Drücken Sie ausschließlich RETURN, gelangen Sie wieder in das 
Untermenü zurück. War die Nummer gültig, so werden alle Formelnummern ver- 
schoben, und danach fordert das Programm Sie auf, die einzufügenden Formeln 
einzugeben. 


Formel kopieren 


Das Programm bietet Ihnen die Möglichkeit, einmal erstellte Formeln auf Knopf- 
druck zeilen- oder spaltenweise zu kopieren. Hierbei wird jedoch nicht einfach der 
Inhalt einer Formel übernommen, sondern fortgeschrieben. 
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Beispiel: Sie haben auf Ihrem Arbeitsblatt in den Spalten 1 bis 10 und den Zeilen 
1 bis 15 Zahlenkolonnen gebildet, die summiert werden sollen. Das Ergebnis soll je- 
weils in Zeile 17 unter jeder Zahlenkolonne stehen. Der erste Schritt ist nun, den 
Zellzeiger auf die Zelle Zeile 17/Spalte 1 zu bringen. Hier geben Sie nun Ihre Formel 
für diese Spalte ein: 


# 00010115 


summiere die Spalte 1 von Zeile 1 bis 15. Anschließend wählen Sie aus dem Unter- 
menü ‘Formeln’ die Funktion ‘Kopieren. Nachdem Sie die Nummer der zu kopie- 
renden Formel eingegeben haben, erscheint diese Formel und Sie werden aufgefor- 
dert, die letzte Zeile oder Spalte anzugeben, bis zu der kopiert werden soll. In 
unserem Beispiel müssen Sie also die Abfrage der Zeile mit RETURN überspringen 
und in ‘Spalte’ ‘10° eintragen. 


Nachdem Sie RETURN gedrückt haben, sind in wenigen Sekunden alle Formeln 
für die Summierung Ihrer Zahlenkolonnen kopiert. Jeweils in der 17. Zeile erscheint 
nach der Berechnung die Summe der jeweiligen Spalte. In gleicher Weise können 
natürlich auch Spaltensummen, Mittelwerte und Standardabweichungen gebildet 
werden. 


Ein weiteres Beispiel soll diese Funktion verdeutlichen: Es sollen die Bruttoumsätze 
einer Reihe von Waren ermittelt werden. In Spalte 2 stehen die Nettopreise je Stück, 
in Spalte 3 die verkaufte Menge und in Spalte 4 der Mehrwertsteuersatz. In der 
Spalte 5 sollen die Bruttoumsätze jeder Warenart stehen. 


Zuerst bringen Sie den Zellzeiger auf die Position Zeile 1/Spalte 5 und geben dann 
die erste Formel ein: 


+0102*0103+[+0102/(100)*0104] 


im Klartext: Nettopreis * Menge + Mehrwertsteuer. Nun wählen Sie wieder ‘4 für 
‘Kopieren’ und geben die Nummer obiger Formel an. Anschließend tippen Sie in 
‘Zeile’ die letzte Zeile Ihrer Zahlenkolonne ein. Nach RETURN werden alle For- 
meln für Ihr Arbeitsblatt automatisch erstellt. 
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5/1.3.5.7 


Diskettenoperationen 





Jedes einmal erstellte Arbeitsblatt kann als Datei auf Diskette gespeichert und jeder- 
zeit wieder geladen werden. Darüberhinaus bietet ALIPLAN die Möglichkeit, eine 
Datei zu löschen und das Inhaltsverzeichnis einer Diskette zu lesen. 
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Bild 5/1.3.5.7-1 
Das Menü der Diskettenoperationen wird in das Arbeitsblatt eingebettet 


Datei (Arbeitsblatt) laden 


Das Programm lädt normalerweise nur mit ALIPLAN erstellte Daten. Theoretisch 
ist es jedoch möglich, versehentlich andere, nicht mit ALIPLAN erstellte Dateien 
zu laden. Dies würde jedoch in der Regel zu einem Programmabbruch führen. Wol- 
len Sie ein Arbeitsblatt laden, nachdem Sie ein anderes bearbeitet haben, sollten Sie 
das Arbeitsblatt zuerst vollständig löschen. Wählen Sie den Hauptmenüpunkt 
‘Datei’ und hier ‘1’ für ‘Programm laden”. Nach Druck auf die RETURN-Iaste wer- 
den Sie aufgefordert, den Dateinamen, unter dem das Arbeitsblatt abgelegt worden 
ist, anzugeben. 
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Kann die gewünschte Datei nicht gefunden werden, erfolgt die Meldung “file not 
found”. Entweder war dann der Dateiname falsch (achten Sie auf Groß-/Klein- 
schreibung) oder Sie haben eine falsche Diskette eingelegt. Das Programm meldet 
auch alle anderen Disketten-Fehler. Schauen Sie in diesen Fällen bitte in Ihr Floppy- 
Handbuch. 


Waren die Eingaben korrekt, erscheint das Arbeitsblatt nach einigen Sekunden auf 
Ihrem Bildschirm. 


Datei (Arbeitsblatt) speichern 


Wählen Sie im Untermenü Datei ‘2’ für ‘Programm speichern’. Sie werden nun auf- 
gefordert, den Dateinnamen, unter dem das Arbeitsblatt gespeichert werden soll, 
anzugeben. Anschließend geben Sie bitte die letzte Zeile und die letzte Spalte an, 
die gespeichert werden soll. Der Sinn dieser Maßnahme liegt darin, Speicherplatz 
auf der Diskette und Zeit beim Speichern und Laden zu sparen, da ja nicht immer 
alle vorhandenen Zellen auch belegt werden. 


Nun wird das Arbeitsblatt mit allen Formeln und Format-Parametern auf Diskette 
abgelegt. Beachten Sie jedoch bitte, daß auch die Formatbestimmungen nur für den 
angegebenen Bereich (letzte Zeile/Spalte) gespeichert werden. Sollten Sie also die 
Absicht haben, in Ihrem Arbeitsblatt später Zeilen oder Spalten ergänzen zu wollen, 
so wählen Sie den zu speichernden Bereich bitte entsprechend. 


Ein gespeichertes Arbeitsblatt kann auch jederzeit überschrieben werden. In diesem 
Fall, wenn also der angegebene Dateiname bereits vorhanden ist, macht das Pro- 
gramm Sie darauf aufmerksam. Drücken Sie ‘j, wenn die vorhandene Datei über- 
schrieben werden soll. Wollen Sie dies verhindern, so drücken Sie ‘n’ für nein. 


Datei (Arbeitsblatt) löschen 


Wählen Sie ‘3° für ‘Datei löschen’ und drücken Sie RETURN. Geben Sie dann den 
Dateinamen an. Beachten Sie bitte, daß normalerweise nur Dateien, die mit ALI- 
PLAN erstellt wurden, gelöscht werden können. Das Programm fragt aus Sicher- 
heitsgründen noch einmal, ob Ihre Entscheidung richtig war. Antworten Sie mit ‘, 
wird diese Datei gelöscht. Antworten Sie mit ‘n’, wenn die Löschung verhindert wer- 
den soll. Ist die angegebene Datei auf der eingelegten Diskette nicht vorhanden, 
meldet das Programm ‘keine Datei’. 
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"directory 
"datave 2.8" 
"Fuchs u. Hase 
ob" 
“Korrelation 

N 5 


I 


ande 


echnen src" 
h 


ın 
“Artikel 





Bild 5/1.3.5.7-2 
Anzeige des Directorys in einem Bildschirmfenster über dem Arbeitsblatt 


Wählen Sie ‘4’ für ‘Inhaltsverzeichnis”. Das Programm zeigt Ihnen nun das komplet- 
te Inhaltsverzeichnis der eingelegten Diskette an. Reicht der Platz im Anweisungs- 
fenster nicht, um alle Dateien anzuzeigen, so wartet das Programm, bis Sie eine 
Taste drücken. Nun wird die Anzeige fortgesetzt bzw. beendet. 


5/1.3.5.8 


Grafik 





ALIPLAN stellt Balkendiagramme von beliebigen Spaltenausschnitten. Bewegen 
Sie das Leuchtfeld auf den Hauptmenüpunkt ‘Grafik’ und drücken Sie RETURN. 
Die Werte-Spalte enthält die numerischen Werte, die grafisch dargestellt werden sol- 
len. Unter Anzeige-Spalte wird die Spalte Ihres Arbeitsblattes verstanden, die in 
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Klarschrift zu den Grafikbalken dargestellt werden soll. Dies kann die gleiche Spalte 
wie die Werte-Spalte sein, aber auch jede andere Spalte. Darüber hinaus müssen 
Sie noch den Spaltenausschnitt wählen (von Zeile bis Zeile). Es können aber nur 
maximal 20 Zeilen gewählt werden. 


rte-Spalte 7 
nzeige-Spalte i 


Non Zeile i1 bis Zeile i6 


Textzeile: 


Ans 2 
--- jAnteile an Gesamtausgaben 


u 
Ant 





Bild 5/1.3.5.8-1 
Erfassen der Parameter zur Grafik-Ausgabe - 


Beispiel: Sie haben ein umfangreiches Arbeitsblatt Ihrer Haushaltsausgaben erstellt. 
Die Spalte 1 enthält die Bezeichnungen der Ausgabeposten (Lebensmittel, Miete 
etc.). Die Spalte 13 enthält die Summe der Positionen für das aufgelaufene Jahr. Ge- 
ben Sie nun ‘13’ als Werte-Spalte und ‘1’ als Anzeige-Spalte ein. Anschließend noch 
von Zeile ‘1 bis Zeile ‘20°. 

Dann können Sie noch eine Textzeile in Ihre Grafik einfügen, die die Darstellung 
kommentiert. Dies ist sinnvoll, wenn Sie eine Hardcopy der Grafik wünschen. Nach 
diesen Eintragungen erscheinen nun links die Bezeichnungen der Ausgabeposten 
und rechts daneben die den Summen der Einzelposten entsprechenden Grafik- 
balken. 











Teil 5 Kapitel 1.3 Seite 24 Kommerzielle Programme 








1.3 Tabellenkalkulation Teil 5: Musterprogramme 
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Bild 5/1.3.5.8-2 
Ausgabe einer Balkengrafik bei ALIPLAN 


Wünschen Sie eine Hardcopy Ihrer Grafik auf dem Drucker, so drücken Sie die 
Taste ‘f3’ (Funktionstaste 3). Mit RETURN gelangen Sie wieder in das Hauptmenü 
zurück. 


5/1.3.5.9 


Drucken 





Sie können Ihr Arbeitsblatt zur Dokumentation ausdrucken. Das Druckformat 
wird automatisch bestimmt. Es werden so viele Spalten wie möglich nebeneinander 
gedruckt. Besteht Ihr Arbeitsblatt aus mehr Spalten, als nebeneinander gedruckt 
werden können, so bildet das Programm Blöcke, die untereinander ausgedruckt 
werden. Auf eine Druckseite werden nur vollständige Blöcke gebracht. D.h. es wird 
ein Seitenvorschub ausgelöst, wenn ein Block nicht mehr vollständig auf eine Seite 
passen würde. 
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Eine Ausnahme bilden nur Arbeitsblätter, die aus mehr als 57 Zeilen bestehen. 
Nachdem Sie das Leuchtfeld auf den Hauptmenü-Punkt ‘Druck’ gebracht und 
RETURN gedrückt haben, fragt das Programm, ob der Drucker eingeschaltet ist. 
Prüfen Sie dies und antworten Sie dann mit ‘j. Nun geben Sie den Umfang des aus- 
zudruckenden Arbeitsblattes an. Anschließend müssen Sie die Richtigkeit Ihrer An- 
gaben bestätigen. Drücken Sie ‘j’, wenn die Angaben richtig sind, und ‘n’ wenn Sie 
die Angaben korrigieren möchten. Wenn der Druckvorgang beendet ist, kehrt das 
Programm in das Hauptmenü zurück. 


5/1.3.6 


Kommandos der Funktionstasten 





Alle nachfolgenden Funktionen stehen Ihnen immer dann zur Verfügung, wenn Sie 
sich im Hauptmenü befinden. Alle Ein- und Ausgaben erfolgen über die Funktions- 
tasten-Kommandozeile zwischen Arbeitsblatt und Hauptmenü. 


Funktionstaste 





Bedeutung und Erklärung 





Arbeitsblatt berechnen 


ALIPLAN berechnet das Arbeitsblatt auf Tastendruck vollständig neu. 
Die ungültigen Operationen ‘Division durch 0° und “Wurzel aus einem 
negativen Wert’ werden mit der Ergebniszelle, in der sie auftraten, gemel- 
det. Drücken Sie in diesem Fall die Leertaste, um das Programm fortzu- 
setzen. 


f3 Hardcopy 


ALIPLAN bietet die Möglichkeit, den Bildschirminhalt als sogenannte 
Hardcopy auf Ihrem Drucker auszudrucken. Diese Funktion steht Ihnen 
auch innerhalb des Hauptmenü-Punktes ‘Grafik’ zur Verfügung. Achten 
Sie bitte darauf, daß der Drucker eingeschaltet ist, wenn Sie diese Funk- 
tion aufrufen. Um die Lesbarkeit des Ausdruckes nicht zu beeinträchti- 
gen, wurde auf inverse Darstellung verzichtet. 
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Funktionstaste 





Bedeutung und Erklärung 





£5 


Freie Zeilen 


Das Programm gibt Ihnen die Anzahl der noch freien Zellen in Abhän- 
gigkeit von der gewählten Spaltenbreite an. Diese Funktion kann bei ge- 
fülltem Arbeitsblatt einige Sekunden in Anspruch nehmen. Beachten Sie 
auch, daß die Angaben nur Näherungswerte sind. 





17 


Zellzeiger auf Home-Position setzen 


Unter Home-Position wird die linke obere Ecke des Arbeitsblattes ver- 
standen. Auf Tastendruck wird der Zellzeiger von jeder beliebigen Stelle 
Ihres Arbeitsblattes auf die HOME-Position Ihres aktuellen Arbeits- 
blatt-Ausschnittes gesetzt. Drücken Sie die Taste f7 nun noch einmal, so 
kehrt der Zellzeiger auf die Position Zeile 1/Spalte 1! zurück. Somit 
haben Sie jederzeit die Möglichkeit, auf Tastendruck zur Ausgangsposi- 
tion zu gelangen. 





f2 
14 








Einfügen einer Zeile 
Einfügen einer Spalte 


An jeder Stelle Ihres Arbeitsblattes kann eine Leerzeile oder Leerspalte 
eingefügt werden. Die letzte belegte Zeile darf aber nicht größer als 79 
und die letzte belegte Spalte nicht größer als 24 sein! 


Alle Formeln werden nach dieser Operation entsprechend korrigiert. Set- 
zen Sie zuerst den Zellzeiger auf die Zeile oder Spalte, an der eine Leer- 
zeile/Leerspalte eingefügt werden soll. Drücken Sie dann die entspre- 
chende Funktionstaste (f2 oder f4). Das Programm fordert Sie nun auf, 
die letzte Zelle oder Spalte, die verschoben werden soll, anzugeben. Hier 
sind wieder die Koordinaten der letzten Zeile/letzen Spalte einzugeben. 





16 


Springe nach Zelle... 


Da es recht mühsam wäre, auf einem größeren Arbeitsblatt mit den 
Cursor-Iasten umherzuwandern, haben Sie hier die Möglichkeit, die 


“Koordinaten Ihrer Zielzelle einzugeben. Nach RETURN steht der Zell- 


zeiger auf der gewünschten Position, und der Bildschirm zeigt den ent- 
sprechenden Arbeitsblatt-Ausschnitt. 





f8 








Zelle vollständig anzeigen 


Durch die Formatierung der Zellen wird nicht immer jede Zelle vollstän- 
dig angezeigt. Haben Sie z.B. auf zwei Dezimalstellen formatiert, wird 
ein Rechenergebnis, das sieben Dezimalstellen aufweist, auch nur mit 
zwei Dezimalstellen auf dem Arbeitsblatt angezeigt. Durch Drücken der 
Funktionstaste f3 zeigt Ihnen das Programm den vollständigen Inhalt 
der Zelle, auf der sich der Zellzeiger befindet. 
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51.3.7 


Programmbeschreibung 





Wir beginnen mit einer Übersicht über die Verteilung der Zeilennummern 





400 

590 

1000 — 1500 
3000 — 4000 
5000 — 6500 
7000 — 7080 
9000 — 9430 


11000 — 11210 
13000 — 18180 
13185 — 13705 
14000 — 14100 
14200 — 14210 
14700 — 14795 
14850 — 14890 
14900 — 14990 
15000 ff 

15300 — 15450 
15500 — 15650 
15700 — 15800 
15900 — 16160 
16900 — 16960 
17000 — 17020 
19000 — 20040 
21000 — 21111 
22000 — 23500 
30000 — 30115 
30200 — 30219 
30220 — 30248 
30265 — 30320 
30400 — 30435 
30450 — 30465 
30500 — 30530 
30600 — 30640 


Basic-Ende unterhalb der Formatmatrix setzen 
Formatmatrix löschen 

Arbeitsblatt auf Bildschirm bringen 
Eingabe/Füllen von Zeilen 
Formatbestimmungen 

Kopieren einer Zelle 

Löschen von Zelle, Spalte, Zeile und Arbeitsblatt 
Ändern einer Zelle 

Eingabe einer Formel 
Fehlerprüfung einer Formel 
Ausgabe der Fehlermeldung 
Formel o.k.! Formelnummer erhöhen 
Formel ändern oder löschen 
Formel einfügen 

Formel kopieren 

Dateiverwaltung 

Datei laden 

Datei speichern 

Datei löschen 

Inhaltsverzeichnis Diskette 
Fehlermeldungen Floppy 
Arbeitsblatt berechnen 

Arbeitsblatt ausdrucken 

Programm beenden 

Grafik erstellen 

Menüzeilen aufbauen 

Steuertasten abfragen 

Zellencursor bewegen 
Hauptmenü-Auswahl 

Cursor auf Homeposition 

Zeile einfügen 

Spalte einfügen 

Springe nach Zeile 
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31000 — 32010 Formel neu referenzieren (Werteverweise) 
33000 — 33060 Scrollen nach rechts 
33100 — 33160 Scrollen nach links 
33200 — 33261 Scrollen nach oben 


33300 — 33360 Scrollen nach unten 
40500 — 40530 Cursor-Zelle nach Absprung anzeigen 
51000 — 51360 Arbeitsblatt anzeigen 





Das Programm besteht aus ca. 22 KByte Basiccode und etwa 3,6 KByte Maschinen- 
code. 


Ein wesentliches Problem bestand darin, möglichst viele Programmfunktionen mit 
möglichst geringem Speicherbedarf zu realisieren, da die Größe des zur Verfügung 
stehenden Arbeitsblattes eben vom restlichen Speicherraum abhängt. Insbesondere 
sollte auch ein Nachladen von Programmteilen während des Programmlaufs ver- 
mieden werden. Es wurde deshalb auf jegliche Kommentierung im Programm ver- 
zichtet und darüber hinaus versucht, so viele Befehle wie möglich in einer Pro- 
grammzeile unterzubringen. Konsequente Benutzung von Schleifen statt direkter, 
linearer Programmierung war deshalb ebenfalls angesagt. 


Insgesamt wurde versucht, die Gesichtspunkte Speicherbedarf, Größe des Arbeits- 
blattes, Bedienungsfreundlichkeit (z.B. durch Menütechnik) und Ausführungsge- 
schwindigkeit zu optimieren. Um eine akzeptable Ausführungsgeschwindigkeit zu 
erreichen, mußten ‘geschwindigkeitsempfindliche’ Routinen in Assembler program- 
miert werden. Hier ist insbesondere der Neuaufbau des Bildschirms und die Routine 
zur Auswertung und Berechnung der Formeln zu nennen. 


Für eine komfortable Bildschirmgestaltung wurden weitere zahlreiche Assembler- 
routinen eingefügt. Alle Maschinenroutinen werden mit dem Befehl SYS, gefolgt 
von der Adresse und eventuell zu übergebender Parameter, mit Kommata getrennt, 
aufgerufen. Eine genaue Übersicht über alle verwendeten Maschinenroutinen folgt 
später. 


Nachfolgend beziehen wir uns erst einmal auf den Basic-Teil des Programms. Da das 
Programm modular strukturiert ist, läßt sich fast jeder Funktion ein bestimmter, 
geschlossener Programmbereich (siehe auch Übersicht nach Programmzeilen) zu- 
ordnen. 


Variablen initialisieren 


Der Bereich unterhalb der Programmzeile 1000 dient im wesentlichen der Initiali- 
sierung wichtiger Variablen. Insbesondere auch Stringvariablen für den Menü- 
aufbau und Fehlermeldungen etc. Hier werden auch die Adressen der Maschinen- 
routinen Variablen zugewiesen, um ihre Handhabung im Programm zu erleichtern 
(540 — 550). 
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Arbeitsblatt initialisieren 


In den Zeilen 1000 bis 1500 wird das Arbeitsblatt in der Grundstellung (Spalte 1 und 
Zeile 1 in der oberen linken Ecke) und die Hauptmenüauswahl auf den Bildschirm 
gebracht. 


Eingabe der Zellen 


Bei Eingabe von Zellen (3000 bis 4000) wird geprüft, ob die Zelle bereits belegt ist 
und gegebenenfalls eine Fehlermeldung ausgegeben. Dies soll vor unbeabsichtigtem 
Überschreiben bereits gefüllter Zellen schützen. Weiterhin wird geprüft, ob es sich 
um eine Formelzelle handelt, die das Ergebnis einer Formel bereitstellt. Auch in die- 
sem Fall wird ein Überschreiben verhindert (3050 bis 3083). Ist die Zelle noch leer, 
wird das Format (dezimal, numerisch, rechtsbündig, alphanumerisch) ermittelt und 
die Eingabe freigegeben (3084 bis 4000). 


Die Informationen über das Zellenformat befinden sich in einer Formmatrix. Hier 
steht für jede Zeile ein Code, der das jeweilige Format definiert. Alle Zellen haben 
ursprünglich das Format ‘dezimal’ (wird in Zeile 590 initialisiert). Die Anderung er- 
folgt mit der Funktion ‘Format’. Angemerkt werden soll noch, daß alle Zellenvaria- 
blen Strings sind und ihr Format erst bei der Ausgabe auf den Bildschirm bzw. auf 
den Drucker bestimmt wird. 


Formatbestimmungen 


In den Zeilen 5000 bis 6500 werden die Formatattribute aller Zellen bzw. Spalten 
und Zeilen festgelegt. Die Parameter ‘Anzahl Dezimalstellen’, ‘Füllzeichen’ und 
‘Führendes Zeichen’ werden der Print-Using-Routine übergeben und können nur 
global, d.h. für alle Zellen, bestimmt werden. 


Die anderen Parameter werden in die Formatmatrix eingetragen. Lediglich die For- 
melzellen behalten immer grundsätzlich das Format ‘dezimal’”. Es wird also auf das 
Vorhandensein einer Formelzelle geprüft (6080 — 6090) und die Formatierung 
dieser Zelle gegebenenfalls unterbunden. 


. Zellen editieren 


Der Bereich von Zeile 7000 bis Zeile 11210 beinhaltet das Kopieren und Löschen von 
Zellen, Spalten und Zeilen sowie das Ändern einer Zelle. Der Inhalt aller entspre- 
chenden Zellenvariablen wird gelöscht oder kopiert — ohne allerdings die Format- 
matrix zu ändern. Zu erwähnen ist noch, daß hier zwar der Ergebniswert einer For- 
melzelle geändert oder gelöscht werden kann, nicht jedoch die Formel selbst. Diese 
Funktionen finden Sie unter Hauptmenüpunkt ‘Formeln. 


Formeln 


Der Bereich von Zeile 13000 bis 14990 behandelt das Erstellen und Editieren einer 
Formel. Alle Formeln werden in separaten Formelstring-Variablen gespeichert. Zur 











Teil 5 Kapitel 1.3 Seite 30 Kommerzielle Programme 








1.3 Tabellenkalkulation Teil 5: Musterprogramme 


Identifikation beginnt jeder Formelstring mit den Koordinaten (Zeile, Spalte) für 
die Ergebniszelle. Außerdem wird nach erfolgter Fehlerprüfung in der Formatmatrix 
die Formelnummer+2 an der entsprechenden Position eingetragen (14205). Auf 
diese Weise enthält jede Formel den Bezug zur Ergebniszelle und die Formatmatrix 
den Bezug zur Formelvariablen. 


Um zu verhindern, daß das Programm bei der Auswertung einer Formel wegen Syn- 
taxfehlern aussteigt, wurde eine Routine zur Fehlerprüfung integriert (13185 bis 
13705). Sofort nach Eingabe einer Formel wird diese Routine aufgerufen. Bei einem 
Fehler wird die Fehlerposition innerhalb der Formel invers angezeigt und zur Kor- 
rektur aufgefordert. Außerdem wird noch eine Fehlermeldung ausgegeben (14000 
bis 14100). Erst nach einer fehlerfreien Eingabe erzeugt ALIPLAN in den Zeilen 
14200 bis 14205 die eigentliche Formelvariable und trägt in die Formatmatrix die 
Formelnummer ein. 


Vor der beabsichtigten Löschung oder Änderung einer Formel muß der Zellcursor 
auf die entsprechende Formelzelle gesetzt werden. Handelt es sich nicht um eine 
Formelzelle, wird dies angezeigt. Die Zeilen 14782 und 14783 bewirken ein Blinken 
der Fehlermeldung. Da alle Formeln in der Reihenfolge ihres Index’ abgearbeitet 
werden, kann es notwendig sein, Formeln an irgendeiner Stelle einzufügen. Diese 
Routine in den Zeilen 14850 bis 14890) prüft in 14850, ob die maximale Anzahl zu- 
lässiger Formeln erreicht ist. In einer Schleife (14860 bis 14875) wird dann der Index 
der höheren Nummern um eine Einheit erhöht und auch die Formatmatrix entspre- 
chend korrigiert. 


ALIPLAN kopiert eine Formel, indem nach Möglichkeit die Werteverweise (Zeile, 
Spalte) neu errechnet werden. Nachdem die zu kopierende Formelnummer (14910) 
und der Bereich (14935) eingegeben wurden, isoliert das Programm die fortzuschrei- 
benden Parameter und springt in einer Schleife ab 14960 eine Routine an (31000 bis 
32010), die die Neureferenzierung der Werteverweise durchführt. Die Neuberech- 
nung des Arbeitsblattes erfolgt durch eine umfangreiche Assemblerroutine 
(17000 — 17020), die über die Funktionstasten aufgerufen wird (30207). 


Diese Routine übergibt an die Speicherstellen 852, 853 und 854 einen Fehlercode so- 
wie die Koordinaten (Zeile, Spalte) der betroffenen Formelzelle im Falle einer Divi- 
sion durch Null oder eines negativen Wurzelarguments. Die Maschinenroutine 
wurde so eingestellt, daß bei diesen beiden Fehlern kein Programmabbruch erfolgt. 


Diskettenoperationen 


ALIPLAN bietet eine Reihe von Diskettenoperationen an. Beim Speichern oder 
Laden eines Arbeitsblattes reicht es aber nicht, nur die Zelleninformationen zu 
transferieren, es müssen auch alle Formelstrings und alle Formatparameter (Format- 
matrix) übergeben werden. 


In Zeile 15505 wird der zu speichernde Bereich erfragt. ALIPLAN speichert (und 
lädt) nur die Informationen für den spezifizierten Bereich, um Zeit und Speicher- 
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platz auf der Diskette zu sparen. Die Daten werden in eine sequentielle Datei über- 
nommen (15550 bis 15650). Das Laden eines Arbeitsblattes erfolgt entsprechend in 
den Zeilen 15300 bis 15450. Eine Maschinenroutine gestattet ab Zeile 15900 das 
Lesen des Inhaltsverzeichnisses der Arbeitsdiskette. 


Arbeitsblatt ausdrucken 


Eine Druckroutine (19000 bis 20040) ermöglicht es, das gesamte Arbeitsblatt oder 
einen beliebigen Ausschnitt auszudrucken. Nachdem die Bereichsparameter einge- 
geben wurden (19000 bis 19230) gestaltet das Programm automatisch das Druck- 
format. In den Zeilen 19300 bis 19420 wird die Anzahl der darzustellenden Spalten 
und Zeilen je Seite ermittelt. Danach erfolgt die eigentliche Druckroutine (19500 bis 
19700). Da mit dem Befehl CMD gearbeitet wird (19350), kann die Print-Using- 
Routine für einen formatgerechten Ausdruck benutzt werden (19550). 


Nach jedem Seitenvorschub wird der Kopf neu gedruckt (20000 bis 20040). 


Grafik 


Die Grafikroutine in den Zeilen 22000 bis 23500 setzt eine Wertespalte des Arbeits- 
blattes in eine einfache Balkengrafik um. In den Zeilen 22290 bis 22310 wird der 
höchste Wert für die Dimensionierung ermittelt. Anschließend wird die Balken- 
grafik erstellt. Das Programm hält nun an, bis entweder RETURN oder die Funk- 
tionstaste für eine Hardcopy gedrückt wurde (22410 bis 23500). 


Cursorbewegung, Hauptmenüauswahl, Funktionstastenbefehle 


Ab Zeile 30000 bis 30320 erwartet das Programm einen Tastenbefehl zur Steuerung 
des Zellzeigers, zur Auswahl einer Hauptmenüfunktion oder eines Funktionstasten- 
befehls. Zuerst wird die Cursorbewegung erfragt (30202 bis 30206) und gegebenen- 
falls in die Routine zur Cursorbewegung verzweigt (30220 bis 30248). Hier prüft das 
Programm jeweils, ob die Grenze des aktuellen Arbeitsblattausschnittes überschrit- 
ten wird. In diesem Fall verzweigt ALIPLAN in die entsprechende Routine zum 
Scrollen und Ergänzen des Bildschirms (33000 bis 33360). Für jede Bewegungsrich- 
tung sind entsprechende Routinen vorhanden bzw. werden Maschinenroutinen auf- 
‘gerufen. Nach dem horizontalen Scrollen ergänzt eine schnelle Assemblerroutine 
das Arbeitsblatt um die neu hinzugefügte Spalte. 


Nach jeder Bewegung des Zellzeigers muß die inverse Darstellung der Ausgangspo- 
sition umgekehrt (40500 bis 40530) und die Zielposition wiederum invers dargestellt 
werden (40550 bis 40585). 


Gleichzeitig werden die Parameter für die aktuellen Bildschirmpositionen und 
Variablenindizes korrigiert. 


Anschließend fragt das Programm die Funktionstasten ab und ruft die entsprechen- 
den Funktionen bzw. Routinen auf. Beim Einfügen von Zeilen oder Spalten in das 
Arbeitsblatt (30450 bis 30530) ist es notwendig, die Formeln entsprechend zu kor- 
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rigieren (dazu wird jeweils die schon bekannte Routine zur Neureferenzierung der 
Werteverweise, ab Zeile 31000, aufgerufen), um die Einträge in die Formelmatrix zu 
verschieben. 


In den Zeilen 30265 bis 30320 ruft das Programm die schon besprochenen Haupt- 
menüfunktionen auf. Dies geschieht in der Weise, daß nach jedem Betätigen der 
Leertaste der Menüzeiger (Variable kz) auf die jeweilige Funktion zeigt (inverse Dar- 
stellung). Wird nun RETURN gedrückt, verzweigt das Programm mit dem Befehl 
ON GOSUB in die gewählten Routinen (30265). 


Arbeitsblatt aufbauen 


Die Routine ab Zeile 51000 baut das Arbeitsblatt bei Bedarf neu auf. Hier findet 
die Assemblerroutine zur Ergänzung einer Spalte Anwendung, die in Zeile 51170 
aufgerufen wird, nachdem die entsprechenden Parameter an diese Routine über- 
geben wurden. Die Zeile 51360 bewirkt die Ergänzung des Arbeitsblattes um die Zei- 
len und Spaltennummer sowie der Hauptmenüauswahl-Anzeige. 


Von ALIPLAN verwendete Assemblerroutinen 
Name/Funktion Adresse | smmtax 


Scrollen nach links 49152 Adr., von Zeile, bis Zeile, Anzahl, von 
Spalte, nach Spalte 


Scrollen nach rechts 49424 Adr., von Zeile, bis Zeile, Anzahl, von 
Spalte, nach Spalte 


Scrollen nach oben 49716 Adr., von Zeile, bis Zeile, 
von Spalte, bis Spalte 


Scrollen nach unten 49934 Adr., von Zeile, bis Zeile, 
von Spalte, nach Spalte 


Print an Cursorposition 49690 Adr., Spalte, Zeile, 
Ausdruck / Variable 


Print-Using 50155 Adr., Spalte, Zeile, 

j Ausdruck/ Variable 

Nur numerische Ausdrücke oder Varia- 
blen. Zu übergebender Parameter: 
Integer oder Dezimal Adresse +201 

(0 oder 1) 

Länge des auszugebenden Strings 
Adresse+202 (0 — 10) 

Dezimalstellen Adresse+203 * 
Füllzeichen Adresse+204 (ASCIH-Code) 
Führendes Zeichen Adresse+310 (ACSI- 
Code) 
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Von ALIPLAN verwendete Assemblerroutinen 














Name/Funktion Adresse | Syntax 
Hardcopy 50360 Adresse 
Clear Bildschirm- 50451 Adr., von Zeile, bis Zeile, 
bereich von Spalte, bis Spalte 
Input 50622 Adr., Spalte, Zeile, Länge, Typ, Variable 
Type = 0 numerisch oder 
1 String 
Füllzeichen 
Adresse+433 (ASCII-Code) 
Directory 51233 Adresse, Spalte, Zeile 
(alle vorgenannten Routinen sind im Programm ‘ali 2.0° zusammengefaßt) 
“aliplan 2.5’ 51460 Adresse 
bringt ausgewählte Zu übergebender Parameter: 
Spalten des Arbeitsblat- 141 von Spalte 
tes auf den Bildschirm 142 von Zeile 
830 von Element low 
831 von Element high 
832 von Element low 
833 von Element high 
‘rechnen’ 51763 Adresse 
Auswertung und i 
Berechnung 
der Formeln 
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51.3.8 


Variablenliste 








as$ 





Maschinenprogramm nachladen 
Formelstring retten 

Anzahl Stellen/Spalte 

Anzahl Spalten/Bildschirm 
Anzahl Zeilen/Bildschirm 

bis Spalte 

bis Zeile 

Spalte (Zellenindex) 

Adresse für Clear-Routine 
Druckstring 

Flag: Datei löschen 

Dateiname 

Anzahl Dezimalstellen 
Fehlermeldung Floppy 
Fehlermeldung Floppy 
Fehlermeldung Floppy 
Fehlermeldung Floppy 

Datei überschreiben? 
Formelstring 

Flag für Format 
Fehlermeldungen 

Anzahl Formeln 

Füllzeichen 

Adresse der Input-Routine 
Hauptmenü-Bezeichnungen 

zu kopierende Zellenvariable 
Nummer der Hauptmenü-Bezeichnung 
Leerstring für Zellcursor 
Rechenvariablen für verschiedene Zwecke 
Hilfsstrings für verschiedene Zwecke 
Startadresse der Formatmatrix 
Flag für verschiedene Zwecke 
Formatcode/Rechenvariable 
Adresse der Print-Routine 
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ps Spaltenposition auf Bildschirm 
pz Zeilenposition auf Bildschirm 
pu Adresse der Print-Using-Routine 
r Zeile (Zellenindex) 
1$ geänderte Zellenvariable 
r$ (x, y) Zellenvariable 
ır numerischer Wert einer Zellenvariablen 
r0 — 19 Rechenvariablen für verschiedene Zwecke 
r0$ — r9$ Formelstring editieren 
sh Erste Spaltennummer für aktuellen Arbeitsblattausschnitt 
si Adresse der Routine Scrollen nach links 
so Adresse der Routine Scrollen nach oben 
sp aktuelle Spalte 
sr Adresse der Routine Scrollen nach rechts 
ss Differenz Beginn Arbeitsblatt — erste tatsächliche Spalte 
su Adresse der Routine Scrollen nach unten 
t Formel anlegen, lesen/ändern, einfügen, kopieren 
t$ allgemeine get-Variable 
1% Flag: Hauptmenüaufruf und verschiedene Zwecke 
ttY% Löschen Spalte, Zeile, Zelle, Arbeitsblatt 
uz$ führendes Zeichen (Zellenformatierung) 
vs von Spalte 











Das Programmm befindet sich auf der Grundwerksdiskette 
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Teil 5: Musterprogramme 


5/2 


Mathematisch-technisch- 
wissenschaftliche Programme 





Mathematisch-technisch-wissenschaftliche Programme stellen den Einsatzbereich 
dar, weshalb Rechner überhaupt entwickelt wurden: Umfangreiche Berechnungen 
schneller als der Mensch auszuführen. 


Auch wir wollen diesem Thema im Rahmen der Musterprogramme einigen Raum 
einräumen. Wir fangen an mit einigen mathematischen Routinen, wie z.B. die Be- 
rechnung von Nullstellen bei Gleichungen dritten Grades bzw. Zahlberechnungen 
mit großer Genauigkeit anhand des Beispiels der Euler’sche Zahl. 


Im Rahmen der Statistik werden wir uns auch näher mit der Wahrscheinlichkeits- 
rechnung am Beispiel von Roulette beschäftigen und eine Reihe statistischer Unter- 
programme vorstellen. Im Bereich der technischen Programme werden wir z.B. auf 
das Thema Statik näher eingehen, aber auch andere technische Unterprogramme 
vorstellen. 


Daß die Physik ein reichhaltiges Anwendungsfeld für den Computer ist, wird sicher- 
lich jedem klar sein. Auch hier werden wir Berechnungen aus den verschiedensten 
Bereichen vorstellen. 


An dieser Stelle möchten wir noch einmal daran erinnern, daß uns jeder Leser Mu- 
sterprogramme einsenden kann. Dies dürfte besonders für den mathematisch- 
technisch-wissenschaftlichen Bereich interessant sein, da zu den speziellen Bereichen 
meist eingehende Sachkenntnis erforderlich ist. Selbstverständlich werden alle Ein- 
sendungen entsprechend honoriert. 
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5/2.1 
Mathematische Routinen 





5/2.1.1 


Nullstellen von Gleichungen bis 3. Grades 


(Autor: Klaus Kohl) 





Mit dem nachfolgenden Programm können alle realen Nullstellen einer algebra- 
ischen Gleichung 3. Grade smit einer Unbekannten ermittelt werden. Unter einer al- 
gebraischen Gleichung 3. Grades versteht man eine Gleichung der Form: 


Axx3?+Bx»x2+Csx+D=0 


Eine Gleichung n-ten Grades hat maximal n Lösungen. Jedoch kann bei Gleichun- 
gen höheren Grades vorkommen, daß es keine reale Lösung gibt oder Nullstellen 
höherer Ordnung auftreten. Dadurch verringern sich die Anzahl der Lösungen. 


Bedienungsanleitung 


Es sind alle Variablen von A bis D einzugeben. Sind nur quadratische Gleichungen 
zu lösen, so ist für A der Wert 0 einzugeben. Nach den Eingaben erfolgt die Aus- 
gabe der gesamten Gleichung und die einzelnen Lösungen. Anschließend kann ent- 
weder das Programm beendet oder mit der Eingabe neuer Werte fortgesetzt werden. 


Programmaufbau 


Bis zu quadratischen Gleichungen wird es den Anwendern leichtfallen, anhand des 
Programmlistings die Ermittlung der Nullstellen nachzuvollziehen. Bei den kubji- 
schen Gleichungen ist das schon schwierig, da hier verschiedene Berechnungsver- 
fahren bei den unterschiedlichen Lösungen verwendet wurden. 
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Gleichungen dritten Grades besitzen vier Lösungsarten: 


a) Es existiert nur eine Nullstelle 

b) Es gibt drei verschiedene Nullstellen 
c) Zwei Nullstellen fallen zusammen 
d) Alle drei Nullstellen sind identisch 


Bei der Ermittlung der Lösungen wird deshalb die Gleichung zuerst mittels einer 


Substitution in die reduzierte Form übergeführt: 














Substitution: z = X + B 
3#+A 
Ergebnis: 3 +3=Pxz+2xQ =0 
mit P c B+B und.Q = B=B=*+B B=*+C C 
3+ A 9+AxA 27+A+AxA 6+A»B 2-A 


Diskriminante: F = P3 + Q2 


Anhand der Diskriminante F wird dann festgestellt, welche der Lösungsarten für 


die eingegebenen Werte zutrifft: 


1) F>0: Nur eine Lösung: 


x=z— _B_mitz=3Yy—-Q+?2yF+3y—-Q-—?yF 


3#A 
2) F=0 
a) Für P=Q=0: Dreifache Nullstelle 


xı=x2=x3=—_B 
3x A 





b) Für P? = —Q?: Eine Einfach- und eine Doppelnullstelle 








= 3 B_. 
x = 2% Q 3, Am X 


3) F<0: Drei verschiedene Lösungen 





3, B 
Q 3#+ A 














Re? Pl; W = arcıan (2 —) 
% = —2+Rrcos (%) 

x, = 2#Rucos HN) BD 

% = 2rRros N) I 
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Dabei wird in 3) eine trigonometrische Auflösung und bei den anderen Gleichungen 
die CARDANISCHE FORMELN verwendet: 


zZ, = UV zZ, = Wu rUFW#V,Z, = Ws UtFW, * V 


2 


u we Le14i2? 3; es 3) 


. 
2: 22 
3 u. 3 3 EN 
und u = —Q + /F;v = —Q — —/F (für F20) 


Dabei sind w, u und v weitere Hilfsvariablen. Werden nur reale Lösungen ermittelt, 
so können diese Formeln auf die bei 1) und 2) verwendeten Gleichungen gekürzt 
werden. 


(—1-—ix 


Schwierigkeiten können aufgrund der begrenzten Rechengenauigkeit des C 64/ 
C 128 auftreten. Deshalb wurde bei den kubischen Gleichungen bei Fallunterschei- 
dungen nicht abgefragt, ob die Diskriminante den Wert 0 hat. Statt dessen wird ge- 
prüft, ob der Betrag der Diskriminante kleiner als 1/1000000 des Wertes von A ist. 
Um diese Sonderfälle auch noch auszuschließen, müßten weitere Berechnungen 
durchgeführt werden, was aber den Sinn dieses Programmes überschreiten würde. 


Hier noch einige Literaturangaben, mit deren Hilfe dieses Programm erstellt worden 
ist. Die verwendeten Namen für Variablen sind meistens direkt übernommen 
worden. 


1. NETZ: Formeln der Mathematik 

(Carl Hanser Verlag, München Wien) 

1. BRONSTEIN/SEMENDJAJEW: Taschenbuch der Mathematik 
(Verlag Harri Deutsch, Thun und Frankfurt) 

3. BARTSCH: Mathematische Formeln 

(Buch- und Zeit-Verlagsgesellschaft mbH, Köln) 


Verwendete Variablen: 


A,BC,D Faktoren 
EEQPRER,W Diskriminanten und Zwischenvariablen 
A$ Eingabe-Variable 











Das Programmm befindet sich auf der Grundwerksdiskette 
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FEEREIEIEEHEERHRKEREEHE, 


FRINT"E NULLSTELLENBERECHNUNG DEF GLEICHUNG: 
FRINT"* 





fe} > 










1 
AFX +BEX +0#EX +D = 0 


EEE 


öFEN 1,0 
"RINT"A INPUT#1, A: PFRINT 
FRINT"B= INPUT#1,B: PRINT 
FRINT"C INFUT#1,C: 
PRINT“ D="} : INFUT#L,D: 


ELOSEI 








="; 





== KONTROLLAUSSABE 








EEINT"BDIE GLEICHUNG: " 






















FRINT 
IF A=0 THEN 550 
IF A>0 THEN FRINT"+"5 
FRINT AZURX"S"; 
LE > THEN 580 
IF THEN FREINT"+"; 
PRINT BEUEXTEG 
SB0 > THEN 610 
5330 THEN PRINT" +"; 
won PRINT Ey "3X "5 
AND 03 THEN 640 
THEN FF 








FALLUNTERSCHEIDUNG == 





FEM EUBISCHE GLEICHUNG 
FEM QUADRATISCHE GLEICHUNG 
REM LINEARE GLEICHUNG 


THEN 4000: 
THEN { : 
THEN 





GSLEICHUNG 0. GRADES == 





X ALLE WERTE ZU." 


FUECHLICH (UNLOESBAFD . 











Listing 5/2.1.1 (1) 
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= BLEICHUNG 1. GREADES 









"NUR: DIE LOESUNG: 
5-D/C 


GLEICHUNG 2. GRADES 





» REM DISKRIMINANTE 
3040 
3070 








FREINT"X 
GOTO 5t 
FEINT"BESI 
GOTO S000 
FRIINT"HAT ZWEI LGES SUNGEN: 
















GLEICHUNG 3. BRADES 





ÜLE-EEABSCANITHEN 4070 
THEN 4 150 


ABS(CA)I)D THEN 4110 
FACHE. LOESUNG: " 
E 






ERINT"X 
G9TO 5 







EINE LOESUNG: ": FRINT"X="5 


"1/39+56NCZEI EABSCZ 





“i1/3r-E 








* ABFRAGE : ENDE ODER WEITERE GLEICHUNGEN = 


INTIWEITERE GLEICHUNGEN (J/NI 7"; 











Listing 5/2.1.1 (2) 
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5/4 
Grafik 





5/4.1 
Demo-Maker 


Autor: Helmut Schröter 





Diesmal wollen wir ein Programm zur Erstellung von Demos vorstellen. 


5/4.1.1 


Die Aufgabe des Demo-Makers 





Der Demo-Maker dient zum Erstellen von Vorspannen bzw. von Demos. Er wurde 
in Assembler geschrieben und bietet die Möglichkeit, einen Text vor einem Grafik- 
bild als Laufschrift zu scrollen und dabei eine Musik spielen zu lassen. Die Lauf- 
schrift bewegt sich zudem noch in einem festlegbaren Bereich von oben nach unten 
und wieder hinauf. Weiterhin ist die Möglichkeit gegeben, einen anderen Zeichen- 
satz für die Laufschrift zu benutzen. 
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5/4.1.2 


Die Menüs 





Das Hauptmenü ist folgendermaßen gegliedert: 





. Laufschrifttext eingeben 
. Laufschrift-Menü 

. Grafik laden 

. Musik laden 

Demo zeigen 

. Demo speichern 

. Directory zeigen 

Ende 


ENDAUNPUn-— 





Laufschrift eingeben 


Durch diesen Menüpunkt kommt man in einen Editor, der zur Eingabe des Scroll- 
textes gedacht ist. Es ist darauf zu achten, daß man nicht mit den Cursortasten aus 
dem unteren Bildschirmrand fährt, da sonst der obere Teil des Textes gelöscht wird. 
Am Ende des Textes muß die Eingabe eines Klammeraffen erfolgen, um das Text- 
ende für die Laufschrift festzulegen. Durch den Druck auf „F1‘ wird der Bild- 
schirm im Speicher als Laufschrifttext gesichert. 


Laufschrift-Menü 


Durch diesen Menüpunkt gelangt man wieder in ein Untermenü, das folgender- 
maßen gegliedert ist: 





. Springbereich festlegen 
. Zeichensatz laden 
Farbenblinken ändern 

. Hauptmenü 





Bon. 








Im ersten Menüpunkt gelangt man zur Option, die obere und untere Grenze des 
Springbereiches der Laufschrift festzulegen. Dies geschieht mit Hilfe der Cursor- 
tasten oder des Joysticks, der im Port 2 angeschlossen sein muß. Durch die 
RETURN-Jaste bzw. den Feuerknopf wird die Eingabe bestätigt. 


Im zweiten Menüpunkt kann man einen neuen Zeichensatz laden. Dazu muß man 
lediglich den Namen eingeben. 
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Im dritten Menüpunkt kann man das Farbenblinken der Laufschrift auswählen. Es 
sind dafür die Farben Blau, Grün, Rot, Grau und Gelb vorgesehen. 


Durch den vierten Menüpunkt gelangt man wieder ins Hauptmenü. 


Grafik laden 


In diesem Untermenü kann man eine Grafik laden, die im Koalapainter-Format auf 
Diskette steht. Die Steuercodes im Grafiknamen werden dabei außer acht gelassen. 
Das heißt, daß man nur noch den eigentlichen Bildnamen eintippen muß. Für den 
Fall, daß das gewünschte Grafikbild nicht im Koala-Format vorhanden ist, muß 
man dieses mit einem Konvertierungsprogramm bearbeiten. Solche Konvertierungs- 
programme sind bereits vielfach erhältlich. 


Musik laden 


In diesem Untermenü kann man eine Musik, die mit dem Soundmonitor angefertigt 
wurde, einladen. Diese Musik wird dann während des Demos gespielt. Wenn man 
keine Musik haben möchte oder nicht im Besitz des Soundmonitors ist, kann man 
auch auf die Benutzung dieses Unterpunktes verzichten. Der Soundmonitor ist be- 
reits mehrfach erschienen und in der Public Domain oft benutzt worden. 


Demo zeigen 


Durch die Wahl dieses Punktes wird das Demo so gezeigt, wie es auf Diskette ge- 
speichert werden würde. Man kann so noch einmal das ganze Ergebnis betrachten 
und eventuelle Anderungen mit Hilfe der vorhergehenden Menüs durchführen. Das 
Anzeigen des Demos wird durch einen Tastendruck abgebrochen, und man gelangt 
wieder ins Hauptmenü. 

Demo speichern 

Das Demo wird durch die Wahl dieses Menüpunktes unter dem Namen „DEMO“ 
auf Diskette gespeichert und der Demo-Maker durch einen Reset verlassen. 
Directory anzeigen 


Diese Funktion zeigt das Inhaltsverzeichnis der eingelegten Diskette auf dem Bild- 
schirm. 


Ende 


Der Demo-Maker wird durch einen Reset des Computers verlassen. 
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5/4.1.3 


Das Erstellen eines Demos 





Es wird nun im Folgenden die genaue Vorgehensweise beim Erstellen von Demos 
erläutert. 


Zuerst ist der Laufschrifttext einzugeben. Dies geschieht, wie bereits erwähnt, durch 
die Anwahl des ersten Hauptmenüpunktes. Nachdem man der Aufforderung nach- 
gekommen ist, eine Taste zu drücken, kann man einen beliebigen Text eingeben, der 
im Demo über den Bildschirm laufen soll. Es ist darauf zu achten, daß man in der 
untersten Bildschirmzeile nicht RETURN drückt, nicht mit den CRSR-Jasten nach 
unten fährt und auch das letzte Zeichen frei läßt. Anderenfalls würde der obere Teil 
des Laufschrifttextes verlorengehen. Am Schluß des Textes ist ein „Klammeraffe‘‘ 
einzugeben. Dieses Zeichen befindet sich auf der Tastatur rechts vom P, Wenn der 
Text fertig eingegeben ist, ist die Taste Fl zu drücken. Dadurch wird der Text in den 
Textspeicher der Laufschrift kopiert, und man gelangt wieder ins Hauptmenü. 


Als nächstes sollte man den Bereich, in dem die Laufschrift springt, nach eigenen 
Wünschen definieren. Dazu wählt man den zweiten Punkt des Hauptmenüs. Man 
befindet sich nun im Laufschrift-Menü, das wiederum gegliedert ist. In diesem 
Menü ist der Punkt 1 anzuwählen. Es erscheint nun eine Anleitung, wie die obere 
und die untere Grenze gesetzt werden. Dies geschieht mit Hilfe des Joysticks in 
Port 2 oder durch die Tastatur. Um die obere Grenze zu definieren, bewegt man ein- 
fach die Markierung auf dem Bildschirm durch Drücken des Joysticks nach oben 
bzw. unten auf die gewünschte Position und drückt den Feuerknopf. Das Setzen der 
unteren Grenze geschieht auf die gleiche Art und Weise. Um die Grenze über die 
Tastatur zu setzen, ist die Markierung mit den CRSR-JIasten steuerbar. Anstatt des 
Feuerknopfes ist nun die RETURNJJAste zu betätigen. Nachdem die untere Grenze 
gesetzt ist, gelangt man automatisch wieder ins Hauptmenü. 


Daraufhin kann man einen Zeichensatz für die Laufschrift laden, indem man wie- 
derum ins Laufschrift-Menü und vonda aus in Menüpunkt 2 geht. Es wird dort 
nach dem Namen des Zeichensatzes gefragt, und nach dessen Eingabe wird dieser 
in den Speicher geladen. Anschließend befindet man sich wieder im Hauptmenü. 
Wenn man auf das Laden eines neuen Zeichensatzes verzichten will bzw. muß, wird 
der sich im Speicher befindende benutzt. . 


Weiterhin kann man die Farben auswählen, in denen die Laufschrift blinken soll. 
Dazu muß man ebenfalls wieder ins Laufschrift-Menü und dort den dritten Menü- 
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punkt wählen. Es wird daraufhin gefragt, in welchen Farbtönen die Laufschrift 
blinken soll. Die Farbtöne Blau, Grün, Rot, Grau und Gelb sind dafür vorgesehen. 
Man muß nun nur noch die entsprechende Taste drücken. 


Um das Demo schöner gestalten zu können, ist die Funktion „Grafik laden‘ ent- 
halten. Die Grafik muß, wie bereits erwähnt, im Koalapainter-Format auf Diskette 
stehen. 


Programmerläuterung 


Beim ersten Menüpunkt wird zuerst ein Text auf den Bildschirm gebracht und 
danach auf einen Tastendruck gewartet. Anschließend wird der Bildschirm gelöscht, 
das Cursorblinken ausgeschaltet und der Zeichensatz auf Großschrift/Grafik ge- 
stellt. Daun wird über die Betriebssystemroutine GETIN jeder Tastendruck mit dem 
Wert für „Fl“ verglichen. Wenn er gleich ist, wird der Bildschirmspeicher in den 
Textspeicher der Laufschrift kopiert, der Zeichensatz wieder auf Groß-/Kleinschrift 
gestellt und ins Hauptmenü gesprungen. Wenn er nicht gleich ist, wird das Zeichen 
auf den Bildschirm geschrieben und GETIN erneut abgefragt. 


Beim zweiten Menüpunkt wird auf ein Untermenü verzweigt und gewartet, bis eins 
angewählt wird. Bei dem Untermenü, in dem der Springbereich festgelegt wird, wer- 
den zwei Sprites auf den Bildschirm gebracht, und danach die Werte von GETIN 
und der Speicherzelle des Joystick-Ports mit den Werten für die Auf- und Abwärts- 
bewegung und dem Verlassen der Eingabe verglichen. Während dieser Zeit ist zu- 
dem noch der Rand mit Hilfe einer Interrupt-Routine ausgeschaltet, damit die Spri- 
tes über die gesamte Bildschirmhöhe zu sehen sind. Die Werte, die durch die 
jeweiligen Spritepositionen definiert sind, werden daraufhin in den Teil, der für das 
Auf- und Abwärtsbewegen der Laufschrift bestimmt ist, geschrieben. Beim zweiten 
Untermenü wird ein Zeichensatz in einen unbenutzten Speicherplatz geladen und 
die ersten 512 Bytes in den Zeichensatzspeicher der Laufschrift kopiert. Dies ist not- 
wendig, da ein Zeichensatz in der Regel länger ist als 512 Bytes, in der Laufschrift 
allerdings nur diese benötigt werden. Ein direktes Laden an die Speicherplatzstelle 
des Laufschriftenzeichensatzes würde so einen Teil des hinter dem Zeichensatz ab- 
gelegten Laufschrifttextes löschen. 


Im dritten Untermenü wird nach den Farbtönen der Laufschrift gefragt, und diese 
danach an die Speicherstelle der Blinkroutine kopiert. 


Das vierte Untermenü springt ohne Änderung von Speicherstellen ins Hauptmenü. 


Im dritten Hauptmenüpunkt wird eine Hires-Grafik an die Speicherstelle $2000 ge- 
laden und wieder ins Hauptmenü verzweigt. 


Beim vierten Punkt wird die Musik an die Speicherstelle $A000 geladen und eben- 
falls wieder ins Hauptmenü gesprungen. 
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Der fünfte Punkt setzt die Musik in Ausgangsposition und die Speicherzelle für das 
Randmuster, das sich beim Ausschalten des Randes ergibt, auf voll. Daraufhin wird 
das Bild angezeigt, indem der Hires-Modus angeschaltet wird und die Bilddaten auf 
den Bildschirm kopiert werden. Im Anschluß wird die Laufschrift gestartet, die wie- 
derum in die Abspielroutine der Musik springt. Zum Schluß wird auf einen Tasten- 
druck gewartet und bei positivem Ergebnis zum Hauptmenü gesprungen. 


Durch den sechsten Menüpunkt wird der Speicher von $0801 bis $cfff auf Diskette 
gespeichert, nachdem eine neue Basiczeile in den Anfang des Speichers geschrieben 
und der Editor gelöscht wurde. Der Computer macht nach dem Speichern einen 
Reset. 


Der siebte Menüpunkt bringt über die OPEN-Routine im Betriebssystem das Direc- 
tory der eingelegten Diskette auf den Bildschirm. 


Der achte Menüpunkt erzeugt einen Reset des Computers, durch einen Sprung zur 
Speicherzelle $fce2. 


Durch die Anwahl des dritten Punktes des Hauptmenüs gelangt man ins Grafik- 
menü. Dort muß nur noch der Name der Grafik ohne das reverse Pik-Zeichen und 
ohne die anderen Parameter angegeben werden. Nachdem die Grafik geladen 
wurde, befindet man sich wieder im Hauptmenü. 


Die Option, eine Musik zu laden, sollte nach Möglichkeit genutzt werden, da das 
Demo dadurch aufgelockert wird. Um dies zu verwirklichen, muß man lediglich 
zum vierten Punkt des Hauptmenüs springen und dort den Namen der Soundmoni- 
tormusik eingeben. Es ist darauf zu achten, daß die Musik wirklich im Soundmoni- 
torformat auf der Diskette steht und maximal 49 Blocks belegt. Eine Soundmoni- 
tormusik ist in der Regel an der Länge von 46 bzw. 49 Blocks zu erkennen und läßt 
sich in Direktmodus, nachdem sie mit load,,Name‘‘8,1 geladen wurde, mit sys 
49152 starten. 


Mit dem fünften Menüpunkt sollte man sich das ganze Demo vor dem Abspeichern 
nochmals ansehen und gegebenenfalls noch Änderungen im Springbereich oder im 
Farbenblinken über die entsprechenden Menüs vornehmen. 


Wenn man mit dem Demo zufrieden ist, ist der 6. Menüpunkt zu wählen. Dadurch 
wird das Demo unter dem Namen „DEMO“ auf Diskette gespeichert. 
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5/4.1.4 


Der Basic-Lader 





Der Basic-Lader des Demo-Maker ist in zwei Teile aufgeteilt und folgendermaßen 
zu starten. 


Zuerst wird der erste geladen bzw. abgetippt und mit „RUN“ gestartet. Dieser gene- 
riert nun den ersten Teil des Demo-Makers auf Diskette. Danach wird mit dem zwei- 
ten Teil des Basic-Laders ebenso verfahren. Auf der Diskette befinden sich nun zwei 
neue Programme mit den Namen „datenl.exe‘‘ und „daten2.exe‘“. Diese muß man, 
wenn der Demo-Maker benutzt werden soll, unbedingt laden. Dies geschieht durch: 





load ““daten1.exe‘‘,8,1 
load "“daten2.exe‘‘,8,1 





Danach kann der Demo-Maker mit „RUN‘‘ gestartet werden. 


rem demo-maker data lader 


2=1@8@@:print"zeile:“,z:open1,8,15,"i@":open2,8,2,"datenl.exe,p,w" 
print#2,chr$(1);chr$(8) 

read z$ 

su=s®:for i=1t067 step2 
w$=nid$(z$,i,2):g0sub208 
su=sutw:print#2,chr$(w);:next 
ws=mid$(2$,865,2):gosub2P@:ps=w 
w$=eright$(2$,2):gosub29@:ps=wr256+ps 
z=z+1 

print z 

if 2=1277 then close2:closel:end 
goto4d 
w=(asc(w$)-48+7%Klasc(n$)>57))*16 
w$=right$lw$,1) 
W=W+rasc(w$)-48+7K(m$>"9") 

return 


datalcd80a029e29323330342020202822a99184dfcQayffädff3f2088402016892Be54c 
data4c2mBBFffffEffEELEfEELLEFgEELEEEEELLELEEELELTELELELELELRLEFERELEELEEFER 
GatafffffftffLEfLfELtEeeEEeeLLEeeEeLEtLeLeLELTELLERELERELERLELERELERELEFEE 
datafffff£f£fLffeetLeLgLEeeLELeeeeLeLLELELELELELEELELELEELELTLERLLERLLEFEE 
dataffffffffLLftLEELgLEFLELELELETELELELEELLLELELELLLLELELLEEELLERELLELLELELELEE 
datafff£fffffffftLeLEEtLELLEEEETPLELLELLELLELLLELELELELLEFEREPEEEEELFETEE 
datafffefffELFffLFfLELLELELEEELEEELELELFELEELFLLELELELEELLLLLERELFELFEREEREFER 
datafffffLfffteteeeeeeeeerfteeeteeteftta2QQaI0RIcfc@bIdfcQcIdfchdgdfcdeee 
datad@f140894da90235ffaß3ea2979894f89788caldf8a2Qfbd572a9d2@dXcaldf7ageß 
data8d1@d@e8829d4008394992294298fe840f4a98c9d27dYe8edV8dufsagff8d15dYädid 
datadda9928417dBa20Bad1285ac84ad8555783281a2993c14238e150Ia90Q8dBedcagfi 
data8dladQa9fa8d12d05869a2928e11dWad12dAdAfba23a8e1l1d48a9218d19dBagf1ddla 
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1812 
1813 
1014 
10815 
1816 
1817 
19818 
1919 
1022 
1021 
1922 
1223 
1024 
1025 
18026 
1827 
1928 
1028 
1830 
1231 
1832 
1833 
1034 
1835 
1236 
1037 
1038 
1039 
12428 
1841 
1842 
1243 
ıma4 
1245 
1046 
1047 
1048 
18049 
1952 
1051 
19052 
1253 
1254 
1055 
1256 
19857 
1058 
19059 
1250 
1961 
1862 
1263 
1264 
1865 
1856 
1987 
1258 
1959 
1272 
1271 
1072 
1973 
1974 
1875 
1878 





L 


datadß20a0994c1fcBa099a23c18Ieo2Af3ec 1Qf3ecQBfIeB2AFIeE1AFZeSPATFIEeA2AFIEe 
data410f3e4WBf3eQ20f3e210f3eQBHf3ec2Be3ec1GedecQVe3e82de3e81fedesflesed2 
datade3e410e3e42Ge3eß20e3eQ 1Qde3eßfde3ec2gd3ec1Pd3ecQddcacacacdch15dBades 
data55a55509983f2@16929008555aQ2@b 1acc999701218029a058554bW15283cQaebacdd 
data92e6ad69290085aca91285ad4cQdBaa210e88edada2044Made1eBaa9198d4aQadrd4 
dataQaa654aB02bA4AQ1AIIcQPFe8c3cdcHcH13KGF2EWLEFFABLEFTEFFABEFABEFLFAHLFIEER 
dataBöfffffsfPRLeEPEPELEEPLLELEELEEFLELEETEEFFELLELEEEFEFLELPELEEEEFELER 
datafffEfffffELLEreEeLPELErLERRFEEELTERELELEEERERELELERFEERRLELELRERPFERFE 
datafffeTfEffePeRPeeeLEeeFLLERELEETELELELLLPEEEERPPLELEEEFELERPLLPRRRFEEFE 
dataffffffEFffeLfEetePeeEELELEELREELEEELFERFREEEREEEREPEPFFEELEERFERLLLEER 
datafffPeffLfPPPELLeLeFeeLEeLELELLLEEFELTEEEFEELRLELPEPEEEEEEFELEEELLL FE 
datafffffPgefEeLEEEeEPEELELLLLEEELELRELLEEEELEEPERELEEPERERERLELEFEETeLER 
datafffEPLEfPPELTERFEETERFFELERERFELELELEELEPETERFERELELELEPERFFEFEEELSR 
datafffeffefPefeeLEREEEEERFFELERFELEEERPLLETEPFEPFFFELERERFERREREEEFERFRR 
datafffEFFPPPLEERFPETELPELLLTEEFELELLLPELLEEPPFPERRLEEEELTERFERRLELEEFER 
GataffFEfPfPLLLEERPELERPERELEEPEEEELELLEELEEEFPTLERRERFEELEELLRELEERELEL 
dataffffffPPPLEFEEEPEELELLLLLEEEELLLERELELEEFEFFELTEELLEERPERFERELPEERLLLER 
GatafffPEPPPFgLEELELELLEREFLLEERFELLELLEFELLEEELFEREEFFLLLEPLLFREEEEEFERR 
GatafffffELEFFRELERRFFELLEFREPELLEEEELEERELFEREPERERFPEREELLEPFFEREREEEE 
dataff£fffPPrgeFeeELLEEeeREEEEEPPLELLLLEEFELELELLFEPPERFELLELTERFERRRREEE 
GatafffffLPPLEELPREELLERPEELELPLELFELEEFEELELTSLELLPLLETERLETEEELELEFELEEER 
dataffEPfPEPFFPLEFELLLLEREFFEELEELEEFLELELLELLLELFEREFEREETELPRPEEFRLEER 
datafffffeetePeeeeeEeEELLPEELLELLEFELLLELPLELLELPEEFEEFEFEFEEERPLEFEELELF 
dataffffPfeEffPfeFgeEFeeEELeREEELLEREELEREREEFLEEFPRERRLEEEEREPRERELFEEEER 
datafffPfPPFFePEFELEERPeLEFPPLEEELEFFEEEREREEEEEFPETFPELEFETLEFLEEPELEEET 
datafffPffEFFFPLEELELEFELEFPRELELLLESLELLLLELLEEEFEETEELTLEPELRELEEELLERF 
GatafffPPPPPFPLEPPLEFELLEFFFLLERLELLLLELSLLLELTEEFFEEFLPLELTPERTEEFFEERR 
GatafffffELEfPLeLEPeeEeEEEEFeLELLREEELLLELLLEELEREPFLEFEEEFPLERLLEELFEREFR 
dataffffPfEfgPPFELEEeFELEFLELELLLEELEELPELEFFEEFPFLFEERERTFPELFTEELELEELR 
GatafffffPfPPFPPeLELELPEELELPEEFELELEELEEPELEEELEFEPFFPETELTELELTREELELFER 
dataff£FPLFLLFLLLEEEEPPEELELPEEEELLELLELELLLLEFFLEERELTELEFEFELELLLLLLER 
datafffPfEFPPLseteELeFeEELEELLEREELLELFEEPFEFEEELERERELELLPRFRFLELFPPFFFE 
datseffefeeeePePePPeLeereeePEReeePeeeereeeTeeePPerEereePPPeeeeerrPerPPer er 
datafffffffffPPffELLEEPEEFeRLEEFLLFELLEEFEEFEPFEEFEEEELERPELERFPRRFERERF 
dataffFfffPfEPEFPLLEEPREPFPPLERPLEELLEPEELTERPELFTPLEEELLELTLEFEFPPeLLERR 
datafffffPePEEPELFELLFEELEPEEEEELLELELLEEFFELTERFEELEPELEFFELEFEFLELLRRE 
datafeffPPPPLPEPPEPeELLERFELLEELLEPELEELEREPFELEEEERLLELTLEELELLERFEEFERLERR 
datafffffefEfPeELEfteePeePELEEELELEFLLEFFEEFPREFEFPERELELTERFEERFPRRPERE 
datafffffffERFeELgEELETERERETPEELLPEFELFREREEEPREEEELELEERLELERFPELRERPPLR 
GatafffPPfERERPLEETEEFELFFFEEEPPLELEFEEELPFLEELFEEPLREEELLPLELEFFEFFLRERE 
GataffPPffEPLELSEEtELEEREEPPEEEELTERELLLEFFPLPLELFELTELEEFREFDLERFERERERR 
datafffffELPEgfESLEELTELERELEEEELELFEEELEFFEELEEEEELFLEREREFELLPRFEFEFER 
GatafffPEfFLPEeFeeLEFELLEEPELEELEESELEFELEEFEEREFFEFPLREPELFERELRFEREFFLR 
dataffffPePLfEfeELEfFEFLEFERFELELEELELPPELEELEPLFEELLEFERFEELLPLLEFEFFPFE 
datafffPffPPePfEPPeELFePEEPRELELLLEEELEELEFPFFLEEFFLLPLEEEFLELLLEFEEFEFER 
datafffffffPERLEEEREEETERELELLELELLEELELERFFELLEERFLLTEERERELELLERFRFFFE 
dataffPfPPLTeTPeTeeEeeeReLeeTPELEEEFRELPELTEFETEEEFFELELFEEREEPLEFELERER 
GatafffFff£FFe£fEFEPEEPeLEEFLEFEFLEEFLELEEFELERFFFFREEERFEERELLPFERELLLERF 
dataffffffffffeftf3e73777770713e001c3e737£737373087e73737873737e003E7370 
data7079733e80707873737378709@7£78707070707f007278787cT7070 7008373707773 
data733e007373737f7373730@3eic1c1c1c1c3eQ@1fYeBeßede783000737870787C78723 
data027070707079797f0963777f666363830073767f7£777373803e73737273733e007e 
data73737e797972883e7237373733e0?987e737372707873883e723703e0 733e827flcie 
datale1c1c100873723737373733e8@73737373733e1cQ@8383836h7F7 0273 1038 
data7373887373733e1c1c10097f979810.38797fQ03e3& & 3eAANE1I37E3871fe 
dataß?3edeleBßeled BROELCIETFIc1c1e1oAML1BIRTEFTFIELENDIRETRAAADRERBARA LE 
datalclc1c2@@@1e 73722200200AN97373ff73f773730@1c3f783807721c297173Be 
datalc387353093e7 c67733f04878e 1cROBWAAGENARe 1:.3338381cQeßB3810Qeßede 
data 23800007 33eff3e730090821c1c7f101c022220000092221c1c382000907FRA2008 
dataß00200202808101020000397021c3879003e73777673733e081o1c3elclc1c7fßß3e 
data73070e38787f003e73971e07733200970f 1f737F0707207f797E07077332.003e7370 
data7e73733e897f73Qe1c1c1c1c983e73733e73733e.903273733797733e09A2901c20Ra 
datalcQ9200290100@901c1c389f1c3879381cQfL0202977087FRRB22W7810Qeß7Be1c78 
data023e73079e10021c00009209229209000022922L0L00EI2LAHHRDLEDLAAAAADLENEA 
data200022900092090020292022200922022202290020LLALILEDDDLABLANALDEADDALD 
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4.1 Demo-Maker Teil 5: Musterprogramme 


18 rem demo-maker data lader2 





39 2-1029%:print"zeile:" ,‚z:cpen1,8,15,"i@":open2,8,2,"daten2.exe,p,w" 

35 print#2,chr$(128);chr$(76); 

48 read 2$ 

52 su=@:for i=1t067 step2 

88 w$=mid$(28,1,2):gosub282 

72 su=sutw:print#2,chr$(w);:next 

82 w$=mid$(2$,65,2):g0sub209:ps=w 

98 w$eright$(2$,2):gosub290:ps=wr256+ps 

112 z=z+1 

128 print z 

139 if z=1988 then close2:closel:end 

148 goto48 

208 w=(asc(w$)-48+7*klasc(w$)>57))*16 

210 w$=right$(w$,1) 

220 w=wrasc(w$)-48+7%K(w$>"9") 

23@ return R 

240 : 

1808 dataa93b8d11d2a9008420d23909842140a9188d1542a91d8d18dda2YPhd44ZFFIARHYAbd 
1001 data4042940085bd40419402066428429de8266428439402A486428449d09A96d 28459422 
1882 datadabd28469498dbe8ddcdag@18dQfcVasffEdff3f622080402018092Qe54cdcdf4cad 
1093 data714da2909427d0e8eQ@8dAfBese64cade54.c9894285a9718deßdcdch4d4deedidder 
1004 datad3dBeeW5dgeed7d4ßeedIddeedbdBeedddbeedfddadd1dAcI98Af2234c354478a94A8d 
1085 datad24da94d8403445840354da2P8adff88ddrfdcaddf86ßced1d2ceA3ddcedäd2ced7dd 
1006 dataceß9d2ceßbd@cedddßcedfddad2140c958f20340394478a904842Q244a94484034458 
1887 data4c394d48068698969eBeßede23930230321910101032303030eQededea222bd28579492 
1098 dataßce8eß8ßdAf5a200a9300942022e8ddfdeedc4dadIcddc948dQeea9208dIc4da20dhd 
1093 data@21Q940290649811949Q81eBdBf1a94c8d1fcda9318d22cQageadd21cA221be5agde 
12190 data8d86028291a2@c29@ce5a91aaß53201eaba9178418d40a9208422498421402Be4ffcd 
1011 data31fQ@1fc932f@1ec933f014c934f81cc935f91bc938fYW1ac937FB190c938FB184cf24d 
1012 data4c304e40884e40aa504c12514c6e514002514c98524c17532@1be5a9e9aR532@1eab 
1213 dataa99885c6a5c6c901d@fa221be5a90185cca9158d18d02We4fffYfbcI85fnab2pdztt 
1014 data4c5@4ea29@bd9@9949d9912bd29059498 136420889402 146d2RR79I42215e8d9e5a9ni 
1215 data85cca9178d18d@4cef4d2@1be5a9cHaß54281eab2Be4ffc931F00fc932fABec933fH 
1018 dataßdc934f909c4c924e40994 fäch44e4c214f4ccf4d201beba99eaß582B1eabapld2Ack 
1917 dataff992e580884020811f297c9@ddßef4ceB4eadaeaß55201eaba9Q985chaächcdd1df 
1218 datafa4ch44ea909992e.5829008486922a901a208a09922baffa5Q2a22eaß5829hdffa9n® 
1919 dataa220a09820d5f fa22%bd929994A212bA2991949911e8dff14ccf4d2%1be5a92faR56 
1022 data2@1eab2Be4ffc931f017c932f0230933f02fc934fB3pc935f947.H36f21A4c2b4fa2 
1021 dataß&bda85794714de8eß1842Ff54ccf4da2ß@bdicl573d714deBeß18d9f54ccf4da22dbd 
1022 datad8579d714de8eß18d9f54ccf4da230bdf0579d714dedeß18ddFf54ccf4da2g@bdR858 
1023 data9d714de8e@1849f54ccf4d478a993841423a952841503a90Q8dYedcay9flädiaddagfa 
1024 data8d12d258201be5a931a0552@1eaba98%85c635c6c9Y1d9Ffaa9938d1540a93W8df8n7 
1025 dataa9318df997a9a08d409d98492dBad5c4dBd2 1dBad2@4d3dN3AWa991842740834234422 
1026 datalbe5a912a856221eabad29d4cc97ef@240.974fB29c98FFA2e2Be4ffc391fB15c911fR 
1827 datalac98dfß1fa2Q4auff88d9fdcadßf84ckd4fcesc4ddceR1dfß4cib5ßeescddeef1df4r 
1928 datalb5@a2ffaßff8sdQfdcaddf8221be5a9223256201eabad#Bddcc97efB24c974f229c9 
10239 data6ffß2e2Qe4ffc991fQ15cY911fYd1ac9B@df@1fa2B4anffssdffdcadffd4cdes5ßce2Q4d 
1030 dataced3dß4c6c5Bee294dee834840c6059a9998d415d@4ccf4da2928e11dBad12dAdAfbag 
1931 datala8d11d229918419d@4c31ea291be5a946a25620 1eaba9@2b92958992e5808c29740 
1032 dataf52dcfff992e58c88482c011f987c92dddef4ceI5ßa9aeraß5ß2ßleaba90985chasch 
1933 datac9@1dAfa4caa5Qa92283992e58a92QW848602a991a228a1B92Xhaffa5f2a22eaN582d 
1034 databdffa908a229a0202B0d5ffAccf4d281be5a9caaß552Q1eabaßR920cfff992e58c884 
1835 dataß2cß11F007c9@dddef4c4651a9aead55281eaba98985cBasc6cI@1ddfad4c1251a902 
1036 data992e5829828d8622a921a298a09020baffa5ß2a22eaQ5820hb4ffa9@2a22dadad2dd5 
1837 dataff4ccf4das@18ddfc@asffsdff3f22884c221609a909850629e54ca5c6c921dAf728 
1838 data18e5a90884184478a93318d1423a9ea8d152Ia90285c5a99185cca91b8d11dWa95284 
1839 data12dBda92f85ffa9218ddedcagfd8d1adß584ccf4d281be5a9e3aß56201eaba9dß8ä5ch 
1942 dataa5c6c9321dPfaa93284989829358443983934849a28a922a2R09A1EBAEIIRBAIIIBAAE 
1041 data9d894b9d204e 94284 f IdAR5QeBddegadf4dc232f29332842458a900859420e7Fffa298 
1942 dataad%120baffa904a228205820bdffa9N1855fa9088356Da9y5fazffaßef8ßaeddtafaabs 
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1943 dataß885c1b58185c2398185b92245Ff3aSba2ddcedaSh920b Jedaßfd2ddethasac2ddded 
1044 dataa5ad2@dded2Qd1fchW147822308691b1aca23688915822dded2Ydhfcdße729feed24 
1845 datab33@11a5ba2@@ceda5b929efQ9e222b9ed28feed18a93735@12Qe2fc2Q01be5a9@2a2 
1046 dataß8aß2920baffa2272057a90122bd4ff2BcQ@ffa2022Bc6fFf2Qcfffa59@d@Ve2derfffas 
1247 datac6fß23ad77820993d421520ccffa90229c3ffa9@d2Bd2Fff2Qe4Fff@fb4ccf4dagnges 
1248 datac68d778220cfff2Dcffff@dca9%d2Qd2ffag1d2242ff2@d2ff2Rcfffaa2dckff2Bcd 
1249 databda92828d2ff28cffffQbBa499d2b72242ff4cQ8534ce2fcc4454d4f20rd414b4552 
1058 data28d631223124042922020222828290202028432920082e20434348524f455445522038 
1051 data2f3839048404202923124004155485343498524948545445585429045494e47454245de 
1052 data2@d9d202932240c41554653434852494654290d454e5545942420203324c 752414649 
1253 data4b204c4144454e0d842929342d0cd5553494b29404144454e0d0d2020352dc4454dAf 
1054 data205a454947454e0d2d42020382dc445444f2053504549434845524e0dPA20290372dc4 
1855 datad9524543544f525920524549474542e0d042920382d054e44450d02Adcd4954284449 
1056 data4553454420054449544752284b4f454e4e454e204349452944454eQdd44558542c 22 
1057 data444552294e41434848455220494e20@49485245442904454d4f29414c53@dcc415546 
1058 data53434P5249465420455253434845494e454e20534f4c40202053434852454942454e 
1059 data2edde14d28054e44452044455329444558544553294455455353454e2904349452945 
1869 data494e202740272004454948474542454e2e22d6455240415353454e2044455320c544 
1061 data49544f52532044555243489d44449452@4441535445282706312728212d42d9d2@d4c1 
1062 datad3d405098dcc41554653434852494654290d454e5545040429283124435052494e47 
1063 data424552454943482946455354404547454e0d24202932244a4549434853415458294c 
1064 data4144454004042020332408415242454e4240494e4b454e204 145484445524 eBdWd2B 
1065 data22342d0c841555054290d454e5545090445442844454e20435052494e474245524549 
1268 data434828464553545855404547454e2c8d4d5545535345462043494520444954200849 
1067 data4c46452044455320024f5953544943465391494e20d04f525432204 444552204445 
1268 data4e2903d42d3422944415354454e204449459d4f424552452904258572e204449452055 
1069 datade54455245200752454e5a4520444546494e494552454e2eQdda554d28c64553544c 
1978 data454745462044525545434b454e2043494520424954544520444945Bdd2cäbd4däd2ce 
1071 data2dd441535445204f4445522044454e2906455545524b4e4759046260d9d2dd4415354 
1072 data45020dcf42455245280752454e5a45209d454e54455245200752454e5545902dc94e 
1973 data205745404348454e2806415242544f454e454e290534f4c4c2044494528c04155482d 
1274 datadd534348524945854224240494e4b454e203f242d8d312dc2404155040d322dc75255 
1875 data454e0494332dd24f540d@4342d075241552d2d352dc74540420484362dc841555954 
1076 data4d454e55459099dda454943485341545a4e414d453300Bdce414d4520495354205a55 
10977 data284c414e47219d9d2d0dd441535445090dcd5553494b4ed14d453a000dc752414849 
1978 datadb4e414d453a092@dc44153220445444f2957495244204 1554820444 1535445484452 
1979 data55434b@d0d41554820044953464554544520474553504 5494348455254 2e 20@dAdAd 
1280 dataßdd44153544500242220290022904288082000229220ERAORLLALBLHHLDLRHLAABER 
1281 data9gggY2narfffff2Q 1909003800997 cB20Rfe0B92 120820 100020 1200200020900928 
1082 data22422090002000922080200200922 190000 120202 189000 fe030R7cORLHIELRBE 1228 
1083 dataffffff900002009002902920022929000202RIR2BEBLOLLAULALERRLERILALRATLER 
19084 dataD6@606@68BeQedenen3030393210101901030 3238 30eBedede05450505039393430dAd 
1085 data9d0d21910191949424949393930 3040404049 20202020aQadadad 121019 1Qaladada 
1986 dataß20292820b@bEbBbPcAcAcMcOfAFAFHFWIAIDLHIDFAFAFAFHCHCBCBCHIKIAIKIBERE 
1287 data080307070797019010101079707974806808983750494 32037 20004445444 00900998 
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sprites: 
sp: 
sirg! 
sirg2: 
als: 
eursorf: 
strout:! 
eursor! 
getin: 
bsout: 
els2: 
reset: 
fpas: 
fnpas: 
open: 
chkin:! 
basin: 
ihb: 
elrch: 
olose: 
load: 
elall:! 
si: 





basic: 


dsta: 


dstal: 


bfree: 


loopa: 


sceroll: 









.by 


lda 
sta 
lda 
sta 
sr 
sr 
Jjer 
Jnp 


‚db 


1dx 
lda 
sta 
sta 
sta 
sta 
inx 
bne 
Jmp 
ida 


sta 
ldy 





501 
Q:demo naker" 





$ffce 
$ffo3 
$ffdS 
$ffe7 
$f3d5 
$eddc 
$edb9 
$fbSe 
$eddd 
$ecdl 
$fodb 
$edfe 


$2c,$09,$0a,$00,$9e,$20,$32,$33,$3390,$34,0,0,0,90,0 


#5Q1 
$cQRf 
#eeE 
SIErE 
spic 
seroll 
1 
dstail 





$da 


#322 
#520 
mem1+$195,x 
mem1+$295,x 
mem1+$395,x 
mem1+$495,x 


loopa 
starti 
#802 


ger 
#$3e 


Music Neustart 


Randmuster voll 
Bild zeigen 
Laufschrift starten 
Spriteblinken 


Scrollbereich loeschen 


; Editor starten 
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xxl: tya 


xx2! 





xx: sta mem1+259,x 
men1+$39 
mem1+$439, 





xx3 
#$Bc 


xxd: a sp+t#2T.y 





#08 
f 





lda #20 





idy #<irg 
ldx #>irg 
sty $0314 
stx $98315 
lda #02 

sta $dceße 
lda #$f1 

sta $d@la 
lda #$fa 
sta $d®12 


irg: ldx #$802 
stx $d@11 

xx5: lda $d@12 
bne xx5 
ldx #$3a 
stx $d@11 
Ida #21 
sta $4219 
lda #$f1 
sta $d@la 
jsr ntext 
imp sirg2 








mtext: ldy #99 
ldx #$3c 





Spriteblocks 


Spritepositionen festlegen 





es halten 
1 X Richtung verer 





ern 





Y Richtung normal 





Serolltext Adressen in ac +ad 


Interrupt setzen 
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xxB: 
memi+855b,x 
memi+ 
mem1+$553,x 
memi+$S1b,x 
memi+$5la,x 
memi+$519,x 
menir$4ddb,x 
memi+$4dda,x 
meml+$4d9,x 
memi+$49b,x 
nem1+$49a,x 
mem1+$499,x 
mem1+$45b,x 
memi+$4Sa.x 
memi1+$459,x 
memi+$41b,x 
nemi+r$4la,x 
memi1+$419,x 
memi+$3db,x 
menl+$3da,x 
mem1+$3d9,x 
menm1+$33b,x 
meml+239a,x 
mem1+$23393,x 
mem1+$35b,x 
meml+$35a,x 
mem1+$3593,x 








#$15 
xx6 ; Text scrollen 
$55 
#55 
#308 
xx7 








axT: lda #22 
sta 855 
ldy #22 
xx12: lda ($ac),y 
emp #292 
beq xx9 
celc 
ası 
ası 
asl 
sta $54 
bos xxi@ 
jsr xx11l 
xx13: ine $ac 
bne xx8 
inc $ad 
xxB: rts 


xx9: lda #<stext 
sta $ac 
lda #>stext 
sta $ad ; Textadressen in ac + ad 
JImp xx12 
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xx1@: ldx #>zei ; Zeichensatzadresse +1 zum Auslesen 
inx : festlegen 
stx xa+t6 
jsr xa 
imp xx13 
xx11: lda #>zei ; Zeichensatzadresse festlegen 
sta xa+6 
Inp xa 


xa! ldx $54 
ldy #82 
xal: lda zei,x ; Zeichensatz auslesen 
sta mem1+$559,y 
inx 
iny 
iny 
iny 
cpy #$18 
bne xal 
rts 


sposl: ‚by $18,8ff,$48,$ff,878,$ff,$a8,$ff 
‚by $d8,$ff,308,$Ff,$38,$ff,$68,$Fff 


menl: 
hht: .db 8599 


zei: ‚by $3e,$73,877,$77,370,$71,$3e,$0@ 

‚by $10,$3e,$73,$7£,$73,$73,$73,$00 

.by $7e,$73,$373,$78e,$73,$73,$37e,$08 

‚by 83e,$73,579,8702,$70,373,$3e,$2@ 

.by 870,878,873,873,$73,876,$7c ,$0@ 

.by 87f,$70,$79,$70,$702,$70,$7f,308 

.by 87f,$70,$70,870,$70,$870,$70,502 

.by $3e,873,87@,877,873,$73,$3e ,308 

.by $73,873,873,$87£,873,$73,873,$00 

‚by $3e,$1o,$1c,$1c,$ic,$1c,$3e ,$00 

.by $1f,$0e,$0e,$Ge,$30e,$76,$30,$00 

.by 873,$78,870,$78,870,$76,873.308 

.by $72,372,872,$372,5790,$370,$7f.,500 

‚by 863,$77,87f,366,363,$63,852,320 

.by $73,$7b6,87£,$7£,877,$73,$873,309 

‚by $3e,873,873,873,$723,873,$3e, 390 

.by $7e,$873,$73,$7e,$70,370,37@,3090 

‚by $3e,373,873,$73,873,$3e ,$Of,$00 

.by $7e,$73,873,$7e,$70.$76,$73,30@ 

‚by $3e,873,370,$3e,207.$73,$3e,390 

$7f,$10,$i1c,$1c,$1c,$10,$10,$02 

‚by $73,$73,$73,873,873,873,83 22 

‚by 573,$73,873,373.873,83e,$10,$0@ 

.by $63,863,$63,$56b,$7f,$77,8 28 

‚by 3,573,$3e,$10,$83e,$73,$73,$08 

‚by 873,$73,$373,833e,$1c,$1c.$1c,32@ 

.by $7£,807,30e,$310,838,870,37f,$32@ 

.by $3e2,$38,$838,$38.538,$38,$3e,$00@ 

‚by $0e,$19,838,87e,838,871,$fe ,$22 

.by $3e,$50e,$0e,80e,$0e,$Be,$3e,$308 

‚by $0Q,$10,$3e,$78,$1c,$1e,$l1c,$1c 

‚by 809,$5198,$8393,$7£,$7f,$38,$18,$2@ 

‚by $00,$20,3929,309,320,328,$22,$3208 
‚by $i10,$1c,$1c0.$10.$99,$320,31c0,$309 . 
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stext: 
hh: 
spie: 


yl: 


73,573,873,380.302,$502.500.,300 


$73,$73.$Ef,873,$ff,273,$573,50@ 
Slc.$83f,$78,83e .$07,87e.,$10,$0% 
$71,873,$0e.,$10,838,$73.863,300 





$3e ,$373.$3e ,$830 .867,873,33f,320 
307,308 ,510,$90.,200,309,390,$00 
Be .$10,839.838,838,$1c,$Be,$00 
533,810 ,$0e,$0e,$Qe,$1c,$38,$02 
500 ,$73,$38,$8F.$3=2,573,300, 382 
08 ,$10,810,87f,$10.$ic,$00,$02 
$00 .,$520,300.,500.,302,$10,$1c,$38 
300,300 ,200,37f.,300,302,302,300 


29,300 ,$500.,529,529,$10,$10,$08 
300 ,343,897,808,$1c,338,378,880 
$3e,873.$77.876,$873,873.$53e,$0@ 
$10,$1c,$30 ,$1c,$10,$10,$7f,$02 
32,873,327,$0e,833,$72,$7f .302 
$3e ,$73,$07,$1e,$07,$73,$3e ,300 
07,508 ,51F,873,87£,$307,327,$80 
7£,370,$7e,$07,3@7,.%73,$3e,500 
$3e,$73,$70,378,873,873,$3= ,300 
$7f.873,$0e,$10,$1c,$10,$10,$00 
$3e,$73,873,$3e,872,$73,$3e,$20 
838 ,873,873,$3f ,807,373,$3e ,$00 
$00.,509,$10,$20.,590,$10.,30290,$20 
£09,309,$10,302,300,$10,$1c,838 
$0f,$10,$38,$70,338,$10,$2f,$28 
20,300 ,37f,300,37f,$20,$00 ,500 
$78,$10.$0e,807,$0e,$10,$78,$00 
$3e,$73,$07,$0e,$1c,$328,$1c,$0% 








$3a80 
#53b 
$d011 
#90 
$d222 
#20 
84921 : 
#$18 

$d216 

#B1d 

$d018 B 
#$02 

#3f48,x 

20429 ,x 

84048 ,x 

80508,x 

$4140,x 

32600 ,x 

$4228,x 

62688,x 

$4328,x 

$d802,x 

34428,x 

$d4990 ,x 

$4528,x 

$daßE,x 

84628,x 

$dbBB,x 


Hires 
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Bildschirmfarben schwarz 


einschalten 
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bre yl ; Bilddaten auf Bildschirm 
lda #21 

sta $cQQf 

Ida #$ff 

sta $3Fff 


spic 

scroll 

cc1 

Jup yZ 

lda coyele 

ldx #509 

co2: sta spt$27,x : Spritefarben setzen 








cex #528 
bne cc2 
ine eel+1 
lda cel+i 
emp #xceeycle+24 
bne cc3 
lda #<ccoycle 
sta ccl+1 
203: JImp ccd 


sc4: ine $d091 
inc $d283 
ine $d225 
inc $d207 
ine $d029 
ine $d2Rk 
ine $d2@d 
inc $d22f 
lda $4001 

ande: cmp #389 ; 8.Positinnen runter 
bea cr 
Jmp cc6 





ces: 
#<cc7 
ceo3+1 
#>c007 
e0o3+2 











2c9 ; Verzoegerungsschleife 





of: dec £dQ21 
dec 34293 
dee 84985 
dec $4987 
dec $d229 
dec $ddRb 
dec $dB2d 
dec $deo2f 
ida $40@1 . 
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col®: 


el: 


e2: 


start: 


loop1: 


idx 
lda 
sta 
inx 
PX 
bne 
ldx 
lda 
sta 
inx 
bne 
inc 
lda 
camp 
bne 
Ida 
sta 
ldx 
lda 
sta 
lda 
sta 
inx 
bne 
lda 
sta 
lda 
sta 
lda 
sta 
3st 
Ida 
sta 
idx 
Idy 
Jjsr 
ida 
ldy 
jsr 
lda 
sta 
lda 
sta 
sta 


jsr 
emp 
beq 


#350 
cec1d 
coR 


#<co4 
ec3+1 
#>ond 


cc3+2 





#90 
sprite,x 
$2c2Q,x 


#580 

cd 

#500 
#820 
32099 ,x 


ci 

cl+4 
cl+4 
Hg48 

ci 

#320 
cl+4 
#608 
zei,x 
$9000,x 
zeit$109,x 
$910@,x 


c2 
#$4c 
$oQ1f 
#831 
$c029 
#$ea 
80221 
cls 
#12 
sursorf 
#01 
#12 
cursor 
#<text 
# text 
strout 
#$17 
$d218 
#09 
$9928 
$d221 


getin 
#831 
eins 





; S.Positionen rauf 





far 
m 

2) 
ri 
re 
n 
” 


Sprites definieren 


® 


; Bitmap loeschen 


; Zeichensatz nach $909@ kopieren 


Bildschirm loeschen 


; Cursorfarbe setzen 
; Zeile 

; Spalte 

; Cursor setzen 


; Bildschirmfarben = schwarz 


hole Tastatureingabe 
vergleiche mit 1 
; wenn ja, springe zu eins “ 
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#832 “ ; vergleiche mit 2 
zwei ; wenn ja, springe 
#533 ; vergleiche mit 3 
drei ; wenn ja, springe 
#834 ; vergleiche mit 4 
vier ; wenn ja, springe 
#835 ; vergleiche mit 5 
fuenf ;‚ wenn ja, springe 
#836 : vergleiche mit & 
sechs ; wenn ja, springe 
#837 ; vergleiche mit 7 
sieben ; wenn ja, springe 
#538 ; vergleiche mit & 
acht ; wenn ja, springe 
loopl 


eins: einsa ; springe zu einsa 
zwei zweia ; springe zu zweia 
drei: j dreia ; springe zu dreia 
vier: ) viera ; springe zu viera 
fuenf: j fuenfa ; springe zu fuenfa 
sechs: i sechsa ; springe zu sechsa 
sieben: ] siebena ; springe zu siebena 
acht: achta ; springe zu achta 





einsa: i) els ; loesche Bildschirm 
#<textz 
#rtext2 
strout 
#29 
$c6 
$c68 
#01 
loop2 ; auf Tastendruck warten 
els ; Bildschirm loeschen 
#01 
$cc ; Cursor aus 
#$15 . 
$d818 ; Zeichsatz Gross/Grafik 
getin 
loop3 
#$85 ; vergleiche Tastendruck mit Fi 
tstop ; wenn Fi, springe zu tstop 
bsout ; schreibe Zeichen auf Bildschirm 
loop3 


tstop: #300 

tstopi: $2490,x 
stext,x 
32582 ,x 
stext+$199,x 
$0609,x 
stext+$229,x 
$0708,x 
stext+$302,x 


tstopi ; Serolltext sichern 

#Q1l 

$cc 

#817 

$d218 ; Zeichensatz Gross/Klein 
start 
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els ; Bildschirm loeschen 
#<text3 
#>text3 
strout 
getin 
#831 
zweic 
#832 
zweid 
#833 
zweie 
#834 
zweif ; Tastendruck auswerten 
zweib 
zweic: zweics 
zweid: zweids 
zweie:! zweies 
zweif: start 


zweids: cls 
#<textd 
#>textd 
strout 
#300 
basin 
buffer,y ; Zeichensatzname holen + speicherern 


$02 
#pil 
zweidi 
RED 
zweid2 
zweid3 
‘zweidl: #<text9 
#rtextg 
strout 
#802 
$c6 
$c6 
#801 
zweid4 ; auf Tastendruck warten 
zweids 
zweid3: #209 
! buffer,y 
#508 
eursorf ;‚ Cursorfarbe schwarz 
#$21 
#828 
#20 
fpas ; File Parameter setzen 
$82 
#<buffer 
#>buffer 
fnpas ; Filename Parameter setzen 
#600 
#500 
#830 
load ; File laden 
#$DO 
zweid5: $3082 ,x 
zei,x 
$91988,x 
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zweies: 


5 
z 
6) 
vi 
® 
- 


zweie2:! 


zweieT?: 
zweie3: 





zweied! 


zweies: 


zweie6: 


zweios: 





sta 
inx 
bne 
JImp 


jsr 
lda 
ldy 
isr 
jsr 
cnp 
beq 
cmp 
beq 
cmp 
beq 
cmp 
beg 
emp 
beq 
emp 
beq 
Jmp 
ldx 
lda 
sta 
inx 
cpx 
bne 
Imp 
ldx 
Ida 
sta 
inx 
SPx 
bne 
jmp 
ldx 
lda 
sta 
inx 
px 
bne 
Imp 
idx 
lda 
sta 
inx 
cpx 
bne 
Jmp 
ldx 
lda 
sta 
inx 
cpx 
bne 
Jnp 


sei 
lda 
sta 


zei+$198,x 


zweidS 
start 


els 
#<text7 
#>text7 
strout 
getin 
#831 
zweie2 
#832 
zweie3 
#833 
zweied 
#834 
zweies 
#835 
zweieß 
#336 
zweie? 
zweiel 
#300 
farbel,x 
ccycle,x 


#$18 
zweie2+2 
start 
#300 
farbe2,x 
coyole,x 


#518 
zweie3st+tz 
start 
#800 
farbe3,x 
coycle,x 


#$18 
zweie4+2 
start 
#508 
farbe4d,x 
ecyele,x 


#818 
zweieästz 
start 
#502 
farbeä,x 
cecycle,x 


#$15 
zweieß+2 
start 


#<zweicl 
$2314 


; ZS kopieren 


; Farben auswaehlen 


; Farben kopieren 
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lda #>zweici 
sta $8315 
lda #22 
sta $de@de 
lda #$f1 
sta $d@la 
lda #$fa 
sta $de12 
celi 
j3sr els 
lda #<text4 
ldy #>textd 
jSsr strout 
lda #$02 
sta $cB 
zweich: lda $c6 
cnp #$01 
bne zweicd 
lda #$83 
sta spr#iH 
lda #$3@ 
sta sprites 
lda #$31 
sta sprites+1 
lda #$ad 
sta sp 
sta spt2 
lda cc7a+l 
sta sp+1 
lda cc4da+i 
sta sp+3 
ida #$21 
sta 5p+$27 
sta sp+$28 
jsr els 
lda #<textS 
ldy #>text5 
jsr strout 
zweic3! lda $dc®d 
cnp #$7e 
beq zweic6 
cmp #$7d 
beq zweic? 
emp #$6f 
beqg zweicd 
äsr getin 
cmp #$91 
beg zweic6 
onp #$11 
beq zweic”? 
cnp #$2d 
beq zweicB 
zweic9:! ldx #504 
zweies:! ldy #$ff 
zweicd: dey 
bne zweicd4 
dex 
bne zweics 
Jmp zweic3 
zweich: dec cc7a+1 
dec sp+1 
jmp zweic9 
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Rand ausschalten 


:;Sprites setzen 


Joystick auswerten 


Tastatur auswerten 
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zweic?: ine cc7a+ti 
inc sp+1 
jmp zweicg 
zweic: ldx #Hff 
zweiclß: ldy #$ff 
zweicll: dey 
bne zweicil 
dex 
bne zweic1® 
jsr ols 
zweicl2: lda #<text6 
ldy #>text6 
jSsr strout 
zweic1S: lda $dc9® 
cmp #$7e 
beq zweic16 
emp #$7d 
beg zweic17 
emp #$5f 
beq zweiciß ; J. auswerten 
jSsr getin 
cmp #E31 
beq zweic16 
cenp #811 
beg zweic1?7 
cmp #$0d 
beq zweiol8 ; T. auswerten 
zweic19: ldx #804 
zweiold: ldy #$ff 
zweic13: dey 
bne zweic13 
dex 
bne zweici4 
jump zweici5 
zweioi6: dee cc4a+l 
dee sp+3 
Imp zweicig 
zweicl?: ine cceda+1 
inc sp+3 
Imp zweic19 
zweiciß: lda #$02 
sta sp+$15 
JInp start 
zweici: ldx #$282 
stx $deıll 
zweic2: lda $d8@12 
bne zweic2 
lda #$la 
sta $d211 
lda #21 
sta $d819 
Jmp sirg 
jsr cls 
lda #<textil 
ldy #>textil 
jsr strout 
idy #320 
ida bda,y 
sta buffer,y 


#397 
dreib 
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fuenfa: 


fuenfb: 


sechsa: 


sechsb: 








lda 
sta 
lda 
sta 
lda 
sta 
lda 
sta 
lda 
sta 
lda 
sta 
eli 
Imp 


jsr 
lda 
idy 
jsr 
lda 
sta 
lda 


cmp 
bne 








#309 
Gursorf 
#+21 
#308 
#3g2 
fpas 

$022 
#<buffer 
#>buffer 
fnpas 
#302 
#520 
#$aQ 
load 
start 





Musik laden 


#21 
$cdaf 
Hhef 
HIfff 
spic 
seroll ; 
#02 
$c6 
ccl 
to6 
#01 
fuenfb 
els2 
#208 
$d418 


Deno zeigen 


#831 
80314 
#$ea 
$0@315 ; 
#22 
$c6 
#01 
$ec 
#$1b 
$d011 
#852 
$d212 
#28 
gef 
#01 
$dede 
#$f0 
$d2la 


IRQ normal weiter 


start 


els 
#<texti2 
#>texti12 
strout 
#528 

$c6 

$c6 

#01 
sechsb 
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r— 
dreie: jsr 
sta 
ıiny 
sty 
cpy 
beg 
2mp 
bne 
Jmp 
dreid: lda 
ldy 
Jsr 
Ida 
sta 
dreie: lda 
greif: 
viera: 
vieral:! 
sty 
copy 
Fieyn 
yievas 
vierad: 








basin 
buffer,y 


+02 
#$11 
dreid 
#$Qd 
dreico 
dreif 
#<text9 
#>textd 
strout 
#420 
$c6 

8c6 
#$01 
dreie 
dreia 
#823 


buffer ,y 
#502 
eursorf 
HEOL 
#308 
#302 
fpas 

$02 
#<cbuffer 
#>buffer 
fnpas 
#$22 
#500 
#320 
load 
start 


eis 
#<text1Q 
#>text1Q 
strout 
#322 
basin 
buffer,y 


Fa2 
#eil 


;Grafikname holen + speichern 


Grafik laden 


Musiknam= halen + 
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#530 
basic+7 
#HEIE 
basic+8 
#334 
basic+3 
#02 
#502 
84899 ,x 
34908 ,x 
$4add,x 
$4beB,x 
$deld.x 
$1f00,x 
858028 ,x 


del 
$dol4 
Hof 
#330 
wert 
#$2Q 
$9q4 
elall 
#328 
#$21 

' fpas 
#304 
#<dname 
#>dname 
fnpas 


#301 
$5f 
#328 
. #62 

#$5f 
20 
#$ck 





#502 

s4 

$ac 

ss 

$ad 

ss 
sechse: sB 

sechse 


#532 
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sel 
$ac),y 
#$36 
g21 


s5 

s7 

sechsce 
sechse: s8 

$b9 

sechsd 

$ba 

s2 

$b9 

#$ef 

#$eQd 

s3 

s8 ; Demo speichern 
sechsd: 

#837 

$01 

reset 


siebena: els 
#802 
#$08 
#400 
fpas 
#cdir 
#>dir 
#$21 
fnpas 
open 
#802 
chkin 
basin 
$32 
siebenb 
basin 
siebenf: $c6 
siebenc 
80277 
#803 
siebend 
siebenb: elrch 
#802 
close 
#$0d 
bsout 
siebene: getin 
siebene 
start 
siebend: #302 
$c6 
2277 
siebenc: basin 
basin 
siebenb 
#6Dd 
bsout 
#$1d 
bsout 
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bsout 
basin 


basin 
Ihb 
#$20 
bsout 
siebeng: basin 
siebenf 
$92 
siebenb 
bsout 
siebeng 


; bei F8 verlassen durch Reset 


"Demo Maker V1.1",13,13 

Y (e) H. Schroeter 8/89" ,13,13,13 
"  1-Laufschrifttext eingeben" ‚13,13 

"  2-Laufschrift Menue" ‚13,13 

3-Grafik laden" ,13,13 

4-Musik laden" ,13,13 

5-Demo zeigen" ,13,13 

6-Demo speichern" ,13,13 

7-Directory zeigen" ,13,13 

&-Ende" ,13 


[} 


13,"Mit diesem Editor koennen Sie den" ,13 
"Text, der nachher in ihrem Demo als" ,13 
"Laufschrift erscheinen soll, schreiben." ,13 
"Am Ende des Textes muessen Sie ein '@ ",19 
"eingeben. Verlassen des Editors durch" ,13 
"die Taste ’Fi’ !",13,13,13 

“ TASTE" ; 

2 


13,"Laufschrift Menue" ,13,13 

“  1-Springbereich festlegen”,13,13 
2-Zeichsatz laden" ,13,13 
3-Farbenblinken aendern",13,13 
4-Haupt Menue”,® 


13,"Um den Springbereich festzulegen," ,13 
"muessen Sie mit Hilfe des Joysticks" ,13 

"in Port2 oder den CRSR Tasten die" ,13 

"obere bzw. die untere Grenze definieren." ,13 
"Zum Festlegen druecken Sie bitte die" ,13 
"RETURN-Taste oder den Feuerknopf.",13,13,13 
"Taste”,@ 


13,"Obere Grenze” ‚,® 
13,"Untere Grenze" ,® 


13,"In welchen Farbtoenen soll die Lauf-",13 
"schrift blinken ?",13,13,13 

"1-Blau”,13,13 

"2-Gruen",13,13 

"3-Rot",13.13 
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text8: 
text3: 





farbel 


baa: 
dnane: 


wert: 





text1d: 
text1l: 


textl2: 


farbe2: 
farbe3: 


farbe4: 


farbeS: 


buffer: 


"4-Grau”,13,13 
"5-Gelb",13,13 
"6-Hauptmenue”,@ 


13,"Zeichsatzname:" ,® 

13,"Name ist zu lang!",13,13,13 
13,"Taste",d 

3,"Musikname:" ‚2 
13,"Grafikname:",@ 





13,"Das Demo wird auf Tastendruck" ,13 
13,"auf Diskette gespeichert. ",13,13,13 


13, "Taste" ,2 


ug" 
$02,500,520.,320,320,309,320, 592 
00,300 ,300,509,390 ,5290,309,800 
$09,500,$09 , 300 ,500,300,320.,502 
300,300 ,300,300,300,300,$ff,$ff 
Sff,$02,$510,300,300,$538,$00,$00 
$70,300,300,$fe,300,$02,$12,30@ 
3009 ,510,$20,3228.512,300,$00 ,39@ 
500,300 ,300,309,$02.300,522,3020 
329,500 ,$00,300,300,$02.,300 ,329 
$508,320,310,300,300,$10.300,300 
$10,300,300.$fe,300.300,870,$00 
+02 ,538,$29,$00,319,$00,$ff,$Fff 
$ff,309,$29,322,300,$02,320,$00 
#20.,300,509,309,$20.300,900,309 
+20 ,800 ,300,300,500,$529,329,$02 
#E9,300,500,3900,$00,$:09.3020,$300 
8.,6,6,.6.14,14,14,14,3,8,3 





5,5,5. 





4.4,4,4,2,2,2,2,10,18.18,12,1,1 


11,11,11,11,12,12,12,12,15,15,15,15,1,1,.1,1,15,15,15,15 


12,12,12.12 


9,9.9,9.8,8,8,58,.7,7.7,7,1,1,1,1,7,7,7,7,8,8,8,€ 


$3f,850,$49,$43,829,33f.320,2 
"demo" ,2 


® 


3,1,1,1,1,3,2,3,3,14,14,14.14 
3,3,93,3.1%,13,13,13,1,1,1,1,13,13,13,13,3,3,3,3 


1,12,18,19,10,2,2,2,2 
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5/5 
Spiele 





5/5.2 
ALPHA V 


(Autor: Rainer Gebhardt) 





Gute Nerven und ein kühler Kopf sind bei dem im folgenden abgedruckten Spiel 
mit Sicherheit sehr hilfreich, denn es wird schwieriger, als Sie sich denken. 


Benötigt werden: 
— C 64/C 128 


— Joystick 
— Nerven 








5/5.2.1 


Spielanleitung 





Kurze Vorgeschichte: Das Flaggschiff der Erde, Delta 1, geriet in einen Asteroiden- 
sturm; dabei wurden die Treibstofftanks so schwer beschädigt, daß das Schiff Fäh- 
ren zum Planeten ALPHA V schicken muß, um dort Treibstoff zu holen. Sie als 
Kommander des Schiffes müssen auf dem Planeten ALPHA V landen und heil wie- 
der zum Schiff zurückfliegen. Nach zweimaligem Landen auf dem Planeten und im 
Schiff fliegt das Schiff weiter bis zum nächsten Bild. 


Die Fähre wird durch den Joystick an Port 2 gelenkt. 


Joystick: Drücken nach links — Fähre nach links 
Drücken nach rechts — Fähre nach rechts 
Betätigen des Feuerknopfes — Fähre bremst ab. 
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Auf der rechten Seite sehen Sie beim Spielen das Anzeigenfeld. In diesem Feld selbst 
sehen Sie die Treibstoffanzeige der Fähre und die Geschwindigkeitsanzeige. Die Ge- 
schwindigkeitsanzeige ist in drei Zonen gegliedert, in die rote, gelbe und schwarze 
Zone. Wenn der Pfeil auf die rote Zone zeigt, sinkt die Fähre zu schnell ab und die 
Landegeschwindigkeit ist zu hoch. Wenn der Pfeil auf die gelbe Zone zeigt, steigt 
die Fähre. Zeigt der Pfeil auf die schwarze Zone, ist die Landegeschwindigkeit rich- 
tig, und Sie werden heil landen. 


Dies gilt sowohl für das Landen auf dem Planeten (Landeplätze) als auch für das 
Andocken im Schiff. 


Außerdem sehen Sie im Anzeigefeld oben in der Mitte unter dem Wort ALPHA V 
einen Kreis mit einem Punkt in der Mitte. Während des Spieles ist der Punkt weiß, 
wenn Sie auf dem Planeten gelandet sind, braun, im Schiff schwarz. 


5/5.2.2 


Programmbeschreibung 











0 — 5 Bildschirm vorbereiten 
53 — 5l Hauptprogramm 
1000 — 1200 Bild 1 
2000 — 2300 Bild 2 
3000 — 3300 Bild 3 
4000 — 4300 Bild 4 
5000 — 5200 Zeichnen des Schiffes Delta 1 
6000 — 6200 Zeichnen der Anzeige 
7000 — 7300  Explosionsgeräusch 
7400 — 7499  Düsengeräusch 
9000 — 9099 Position der Sprites festlegen 
9100 — 9130 Landung auf dem Planeten 
9200 — 9900 Landung im Schiff 
11000 — 11054 Zeichnen des Titels und Spielen der Titelmelödie 
11055 — 11900 Kurze Anleitung 
12000 — 12020 Melodie 
15000 — 15030 Ende des Spieles 
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Anzeigen der erreichten Punkte 
Vorgeschichte 

Abfliegen des Schiffes Delta 1 
Definition der Sprites 


Definition der Melodie 
Daten der Sprites 
Daten der Musik 
Copyright 





Nach Starten des Programmes werden zuerst die Sprites und die Melodie definiert. 
Danach wird der Titel angezeigt, und die Titelmelodie erklingt. Nach Drücken der 
SPACE-Taste Space können Sie wählen, ob Sie das Spiel sofort beginnen oder zuvor 
noch die Anleitung sehen wollen. Am Ende wird der Punktestand angezeigt. 


Hier noch ein paar Tips: 


— Lassen sie keine REM-Zeilen weg, denn sie werden an- 
gesprungen. 


— Für andere Änderungen ist nur noch 1 KByte frei. 
— Wenn Ihnen ein Bild nicht mehr gefällt, ändern Sie es einfach. 


5/5.2.3 


Variablenübersicht 








BO Bonus 

J Wert am Control-Port für Joystick 
LG Landegeschwindigkeit 

MX Basis-Koordinate für Sprites 

MY Basis-Koordinate für Sprites 

N Nummer des Bildes 

BO Bonus 

PU() Punkte 

RD Zahl der Runden 
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sI Basis-Adresse SID 

SL Zahl der sicheren Landungen 
V Basis-Adresse VIC 

X X-Koordinate Sprite 0 

x1 X-Koordinate Sprite 1 

x2 X-Koordinate Sprite 2 

y Y-Koordinate Sprite 0 

Yı Y-Koordinate Sprite 1 

Y2 Y-Koordinate Sprite 2 











Das Programmm befindet sich auf der Grundwerksdiskette 
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6/2 
PASCAL (Oxford-PASCAL) 





Zu den Programmierprachen, die auf dem Commodore 64 erhältlich sind, gehört 
auch die Sprache PASCAL. Sie hat gerade in letzter Zeit auch im Homecomputer- 
bereich eine weite Verbreitung gefunden. Dies ist vor allem dem Turbo-PASCAL- 
Compiler der Firma Borland International zu verdanken, der auch für den Anfän- 
ger leicht zu bedienen und außerdem recht preiswert ist. Turbo-PASCAL benötigt 
jedoch das Betriebssystem CP/M oder MS-DOS und ist daher für die meisten 
Commodore-64-Besitzer uninteressant. Besitzer des C 128 können diesen Compiler 
einsetzen. 


Es gibt jedoch auch eine Reihe von PASCAL-Compilern, die ohne eine Erweiterung 
auf dem € 64 laufen. Einer dieser Compiler ist Oxford-PASCAL. Dieser Compiler 
hat eine beachtliche Verbreitung gefunden. Die Programmiersprache wird daher 
hier am Beispiel des Oxford-PASCAL vorgestellt. 


Wenn Sie einen anderen PASCAL-Compiler besitzen, so können Sie die Sprache je- 
doch trotzdem mit diesem Kurs erlernen. Sie müssen dann jedoch die Bedienungs- 
hinweise in Ihrem Handbuch genau. beachten, da hier Abweichungen auftreten 
können. 


Außerdem verfügen die verschiedenen PASCAL-Compiler über Erweiterungen zum 
Standard-Wortschatz der Sprache, die von Version zu Version verschieden ist. Wo 
solche Abweichungen möglich sind, werden wir im Text darauf hinweisen. Haupt- 
sächlich soll in diesem Kurs jedoch auf den Grundwortschatz von PASCAL ein- 
gegangen werden. 
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6/2.1 
Das Sprachkonzept 





Die Sprache PASCAL wurde Anfang der siebziger Jahre von Niklaus Wirth an der 
Eidgenössischen Technischen Hochschule (ETH) Zürich entwickelt. Ihr Name ist im 
Gegensatz zu vielen anderen Namen von Programmiersprachen keine Abkürzung, 
sondern der Name des französischen Philosophen und Mathematikers Blaise Pascal 
(1623-1662). 


PASCAL-Programme weisen eine Reihe von Unterschieden zu Basic-Programmen 
auf. Die Sprache zwingt zur Strukturierung des Programms. Dies bedeutet, daß Sie 
nicht wie in Basic einfach ein Programm eintippen können, sondern es zuerst 
planen müssen. So müssen alle im Programm verwendeten Variablen erst definiert 
werden. 


Auch sind die Variablentypen wesentlich vielfältiger. Neben den Standardtypen für 
ganze Zahlen und Gleitkommazahlen, die Sie bereits aus Basic kennen, kann man 
in PASCAL eigene Variablentypen definieren oder aus bereits definierten Typen 
neue zusammensetzen. Auch Mengen sind in PASCAL enthalten. 


Außerdem sind Abläufe wie Schleifen und Bedingungen wesentlich mächtiger als in 
Basic. Insbesondere ist es möglich, Programme völlig ohne den Befehl ‘GOTO’ zu 
schreiben. Das ‘Springen’ im Programm wird so vermieden und dadurch lesbarer 
und übersichtlicher. 


Im Gegensatz zu Basic hat PASCAL eine Blockstruktur. PASCAL-Programme set- 
zen sich im allgemeinen aus mehreren Blöcken zusammen. Ein Block kann als 
eigenständiges Programm aufgefaßt werden, das innerhalb eines anderen Program- 
mes steht. Im einfachsten Fall besteht ein PASCAL-Programm also aus einem 
‚Block. Die Blockstruktur soll mit der folgenden Graphik verdeutlicht werden: 
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Block A 




















Dargestellt ist ein PASCAL-Programm, das aus den Blöcken A bis G besteht. Jeder 
Block löst ein Teilproblem der Gesamtaufgabe. Den Blöcken werden dabei eigene 
Variablen (lokale Variablen) zugeteilt, so daß sie andere Blöcke nicht stören können. 
Die gemeinsame Nutzung von Variablen ist auch möglich (globale Variablen). Hier- 
bei können Blöcke auf Variablen des Blockes, in dem sie stehen, zugreifen. Also: 


Eine Variable aus Block: ! kann in folgenden Blöcken 
! benutzt werden: 


'TABCDEHEG 
B D 








ormuüns> 
Bon 











Das Arbeiten mit den Blöcken werden wir im Kapitel 6/2.7 (Unterprogrammtech- 
nik) kennenlernen. 


Wie Sie sehen, bietet PASCAL eine Menge von neuen Möglichkeiten, von denen 
man als Basic-Programmierer nur träumen kann. Dies gilt vor allem für die Basic- 
Version des C 64. Allerdings erfordern PASCAL-Programme auch mehr Disziplin 
bei der Planung. Wir wollen uns nun den Aufbau von PASCAL-Programmen an 
einfachen Beispielen ansehen. 
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6/2.2 
Einfache Beispiele 





An einem einfachen Beispiel wollen wir uns den Aufbau eines PASCAL-Programms 
und das Arbeiten mit dem PASCAL-System ansehen. Die Systembefehle gelten da- 
bei für Oxford-PASCAL. Sehen Sie in Ihrem Handbuch nach, falls Sie ein anderes 
PASCAL verwenden. 


PASCAL-Programme haben im einfachsten Fall folgenden Aufbau: 


Programmkopf -| 
Konstantenvereinbarung 
Variablenvereinbarung 
Anweisungsteil 

















In unserem Beispiel wollen wir die Wurzeln der Zahlen 1 bis 5 ausgeben. Dies leistet 
das folgende Programm: 


PROGRAM wurzeln; .. (* Programmkopf *) 


CONST anfang=1; ende=5; (* Konstantenvereinbarung *) 
VAR x: INTEGER; (* Variablenvereinbarung *) 

y: REAL; 
BEGIN (* Anweisungsteil *) 

FOR x:=anfang TO ende 
DO BEGIN 
y:=SORTß); 
WRITELN@,y); 








END; 
END. | 





Alle in PASCAL reservierten Worte sind im Beispiel großgeschrieben. Sie brauchen 
dies beim Eingeben des Programms nicht beachten. 


Das Beispiel zeigt bereits eine Reihe von Eigenschaften von.PASCAL. So beginnt 
jedes PASCAL-Programm mit dem Wort PROGRAM) gefolgt von einem Pro- 
grammnamen. Dann folgt ein Semikolon. Das Semikolon hat in PASCAL etwa die 
gleiche Funktion wie der Doppelpunkt in Basic: es trennt Befehle. Aber in PASCAL 
ist die Trennung auch bei einem Übergang auf eine neue Zeile nötig, da hier, im 
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Gegensatz zu Basic, Befehle in der nächsten Zeile fortgesetzt werden können. Diese 
Eigenschaft werden Sie spätestens bei den IFTHEN-Befehlen schätzen lernen. In 
Basic muß die Anweisung in eine Zeile passen, in PASCAL kann sie sich dagegen 
über mehrere Zeilen erstrecken. Nach einem PASCAL-Wort wie PROGRAM’, 
“FOR, ‘TO’ oder anderen muß übrigens immer ein Leerzeichen stehen, damit PAS- 
CAL die Worte von Variablen unterscheiden kann. Variablen wie FORTODO’ sind 
nämlich in PASCAL erlaubt. 


Kommentare stehen zwischen ‘(* und ‘*)’ und können überall stehen, wo Leer- 
zeichen erlaubt sind. 


Es folgt die Vereinbarung von Konstanten. Sie wird durch das Wort ‘CONST’ einge- 
leitet. Dann können beliebig viele Vereinbarungen der Form ‘<name> = 
<wert>;’ folgen. Enthält das Programm keine Konstanten, so kann der Teil fehlen. 
Namen können in PASCAL beliebig lang sein, jedoch erkennt Oxford-PASCAL 
nur die ersten acht Zeichen. Außerdem sind in Namen neben Buchstaben und Zah- 
len auch das Zeichen ‘__’ erlaubt (Sie erreichen es durch Drücken der Commodore- 
Taste zusammen mit der ‘@’Taste). Dieses Zeichen wird statt Leerzeichen eingesetzt, 
da diese in Namen nicht vorkommen dürfen. 


Als nächstes werden alle im Programm verwendeten Variablen vereinbart. Dieser 
Teil wird durch das Wort ‘VAR’ eingeleitet. Dann folgt der Name einer Variablen 
oder eine Liste von Namen durch Kommata getrennt. Nach den Namen muß der 
Typ der Variable mit ‘ abgetrennt angegeben werden. Zulässige Typen sind z.B. 
‘INTEGER’ für ganze Zahlen oder ‘REAT: für Fließkommazahlen. Näheres zu den 
Typen finden Sie in Kapitel 6/2.3. 


Beispiel einer zulässigen Variablenvereinbarung: 





VAR a,b, c, d, e: INTEGER; 
abc, dies__ist__eine__lange__variable: REAL; 
v14: INTEGER; 








Nach den Vereinbarungen folgt schließlich der Programmteil. Es wird mit dem Wort 
‘BEGIN’ eingeleitet und endet immer mit ‘END! Beachten Sie den Punkt hinter 
‘END: Er wird oft vergessen. Das Programm ist in unserem Beispiel eine einfache 
FOR-Schleife, wie wir sie bereits aus Basic kennen. In PASCAL erfolgt die Zuwei- 
sung von Variablen nicht mit ‘=”, sondern mit “=”, um die Zuweisung von der 
Gleichheit abzuheben. Außerdem wird die FOR-Schleife nicht mit NEXT abge- 


schlossen. Die FOR-Schleife sieht in PASCAL so aus: 





FOR <variable>:= <anfangswert> TO <endwert> DO <befehl>; 





In der Schleife darf also nur ein Befehl stehen. In PASCAL zählt hierzu aber auch 
eine Befehlsfolge, die in BEGIN’ und ‘END?’ eingeschlossen sind. Dies haben wir 
in unserem Beispiel ausgenutzt. In der FOR-Schleife stehen also zwei Befehle. Im 
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| PROGRAM kugel; (» Programmkopf *) 

CONST pi=3.14159265; (= Konstantenvereinbarung x») 

VAR rs, (x Variablenvereinbarung x) 

volumen, 
fläche: REAL; 

BEGIN (x PROGRAMMTEIL x) 
WRITE (‘Kugelradius:’); . (» Radius einlesen x) 
READLN (r); 
volumen: =4.0/3.0=PixtxT#T; (* Volumen berechnen x) 
fläche: =4xpixSQR(r); (» Fläche berechnen x) 
WRITELN (‘Volumen’,volumen:10:7); (= und *) 
WRITELN (Fläche? flaeche:10:7); (+ Ausgeben x) 


END. (x kugel x») 





Beachten Sie, daß PASCAL die Potenzierung nicht kennt. Sie kann aber z.B. durch 
den Ausdruck ‘EXP(b»LN(a))’ für ‘a ersetzt werden. 


Starten Sie nun das Programm mit ‘r. Wie Sie sehen, wird das Programm von 
Oxford-PASCAL erst wieder compiliert und dann gestartet. Sie werden nun vom 
Programm aufgefordert, einen Wert einzugeben. Für diese Eingabe ist die Zeile 
“READLN (r);’ zuständig, wobei ‘READLN?’ etwa dem Basic-Befehl ‘INPUT? ent- 
spricht. Geben Sie ein paar Zahlen ein und beachten Sie, wie die Ergebnisse in das 
Ausgabefeld geschrieben werden. 


Merke: Für die Eingabe gibt es die Befehle READ’ und READLN”. 


‘READ?’ liest Werte einer Reihe, wobei die Werte durch Leer- 
zeichen oder Zeilenenden getrennt werden müssen. 


‘READLN?’ liest Werte, die mit <RETURN> abgeschlossen 
werden müssen, 


Für die Ausgabe gibt es die Befehle ‘WRITE’ und ‘WRI- 
TELN”. 


‘WRITE’ gibt alle Werte in der Zeile aus und bleibt in der 
Zeile. 


‘WRITELN’ gibt alle Werte in der Zeile aus und geht dann in 
die nächste Zeile. 


Das Ausgabeformat kann angegeben werden und wird bei zu 
kleinem Feld selbsttätig erweitert. 


Weitere Beispiele für Programme werden Sie bei den Befehlen kennenlernen. 
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ersten Befehl wird der Variable ‘y’ der Wert der Wurzel von x zugewiesen 
(y:=SQRT@) ). Die PASCAL-Funktion ‘SQRT’ liefert also die Wurzel einer Zahl, 
und entspricht somit der Basic-Funktion ‘SQR’. Aber in PASCAL gibt es auch eine 
Funktion ‘SQR’, die jedoch das Quadrat der Zahl berechnet (SQRK&) = x*x engl. 
square). Hier ist Vorsicht geboten. Fine Übersicht über die PASCAL-Funktionen 
finden Sie in Kapitel 6/2.9.2. 


Dann werden die Werte von x und y ausgegeben. Dies erledigt der Befehl 
“WRITELN)‘, der hier etwa dem Basic-Befehl ‘print’ entspricht. ‘WRITELN’ kann 
aber noch mehr, wie wir später sehen werden. 


Um das Programm nun auf dem C 64 laufen zu lassen, müssen wir es zunächst ein- 
geben. Oxford-PASCAL benutzt einen erweiterten Basic-Editor. Der Editor benö- 
tigt daher Zeilennummern, die für das PASCAL-Programm keine Bedeutung 
haben. 


Geben Sie die erste Zeile ein: 


10 PROGRAM wurzeln; (* Programmkopf *) 


Oxford-PASCAL gibt die nachfolgenden Zeilennummern nun vor: 


20 CONST anfang=1; ende=5; (* Konstantenvereinbarung *) 

30 VAR x: INTEGER; (* Variablenvereinbarung *) 
y: REAL; 

BEGIN (* Anweisungsteil ”) 


FOR x: anfang TO ende 
DO BEGIN 
y:=SQORT(x); 
WRITELNK y); 








Nun muß das Programm compiliert werden, d.h. es muß in Maschinensprache über- 
setzt werden. PASCAL ist im Gegensatz zu Basic kein Interpreter, bei dem die Zei- 
len während des Programmlaufs interpretiert werden müssen, sondern ein 
Compiler. Bei einem Compiler wird vor dem Programmlauf das Programm über- 
setzt. Oxford-PASCAL erzeugt jedoch wie viele PASCAL-Compiler keinen echten 
Maschinencode, sondern einen schnellen Zwischencode. Das Compilieren wird 
durch Eingabe von ‘ gestartet. Dabei wird das Programm zusammen mit Fehler- 
meldungen noch einmal ausgegeben. Ist alles gutgegangen, kann das Programm 
nun mit ‘r’ gestartet werden. Wir hätten allerdings auch gleich ‘r” eingeben können. 
Oxford-PASCAL hätte den Fehler gemerkt und das Programm zuerst compiliert. 
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Unser Programm liefert uns folgende Ausgabe: 


+00 
+ 00 








Hätten Sie dieses Ergebnis erwartet? Ein Basic-Programm hätte die Zahlen sicher- 
lich anders ausgegeben. PASCAL verwendet immer die Exponentialschreibweise, 
wie sie Basic z.B. bei sehr großen oder sehr kleinen Zahlen ebenfalls verwendet. Sie 
können dies aber auch ändern. In PASCAL können Sie das Ausgabeformat im Ge- 
gensatz zu Basic angeben. Dies geschieht im ‘WRITELN?Befehl. Ändern Sie den 
Befehl wie folgt ab: 


WRITELN(x:3,y:623); 


Dabei bedeutet: 


— x3 Schreibe die Zahl x rechtsbündig in ein Feld der Länge 3. 
— y:6:3 Schreibe y rechtsbündig in ein Feld der Länge 6 mit 3 Nachkomma- 
stellen. 


Das Programm liefert nun folgende Ausgabe: 





In PASCAL lassen sich mit Hilfe der Formatangabe leicht Tabellen sauber auf Bild- 
schirm oder Drucker erstellen. Versuchen Sie zum Vergleich dies mit dem Basic des 
C 64 zu erreichen. 


Als zweites Beispiel wollen wir uns noch die Berechnung von Volumen und Fläche 
einer Kugel ansehen, um uns weiter mit der Ein- und Ausgabe vertraut zu machen. 
Die zugehörigen Formeln lauten: 


Volumen = n * PIL*r3 


Fläche =4*Ppl*r2 C PI=3.14159) 


Speichern Sie das alte Programm mit ‘put wurzeln’ auf Diskette und löschen Sie es 
dann im Rechner mit ‘new’. Jetzt können Sie unser neues Programm eingeben: 
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6/2.3 
Variablen 





Als nächstes wollen wir uns die Variablen, die in PASCAL möglich sind, ansehen. 
PASCAL bietet neben den Standardvariablen, wie Sie sie auch aus anderen Pro- 
grammiersprachen (z.B. BASIC) kennen, auch die Möglichkeit, eigene Typen zu de- 
finieren. Doch zunächst zu den Standardtypen. 


6/2.3.1 


Standardvariablentypen 





PASCAL sieht vier Standardvariablentypen vor. Die einfachste dieser Variablenty- 
pen ist der Typ ‘CHAR’. Eine Variable vom Typ ‘CHAR’ kann genau ein Zeichen 
aus dem Commodore-Zeichensatz aufnehmen. Variablen vom Typ ‘CHAR’ verhal- 
ten sich etwa wie Strings der Länge 1 in Basic. Neben den Zuweisungen (z.B. a:=‘d’) 
gibt es vier Operationen auf dem Typ: 





ORDO ergibt die Ordnungszahl eines Zeichens. Diese Funktion entspricht ] 
in Basic ASCO”. 
Bsp.: ORD (‘0°)=48. 


CHRO ist die Umkehrfunktion zu ORD(. In Basic: ‘CHR$O. 
Bsp.: CHR(48)= ‘0°. 


SUCCO gibt den Nachfolger eines Zeichens an. 
Bsp.: SUCCCA)= B’. 


PREDO gibt den Vorgänger an. 
Bsp.: PRED(B’)= A. 
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Ein weiterer Datentyp ist der Typ BOOLEAN”. Hierzu gibt es in Basic keinen ent- 
sprechenden Typ. Variablen vom Typ BOOLEAN’ können nur die in PASCAL 
definierten Werte ‘TRUE, oder ‘FALSE’ annehmen. Werte von diesem Typ ergeben 
sich z.B. bei Vergleichen: 





@’ = ‘b ergibt false 
“<‘b’ ergibt true 
5>10 ergibt false 








Auf dem Typ sind neben der Zuweisung (z.B. ‘ende:=false’) drei logische Operatio- 
nen erlaubt: AND’, ‘OR’ und ‘NOT’, die auch aus Basic bekannt sind. 








Hier sei allerdings auf die etwas ungünstige Prioritätenverteilung hingewiesen. In 
PASCAL gelten folgende Prioritäten: 





höchste Priorität: NOT 
dann: »,/,DIV,MOD,AND 
dann: +,—OR 

niedrigste Priorität: =,<,>,<=,>=,<> 








Die Basic-Anwendung ‘IF a<12 AND b>54 THEN...’ muß in PASCAL daher 
als ‘IF (a<12) AND (b>54) THEN...’ geschrieben werden. 


Das folgende kleine Beispiel soll den Umgang mit den Typen ‘CHAR’ und ‘BOO- 
LEAN’ zeigen. Es gibt die Zeichen ‘@ bis ‘z’ auf dem Bildschirm in Zeilen zu je 
fünf Zeichen aus: 





PROGRAM a_bis_z; 


CONST anfang =“); (* von Buchstabe a *) 
ende =); (* bis Buchstabe z *) 
VAR buchstabe: CHAR; (* aktueller Buchstabe *) 


neue zeile: BOOLEAN;  (* Entscheidung für neue Zeile *) 
i: CHAR’ (* Zählt die Buchstaben *) 
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BEGIN (* Programmstart *) 
= 0% (* Zähler auf ‘0° *) 


FOR buchstabe := anfang TO ende DO 
(* FOR Schleife auf Typ CHAR von 


‘a bis ‘zZ’ *) 
BEGIN 
WRITE (buchstabe:l); (* buchst. in Feld der Länge 1 *) 
:=SUCCH); (* Zähler erhöhen *) 
neue__zeile:=i=*6); (* neue Zeile bei i=‘9% *) 
IF neue__zeile TEN 
BEGIN (* neue Zeile *) 
WRITELN; (* und Zähler rücksetzen *) 
i:=0); 
END; (* der IF-Bedienung *) 
END; (* der FOR-Schleife) *) 
END. (* Programmende *) 





Wie Sie sehen, kann man FOR-Schleifen mit Variablen vom Typ CHAR bilden und 
so sehr einfach die Buchstaben durchlaufen. In Basic müßten Sie eine spezielle 
Laufvariable vorsehen und eine Typumwandlung vornehmen, um das gleiche zu er- 
reichen. Beachten Sie bitte auch, daß hier SUCC auf eine Variable von Typ 
INTEGER verwendet wird. SUCC hat dann die gleiche Funktion wie die Addition 
von eins. Allgemein gilt: SUCC, PRED und ORD arbeiten auf allen aufzählbaren 
Datentypen (also nicht auf REAL!). 


Die beiden anderen Datentypen ‘INTEGER’ und ‘REAL haben wir bereits kennen- 
gelernt. Der Datentyp ‘INTEGER’ umfaßt ganze Zahlen im Bereich von —32768 
bis +32767. Er entspricht den Basic-Variablen, die mit ‘%’ gekennzeichnet sind 
(z.B.: abY). Auf ihm sind die Operationen ‘+’, —/, und ‘«’ wie gewohnt erlaubt. 
Etwas anders ist es bei der Division. Da eine Division i.a. einen Quotienten und 
einen Rest ergibt, gibt es die zwei Operationen ‘DIV’ und ’MOD), wobei ‘DIV’ den 
Quotienten und ‘MOD? den Rest liefert. 


Bsp.: 1234/56 ergibt 22 Rest 2. Folglich liefern die Pascal Ausdrücke 
1234 DIV 56 als Ergebnis 22 
1234 MOD 56 als Ergebnis 2. 


Die Grenze des Bereichs ist in PASCAL als Konstante “maxint’ (=32767) vor- 
definiert. 


Variablen vom Typ ‘REAL kennen Sie bereits aus Basic. Auf ihnen sind die Opera- 


tionen ‘+, —, ‘«’ und /’ wie gewohnt definiert und liefern die gleichen Ergebnisse 
wie in Basic auch. 
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6/2.3.2 


Definition eigener Typen 





Interessant an PASCAL ist, daß die Sprache — im Gegensatz zu Basic — die Defi- 
nition eigener Datentypen erlaubt. So ist es zum Beispiel möglich, einen Typ zu 
definieren, der die Wochentage enthält. Dies wird durch Aufzählung erreicht: 





[ TYPE tage = (mo,di,mi.do,fr,sa,so) ] 





Die Definition wird mit dem Wort ‘TYPE? eingeleitet. Dann folgt der Name des 
Typs. In unserem Beispiel ist es ‘tage. Nun müssen die Elemente des Typs nur noch 
aufgezählt werden. Durch die Aufzählung definieren Sie gleichzeitig eine Ordnung 
auf den Typ, d.h. mo<di<mi<do<fr<sa<so. Daher sind die Operationen 
‘ORD, ‘SUCC’ und ‘PRED’ sowie die Verwendung in FOR-Schleifen mit selbst- 
definierten Typen erlaubt. 


Eine besondere Form der Aufzählung von Typen ist der Teilbereich. Angenommen, 
Sie wollen einen Typ definieren, der ein Unterbereich eines bereits bekannten Typs 
ist, z.B. die Zahlen 125 bis 1024. Dann müßten Sie diese aufzählen: 


TYPE teil = (125,126,127,128,129,130,131,132 . . .) 


Da dies kaum möglich ist, gibt es eine Abkürzung: 


| TYPE teil = 125..1024; ö) 


Zulässige Typendefinitionen sind also z.B.: 


TYPB früchte = (apfel, birne, banane); 














byte = 0.255; 
tage= (mon,die,mit,don,fre,sam,son); 
arbeitstage = mon..fre; 


wochenende = sam..son; 


Beachten Sie, daß die Typen arbeitstage und wochenende erst nach dem Typ tage 
definiert werden können, da sie Unterbereichstypen von tage sind. 


Unterbereichstypen können bei der Variablendefinition auch direkt angegeben 
werden. 
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Das folgende Beispiel zeigt den Einsatz von Unterbereichstypen. Weitere Anwen- 
dungen werden Ihnen in Kapitel 6/2.8 Strukturierte Datentypen begegnen, da wir 
dann erst PASCAL richtig einsetzen können. 














PROGRAM datum; 
(* Berechnet das morgige Datum im Zeitraum von 1.1.1901 bis 






30.12.1999 *) 
TYPE tage = 1.31; (* Typendefinition des Datums *) 
monate =: 1.12; 
jahre = 1.99; 
VAR tag: tage; (* Variablendefinition *) 
monat: monate; 
Jahr: jahre; 






laenge: (* Direkte Angabe eines Types 


BEGIN 
WRITELN (‘Datum eingeben’); (* Datum einlesen 
WRITE (Tag: ’);, READLN (tag); 
WRITE (Monat; ’); READLN (monat); 
WRITE (Jahr: ’); READLN (jahr); 
laenge:=3]; (* Monatslänge berechnen 
IF (monat=4) OR (monat=6) OR (monat=9) OR (monat=11) 
THEN laenge:=30 (* Monate mit 30 Tagen 
IF monat=2 THEN (* Februar gesondert 
IF (jahr MOD 4=0) THEN laenge: =29 (* Schaltjahr 
ELSE laenge:=28; 
IF tag<laenge 
tag:=tag+1 nur Tag ändern 

THEN ELSE BEGIN 

tag:=]; neuer Monat 

IF monat=12 

THEN BEGIN 
monat:=]; * neues Jahr 
jahr:=jahr+1 
END 
ELSE monat:=monat+l; (* nur neuer Monat 


END; 
WRITELN (“Morgen ist der’,‚tag:l,‘.’,monat:1,‘.’, 
jahr +1900:1); (* morgiges Datum 
ausgeben 


END. 
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6/2.4 
Strukturbefehle 





6/2.4.1 
Die GOTO-Anweisung 





PASCAL kennt genau wie Basic die GOTO-Anweisung. Gesprungen wird jedoch 
nicht zu einer Zeilennummer, sondern zu einem Label (Sprungmarke), das aus einer 
8stelligen positiven ganzen Zahl besteht (in Standard-PASCAL 4 Stellen). Ein Label 
kann vor jeder PASCAL-Anweisung stehen und wird durch einen Doppelpunkt von 
der Anweisung abgetrennt: 


Beispiel: 12: x:=ix56.7; 
IF x <> 256 THEN GOTO 12; 


Die in einem Programm verwendeten Label müssen genau wie die Variablen erst ver- 
einbart werden. Dies geschieht durch die Anweisung ‘LABEL, gefolgt von einer 
Liste von Labeln, die durch ein Komma getrennt sind. Die Labeldefinition folgt 
direkt dem Programmkopf. 


Die Anweisung GOTO sollte möglichst vermieden werden, da sie ein Programm un- 
leserlich macht. Durch die Blockstruktur von PASCAL ist ‘GOTO’ auch unnötig. 
Sie hat jedoch durchaus einen Sinn. So kann z.B. in einem Fehlerfall mit Hilfe von 
GOTO einfach aus einer Struktur ausgebrochen werden. Ein Beispiel für den Ge- 
brauch von GOTO soll hier gezeigt werden. Es gibt die Zahlen 1 bis 5 sowie deren 
Quadrate aus. 
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— 


PROGRAM soto__demo; 
LABEL 1; (* Label vereinbaren *) 
VAR i: INTEGER; 


BEGIN 
ii=0; 
1: v=i+l; (* Hier ist das Label gesetzt *) 
WRITELN (\, isi); 
IF i<5 THEN GOTO |]; (* Sprung zum Label *) 

END. 















6/2.4.2 
IF... THEN... ELSE 





Die IF... THEN?’Anweisung kennen Sie bereits aus Basic und unseren Beispielen. 
Sie ist in PASCAL um die Anweisung ‘ELSE’ erweitert, die allerdings auch fehlen 
kann. Zulässige Befehlsformen sind also: 





IF <Bool’scher Ausdruck> THEN <Befehl 1> ELSE <Befehl 2> 
IF <Bool’scher Ausdruck> THEN <Befehl> 





Die Befehle können dabei wieder Strukturen, in BEGIN’ und ‘END’ eingeklam- 
mert sein. Ist der Bool’sche Ausdruck wahr (‘true’), so wird die Befehlsfolge hinter 
“THEN’ ausgeführt, anderenfalls die Befehlsfolge hinter ‘ELSE’, falls ELSE’ ange- 
geben ist. Sonst wird mit den nachfolgenden Befehlen fortgefahren. 


Beispiel: Es sollen zwei Zahlen a und b eingelesen und ausgegeben werden, ob 
a gleich b, oder kleiner, oder größer ist. 
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PROGRAM vergleich; 
VAR a,b: REAL; 


BEGIN (* Zahlen a und b einlesen *) 
WRITE (‘Geben Sie die erste Zahl ein: ’); 
READLN (a); 
WRITE (‘Geben Sie die zweite Zahl ein: ’); 
READLN (b); 


IF a=b 
THEN WRITELN (“ ist gleich b’) 
ELSE BEGIN 
IFa < b THEN WRITELN (“a ist kleiner b’) 
ELSE WRITELN (‘a ist großer b’) 
END; 





Beachten Sie, daß vor ‘ELSE’ kein Semikolon stehen darf! 


6/2.4.3 
Die CASE-Anweisung 





Mit Hilfe der IF... THEN... ELSE-Konstruktion lassen sich auch lange Ab- 
fragen z.B. für Menüs nach folgendem Schema konstruieren: 


IF <bedingung 1> THEN <befehl 1> 
ELSE IF <bedingung 2> THEN <befehl 2> 
ELSE IF <bedingung 3> THEN <befehl 3> 
ELSE IF <bedingung 4> THEN <befehl 4> 
etc. 


Da dies aber sehr umständlich und unleserlich ist, gibt es in PASCAL eine Anwei- 
sung, die solche Strukturen vereinfacht: die CASE-Anweisung. Sie hat folgende 
Form: 
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CASE <ausdruck> OF 
<Konstantenliste 1> : <befehl 1>; 
<Konstantenliste 2> : <befehl 2>; 
<Konstantenliste 3> : <befehl 3>; 


„ 


„ 


<Konstantenliste n> : <befehl n>; 





END: 





Dabei ist der <ausdruck> ein Ausdruck von Typ INTEGER, CHAR oder BOO- 
LEAN. Die Konstanten müssen vom gleichen Typ wie der Ausdruck sein. Als Kon- 
stantenliste ist eine solche Konstante oder mehrere solcher Konstanten durch 
Komma getrennt zulässig. 


Die CASE-Anweisung arbeitet dann wie folgt: Der Ausdruck <ausdruck > wird be- 
rechnet. Das Ergebnis wird mit den Konstantenlisten verglichen. Wird das Ergebnis 
in einer Liste gefunden, so wird der Befehl hinter der Liste ausgeführt. Steht das 
Ergebnis in keiner Liste, wird (in Oxford-PASCAL) ein Fehler gemeldet. 


Als Beispiel wollen wir ein kleines Taschenrechnerprogramm erstellen, das die Be- 
fehle ‘+, 3, ®, und Y’ versteht. 
a — 
PROGRAM rechner; 
VAR operation: CHAR; 
argl,arg2, 
ergebnis : REAL; 


BEGIN 
WRITELN (Taschenrechner’); 
WRITE (argl’); READLN (arg]); 
WRITE (op: ’); READLN (operation); 
WRITE (arg2: ’);, READLN (arg2); 


CASE operation OF 
‘+’: ergebnis:=argl+arg2; 
— : ergebnis:=argl—arg2; 
ergebnis: =argl*arg?; 
7 : BEGIN 
IF arg2< >0 THEN ergebnis:=argl/arg2 
ELSE WRITELN (Division durch NulP) 


m. 


END; 
END; (* of Case *) 
WRITELN (arg1:9:2,0p:1,arg2:9:2,‘= ‚ergebnis:9:2); 
END. 
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6/2.5 
Schleifen 





Neben den Strukturbefehlen gehört die Schleifenbildung zu den häufigsten Struktu- 
ren in Programmen. Eine dieser Schleifen, die FOR-Schleife, kennen Sie bereits von 
Basic-Programmen. PASCAL kennt neben dieser Schleife aber noch zwei weitere 
Schleifen, welche die Möglichkeiten wesentlich erweitern. 


6/2.5.1 
FOR..TO..DO 





Die FOR-Schleife haben wir bereits im Kapitel 6/2.2 ‘Einfache Beispiele’ kennenge- 
lernt. Sie hat in Pascal die folgende Form: 


FOR <Variable>:= <Anfangswert> TO <Endwert> DO <Befehl>; 


Der Variablen wird der Anfangswert zugewiesen. Ist die Variable kleiner oder gleich 
dem Endwert, wird der Befehl ausgeführt. Dann wird die Variable um eine Einheit 
erhöht, und die Schleife von neuem durchlaufen. Nach dem Verlassen der Schleife 
hat die Variable den Wert <endwert> +1. Eine weitere Möglichkeit besteht in der 
folgenden Form: 


FOR <Variable>:= <Anfangswert> DOWNTO <Endwert> DO <Befehl>; 
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Der Variablen wird wieder der Anfangswert zugewiesen. Hier muß die Variable je- 
doch größer oder gleich dem Endwert sein, damit der Befehl ausgeführt wird. Dann 
wird die Variable um eine Einheit erniedrigt, und die Schleife von neuem durchlau- 
fen. Nach dem Verlassen der Schleife hat die Variable den Wert <endwert > -1. Eine 
Schrittangabe, wie sie der STEP-Befehl in Basic ermöglicht, ist in PASCAL nicht 
vorgesehen. Es gibt also nur die Schrittweiten 1 und -1. 


In dem folgenden Beispiel wollen wir die Fakultät einer Zahl berechnen. Die Fakul- 
tät einer Zahl ist das Produkt der Zahlen von 1 bis zu der Zahl selbst. 


Beispiel: Berechnung von 10! (lies: zehn Fakultät) 
10! = 10#9+8+7+6*5#4*3+2+*] = 3628800 


PROGRAM fakultät _1; (* Berechnet die Fakultät einer Zahl *) 


VAR i, k:INTEGER; (* Eingabezahl und Laufindex *) 
j;REAL; (* Ergebnis *) 


BEGIN 
WRITE (‘Zahl eingeben’’); Zahl einlesen 


READLNG); 
j:=1; Ergebnis = 1 
FOR k:=i DOWNTO 1 DO j:=j*k; Fakultät berechnen 
WRITELN (i1/1=’,j:7:1); Ausgabe 

END 








6/2.5.2 
REPEAT. . UNTIL 





Eine weitere Schleife ist die REPEAT-Schleife. Sie wiederholt eine Folge von Befeh- 
len, bis eine bestimmte Bedingung erfüllt ist. Beachten Sie, daß diese Struktur 
grundsätzlich verschieden von der FOR..TO.. DO-Schleife gestaltet ist. 
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Die REPEAT-UNTIL-Schleife hat folgende Form: 


REPEAT 
<Befehl 1> 
<Befehl 2> 


UNTIL <Bedingung> 





Die Befehle zwischen REPEAT und UNTIL brauchen also nicht durch BEGIN und 
END zusammengefaßt werden, wie das bei den anderen Schleifentypen erforderlich 
ist. Beachten Sie auch, daß die Befehle in der Schleife immer mindestens einmal 
durchlaufen werden. Auch muß der Programmierer dafür sorgen, daß die Bedin- 
gung irgendwann einmal erfüllt ist, denn sonst erhält man eine Endlosschleife. 
Dieser Effekt kann allerdings auch einmal erwünscht sein. So läuft z.B. eine Hei- 
zungsregelung immer in einer Endlosschleife. Diese kann dann einfach program- 
miert werden: 


REPEAT 
<Befehl 1> 
<Befehl 2> 


UNTIL FALSE; 








Als kleines Beispiel wollen wir die Fakultät diesmal mit der Repeat-Schleife be- 
rechnen: 


2 
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PROGRAM fakultät _2; 
VAR i,k:INTEGER; (+ ZAHL UND SCHLEIFENINDEX *) 
jREAL; (* ERGEBNIS *) 
BEGIN 
WRITE (‘Zahl eingeben’); (* ZAHL EINLESEN *) 
READLNG); 
j;=1]; k:=i; (* INDEX UND ERGEBNIS AUF ANFANGSWERT *) 
REPEAT (* FAKULTÄT BERECHNEN *) 
}: =j*k; 
k:=k-1 
UNTIL k<=1; 
WRITELN (ill, ’!= ’j:7J1; (#* ERGEBNIS AUSGEBEN *) 


END. 


Die nun folgende Schleife besitzt von der Struktur her eine gewisse Ähnlichkeit mit 
der REPEAT-UNTIL-Schleife. Es ist die Schleife: 


6/2.5.3 
WHILE .. DO 





Sie ist der letzte Schleifentyp den PASCAL kennt. Die WHILE... DO-Schleife 
führt einen Befehl, oder mehrere, durch BEGIN und END geklammerte Befehle, so- 
lange aus, wie eine bestimmte Bedingung erfüllt ist. Sie hat die folgende Form: 


WHILE <Bedingung> DO <Befehl>; 
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Im Gegensatz zur REPEAT-Schleife wird der Befehl der WHILE-Schleife bei fal- 
scher Bedingung nicht ausgeführt. Aber auch hier muß der Programmierer für den 
Abbruch der Schleife sorgen, d.h. die Bedingung muß irgendwann einmal ‘FALSE’ 
werden. Außerdem wird hier die Bedingung nicht geprüft, nachdem die Befehle ab- 
gearbeitet wurden, sondern bereits bevor die Befehle ausgeführt werden. Dies ist ein 
wesentlicher Unterschied. Zwischen den Schleifen REPEAT und WHILE entschei- 
det man sich also, indem man bestimmt, ob die Befehle vor dem Prüfen der Bedin- 
gung bereits ausgeführt werden sollen. 


Als Beispiel wollen wir diesmal die Quersumme einer Zahl berechnen. Die Quer- 
summe einer Zahl ist die Summe Ihrer Ziffern. Beispiel: Die Quersumme von 83745 
ist 8+3+7+4+5=27. 


PROGRAM quersumme; 
VAR n,k,s: INTEGER; (* Zahl, Hilfsvar. und Quersumme *) 


BEGIN 
WRITE (‘geben Sie eine Zahl ein’); 
READLN(n); (* Zahl einlesen 
sı=(; (* Summe = 0 
k:=n; (* K = Zahl 


WHILE (k<>0 DO (* WHILE-Schleife 
BEGIN 
s:=s+k MOD 10; (* Zahl zerlegen 
k:=k DIV 10; 
END; 
WRITELN (‘Die Quersumme von $n:1) ist 5s:]); 
END. 





Die folgenden zwei Flußdiagramme machen den Unterschied zwischen der 
WHILE..DO- und der REPEAT.. UNTIL-Schleife noch einmal graphisch 
deutlich: 


u 
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WHILE <Bedingung> DO <Befehl> | REPEAT <Befehle> UNTIL <Bedingung> 


/\ 


nn 








Bedingung erfüllt Befehle ausführen 

















Befehl ausführen Bedingung erfüllt? 


’ 
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6/2.6 
Felder 





In PASCAL ist natürlich auch das Arbeiten mit Feldern erlaubt. Im Gegensatz zu 
der Basic-Anweisung DIM, kann man in PASCAL aber nicht nur die obere Feld- 
grenze, sondern auch die untere angeben. In Basic ist diese bekanntlich immer Null. 
Außerdem kann als Feldindex jeder aufzählbare Typ verwendet werden. Ein Feld 
wird in PASCAL folgendermaßen vereinbart: 


VAR <Variablenname>: ARRAY [<Bereich>] of <Typ>; 


Diese Anweisung definiert ein Feld mit dem Namen <Variablenname> der Größe 
<Bereich>, wobei die Feldelemente von Typ <Typ> sind. Um ein Feld des Na- 
mens ‘zahlen’ reeller Zahlen, die mit einem Index von 18 bis 45 versehen sind, zu 
definieren, geben wir also folgendes an: 





VAR zahlen: ARRAY [18..45] of REAL; 


oder: TYP index.bereich = 18..45; 
VAR zahlen: ARRAY [index-bereich] of real; 


oder: TYP zahlenfeld = ARRAY [18..45] of real; 
VAR zahlen: zahlenfeld; 





Um Feldelemenete im Programm ansprechen zu können, werden sie wie normale 
Variablen behandelt. Nur müssen Sie, wie Sie es auch von Basic gewohnt sind, den 
Feldindex angeben. Im Gegensatz zu Basic verwendet PASCAL jedoch eckige 
Klammern für den Feldindx. 


Als Beispiel wollen wir ein Programm betrachten, welches die folgende Aufgabe 
lösen kann: Es soll zehn Zahlen zwischen Null und Zehn einlesen und sie als 


A 
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Säulengraphic (also in Form eines Histogramms) ausgeben. Die Höhe der einzelnen 
Säulen entspricht dann den eingegebenen Werten (variiert also von 0 bis 10), wäh- 
rend die Breite der einzelnen Säulen konstant bleibt (pro Säule sind es hier 7 Zei- 
chen). Für die Eingabe der Werte 5, 10, 1, 2, 3, 4, 10, 1, 3, 9 würde dann die Ausgabe 
folgendermaßen aussehen: 














TRIER 











Zunächst entwerfen wir den Programmkopf: Als erste Konstante wird die Anzahl 
der Eingabewerte plus 1 benötigt, sie soll “intanz’ heißen. Die zweite Konstante soll 
die Anzahl der einzugebenden Meßwerte begrenzen, wir nennen sie ‘maxanz’. Um 
die Säulen bei der Ausgabe entstehen zu lassen (oder entsprechend Leerraum zu 
haben), werden als letztes noch Zeichenketten benötigt: ‘full’ als ausgefülltes Ausga- 
befeld (-----I) und ‘empty’ als leeres Ausgabefeld ( ). 


Die restlichen benötigten Parameter sind Variablen: Wir nehmen für die jeweils ak- 
tuelle Zeile die Variable Zeile, für die jeweils aktuelle Spalte die Variable Spalte. Als 
Laufvariablen der FOR-Schleifen für den Programmlauf bzw. der Ausgabe nehmen 
wiriund k. Um die Eingabe darauf untersuchen zu können, ob die Werte im zuläs- 
sigen Bereich liegen, wird noch eine boolesche Variable gültig eingeführt. Als letztes 
müssen die eingelesenen Zahlen noch in einem Feld abgelegt werden, das hier An- 
zahl heißen soll. 
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PROGRAM histogramm; 


CONST intanz =11; (* Intervallanz.+1 *) 
maxanz=10; (* max. Meßwertanzahl *) 
full =‘-----]’; (* Bildaufbau *) 
empty =‘ ’; (x 5 mal Space x) 

VAR zeile: INTEGER; (* Zeilenindex *) 


spalte: INTEGER; (* Spaltenindex *) 
k,i: INTEGER; (* Index *) 





anzahl: ARRAY [l..intanz] of INTEGER; (* Meßwertanzahl *) 
gültig: BOOLEAN; (* Flag für Eingabe gültig *) 





Im Hauptprogramm wird zunächst die Variable anzahl [intanz] auf Null gesetzt. 
Dies brauchen wir als Hilfswert, wenn wir bei der Ausgabe derGraphik immer zwei 
benachbarte Werte betrachten. Dann werden die Werte in einer FOR-Schleife einge- 
lesen. In dieser FOR-Schleife erfolgt die Eingabe der einzelnen Werte, bis die boole- 
sche Variable ‘gültig’ den Wert TRUE enthält. Dies ist genau dann der Fall, wenn 
die Eingabe im erlaubten Bereich liegt. 


BEGIN 
anzahl[intanz]:=0; 
FOR i:=1 TO intanz-1 DO 
REPEAT 
WRITE (Intervall (‘,i-1:1,‘,,1:1,°)’); 


READLN (anzahl[i]); 

gueltig:=(anzahl[i] > =0)AND(anzahl) [i] < =maxanz); 

IF NOT gueltig THEN WRITELN (‘-- Falsche Einfabe’); 
UNTIL gueltig; 








Als nächstes erfolgt die Ausgabe der Graphik. Dazu wird in einer Hauptschleife die 
Variable Zeile von zehn bis eins heruntergezählt. Da jeder’ Zahlenwert durch zwei 
Zeilen repräsentiert wird, wird die Variable k in einer weiteren Schleife eins bis 
zwei gezählt. Ist k=1 wird der Zeile der Wert vorangestellt. Dies liefert der 
IF.. THEN. .ELSE Ausdruck. 


4 
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Für jede Zeile wird nun die Spalte durchlaufen. Ist der eingelesene Wert größer oder 
gleich der Zeile, muß ‘I-----T ausgegeben werden, sonst ein leeres Feld. Dabei muß 
am rechten Rand entschieden werden, ob das Zeichen ‘I’ ausgegeben werden muß, 
falls das Ausgabefeld leer war. Dies ist für den Übergang von leeren auf volle Felder 
notwendig. 


FOR zeile:=maxanz DOWNTO 1 DO 
BEGIN 
FOR k:=1 TO 2 DO 
BEGIN 
WRITELN; 
IF k=2 THEN WRITE ( D) (» 4 mal Space *) 
ELSE WRITE (zeile:2, -P’); 
FOR spalte:=1 TO intanz-1 DO 
BEGIN 
IF anzahl [spalte] > =zeile 
THEN WRITE (full) 
ELSE 
BEGIN 
WRITE (empty) 
i:=spalte; 
IF (anzahl[i+1]>anzahl[i]) AND (anzahl[i+1]> =zeile) 
THEN WRITE (T) 
ELSE WRITE ( >); (* 1 mal Space *) 
END 
END (* spalten *) 
END (* 2mal *) 
END; (* zeilen *) 








Zum Schluß muß nur noch die Skala unter dem Bild gedruckt werden. Dies kann 
mit einfachen FOR-Schleifen erfolgen: 


WRITELN; 
WRITE ( 0 -P’); (* 5 mal Space *) 
FOR i:=1 TO intanz-l DO WRITE (full); (= 5 mal Space =) 
WRITELN; 


WRITE ( °% 
FOR i:=1 TO intanz-1 DO WRITE (€ >, il); 
WRITELN; 

END. 
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Natürlich sind in PASCAL auch mehrdimensionale Felder erlaubt. Eine einfache 
Möglichkeit, dies zu verwirklichen, geht direkt aus der Art der Definition von Fel- 
dern hervor. Wenn man als Typangabe wieder ein Feld angibt, erhält man ein mehr- 
dimensionales Feld. Eine entsprechende Definition sähe dann zum Beispiel so aus: 


VAR feld : ARRAY [1. . 10] OF 


ARRAY [20 .. 23] OF 
ARRAY [1.. 2] OF INTEGER; 





Um die zugehörige Variable ansprechen zu können, müssen dann natürlich auch 
drei Indexwerte angegeben werden. Also z.B. ‘a:=feld[5] [21] [1]. Da diese Schreib- 
weise recht umständlich ist, kann man die drei Komponenten in der Definition und 
bei Arbeiten mit Feldvariablen durch ein Komma trennen. Die oben gemachten An- 
gaben stimmen daher mit den folgenden überein: 


VAR feld: ARRAY [1..10,20..23,1..2] OF INTEGER 


bzw. a:=feld [5,21,1]; 





Das folgende Programm arbeitet mit derartigen Feldern. Es betrachtet zwei einzule- 
sende Felder a und b als Matrizen, und multipliziert diese zwei Felder zu einer Er- 
gebnismatrix c. 


Eine Matrix ist dabei eine Anordnung reeller Zahlen in einem zweidimensionalen 
Schema. Die folgende Matrix a heißt 3x4 Matrix (lies: drei-kreuz-vier Matrix), da 
sie aus drei Zeilen zu vier Spalten besteht. 


1145 
a=| 2693 
4567 


Allgemein hat a als mxn Matrix die folgende Form: 
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Man kann nun eine p*q Matrix mit einer p*r Matrix multiplizieren, und erhält 
nach der Formel 


ci; = aukbı;taia*baj+as*bs;+.. .+4ia*baj 


eine p*r Matrix. 


Beispiel: 

5384 12 58 78 

2104| *|34|=| 916 

6216 56 23 38 
12 


(denn: 58=5*1+3*3+8*5 +41, 78 = 52 +3*4 +8*6+4*2 
9=2*1+1*3+0*5+4*1, 16 = 2#2 + 1*4+0*6+4*2 
23=6*1+2*34+1*5+6*1, 38 = 6*2+2*4+1*6+6*2 ) 








Ab mark isemulin 


(® aultipliziert eine p*g mit einer ger Matrix reeller Zahlen *) 


i# Definition der Groessen der Matrizen ®) 























VAR *) 

al..q3 OF 

i..r3 OF 
ca y„dinarl- BF 
i* Matrix a *) 
’ DO 
To a Dü 

aadeln)= y 

{* Matrix bh einlesen x) 
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{ik multiplizieren #) 











H 
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6/2.7 
Unterprogrammtechnik 





Unterprogramme kennen Sie bereits aus Basic: Ein Programmabschnitt kann 
mit GOSUB von jeder beliebigen Stelle aus aufgerufen werden, und kehrt nach 
RETURN an diese Stelle zurück. Auch in PASCAL ist die Unterprogrammtechnik 
enthalten. Sie ist jedoch wesentlich weiter entwickelt, und bietet daher mehr Mög- 
lichkeiten, als die Technik des C 64 Basic. Die von PASCAL angebotenen Möglich- 
keiten erlauben das Erstellen von Prozeduren (entspricht etwa dem GOSUB... 
RETURN-Mechanismus des Basic) und von Funktionen (dies ist in einer sehr einge- 
schränkten Form mit DEF FN ebenfalls in Basic möglich). 


6/2.7.1 


Prozeduren 





Prozeduren sind die Unterprogramme in PASCAL-Programmen. Sie werden durch 
das reservierte Wort ‘PROCEDUREP? eingeleitet. Anschließend muß der Prozedur 
ein Name zugewiesen werden. Nun kann ein vollständiger Programmblock folgen, 
der eigene Variablen, eigene Typvereinbarungen und sogar wieder eigene Prozedu- 
ren enthalten kann. 


Die einfachste Form enthält also lediglich eine Folge von Befehlen, die zwischen 


BEGIN und END eingeschlossen sind. Die folgende Prozedur dient dem Löschen 
des Bildschirms: 


2 
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PROCEDURE cltscr; 
BEGIN 


WRITE (CHR(146)) 
END; 








Um die Prozedur aufzurufen, wird lediglich der Prozedurname als Befehl ange- 
geben. Dabei ist zu beachten, daß die Prozedur vor ihrem ersten Aufruf definiert 
werden muß. Ein vollständiges Programm, welches die Prozedur CLRSCR benutzt, 
sähe also etwa so aus: 


PROGRAM beispiel; 


PROCEDURE clrscr; (* Definition der Prozedur *) 
BEGIN 

WRITE (CHR(146)) 
END; 


BEGIN (* Hier beginnt das Hauptprogramm *) 


eItser; (* Aufruf der Prozedur *) 


END. 





Den Prozeduren können auch Parameter übergeben werden. PASCAL läßt dabei 
zwei Arten von Parametern zu: Wertparameter und Variablenparameter. Bei Wert- 
parametern wird einer nur in der Prozedur gültigen Variablen (einer lokalen Varia- 
blen) ein Wert übergeben. Dies kann ein beliebiger in PASCAL gültiger Ausdruck 
sein. Bei Variablenparametern wird der Prozedur der Name einer Variablen über- 
geben. Die Prozedur benutzt dann die übergebene Variable. 


Die Liste der Parameter folgt dem Prozedurnamen, und wird in Klammern einge- 
schlossen. Jedem Parameter muß der Typ durch einen Doppelpunkt getrennt folgen. 
Dabei können mehrere Parameter gleichen Typs wieder durch Kommata getrennt 
werden. 
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Variablenparametern wird das reservierte Wort ‘VAR’ vorangestellt. Die einzelnen 
Parametervereinbarungen werden, wie wir von der Variablenvereinbarung gewohnt 
sind, durch ein Semikolon getrennt. 


Versuchen Sie herauszufinden, welche Ausgabe das folgende Programm liefert: 


PROGRAM demo; 

VAR a,b,c: INTEGER; 

PROCEDURE test (a:INTEGER; VAR b:INTEGER); 
VAR c:INTEGER; 


BEGIN 
c=3; 
WRITELN (a,b;c); 


a:=5; b:=7; 
WRITELN (a,b;c) 
END; 


BEGIN 
a:=19; b:=8; c:=1 
WRITELN (a,b,.c); 
test (b,a); 
WRITELN (a,b,c) 
END. 





Das Programm weist den Variable a, b und c zunächst die Werte 19, 8 und I zu, 
und gibt diese Werte aus. Anschließend wird die Prozedur TEST aufgerufen. Laut 
der Parametervereinbarung wird der erste Parameter als Wertparameter, und der 
zweite Parameter als Variablenparameter übergeben. In der Prozedur ist die Variable 
c vereinbart, welcher der Wert 3 zugewiesen wird. Die nächste Ausgabe lautet also 
8193, 


Dann werden a und b neu besetzt. So erfolgt die Ausgabe ‘5 7 3°”. Nach dem END- 
Befehl wird das Programm im Hauptprogramm fortgesetzt. Die Variable c war in 
der Prozedur lokal gültig, im Hauptprogramm wird ihr Wert also wieder durch den 
alten Wert von c ersetzt, welcher noch immer 1 ist. Die Variable b wurde als Wert- 
parameter übergeben, und hat daher im Hauptprogramm immer noch den Wert 8. 
Die Variable a war hingegen ein Variablenparameter und wurde in der Prozedur 
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unter dem Namen b angesprochen. Sie erhielt in der Prozedur den Wert 7, und lie- 
fert ihn daher auch im Hauptprogramm. Die vollständige Ausgabe des Programms 
lautet also: 





Wird eine Variable in der Prozedur nicht gefunden, wird sie im nächst höheren 
Block gesucht, in unserem Beispiel also im Hauptprogramm. Die Gültigkeit wurde 
bereits in der Einleitung gezeigt. Vergleichen Sie die Graphik aus Kapitel 6/2.1 mit 
den hier gemachten Angaben. Auf diese Weise können Variablen auch global im ge- 
samten Programm verwendet werden. Dieser ‘Seiteneffekt’ kann aber auch gefähr- 
lich werden, denn wenn Sie die Deklaration einer Variablen vergessen, wird ggf. eine 
Variable aus dem übergeordneten Block verwendet. 


Ein Beispiel für den Gebrauch der sogenannten Vorwärtsdeklaration ist das fol- 
gende Programm. Es berechnet die Hilbertkurven der Ordnung eins bis sechs, und 
stellt diese als gemeinsame Graphik auf dem Bildschirm dar. Die Hilbertkurven der 
Ordnung eins bis drei zeigt Bild 6/2.7-1, und das Resultat des Programms Bild 
6/2.7-2. Da sich die Hilbertkurven aus Drehungen und geeigneten Verbindungs- 
linien der Hilbertkurve der Ordnung 1 zusammensetzen, ist für jede Richtung eine 
Prozedur mit Namen a,b,c bzw. d definiert worden. Diese Prozeduren rufen sich ge- 
genseitig auf, und zeichnen so die Gesamtkurve. Die hier bereits verwendeten Gra- 
phikbefehle werden wir später noch genauer betrachten. 


Wie ist es überhaupt möglich, daß sich die Prozeduren gegenseitig aufrufen? Die 
Bedingung für die Definition einer Prozedur besagt, daß sie vor ihrem ersten Aufruf 
definiert sein muß. Eine solche Anordnung ist aber hier nicht möglich. Daher wer- 
den die Prozedurköpfe bereits vor der eigentlichen Prozedur definiert, und mit dem 
reservierten Wort ‘FORWARD’ dem Compiler mitgeteilt, daß die Definition später 
erfolgt. Bei den Definitionen braucht man die Parameterliste dann nicht mehr an- 
geben. 
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Für unsere drei Prozeduren lautet diese Vorwärtsdeklaration dann: 





PROCEDURE b(:INTEGER); FORWARD; 
PROCEDURE c(G:INTEGER); FORWARD; 


PROCEDURE d(i:INTEGER); FORWARD; 





Die eigentliche Definition kann dann später erfolgen. Sie sieht für unsere Prozedur 
a folgendermaßen aus: 


PROCEDURE alti:integer); 
BEGIN IF i>0 THEN BEGIN 
d(i-1); x:=x-h; plotit; 
adi-1); y:=y-h; plotit; 
ad-l); x:=x+h; plotit; 
bG-); 
if GETKEY< >CHR(0) THEN GOTO 1; 
(* Abbruch bei Tastendruck *) 
END 





Ordnung: 1 Ordnung: 2 Ordnung: 3 





Bild 6/2.7-1 Die Hilbertkurven der Ordnung 1, 2 und 3 


U 
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Hier folgt nun das vollständige Programm: 





chnet die Hilbe 





Abbruch mit 












i* Linie von alter Fos. 


b,c und d #) 








etieimke 
Itisim 








pilot 





{8 Alt 


THEN GOTO 
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hz; piotity 
h3; poloti 


‚sth plotiks 





schalten #5 
nm %) 








MIET f {O}3 INK{l)3 





I 


Y h DIV 





(# Hilbertkurven zeichnen 














Beachten Sie bitte, daß der Bildschirm nicht das gesamte Resultat anzeigt. Das Pro- 

‘gramm erzeugt die Bilder auf einem quadratischen Bildschirm mit einer Seiten- 
länge, die eine Potenz von 2 sein muß. Auf dem Bildschirm des C 64 wäre also maxi- 
mal die Seitenlänge 128 (=27) vollständig darstellbar. Dies ist natürlich etwas zu 
klein. Im Programm wurde daher die Größe 256 (=2°) angegeben. Da der C 64 aber 
nur eine Auflösung von 320*200 Punkten besitzt, wird der obere Teil der Lösung 
abgeschnitten. Sollte Sie dies stören, können Sie die Konstante hO auf den Wert 128 
setzen. 
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2.7 Unterprogrammtechnik 
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Bild 6/2.7-2 Das Ergebnis des Programmlaufs. 
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6/2.7.2 


Funktionen 





Sicherlich kennen Sie aus dem BASIC des C 64 die Möglichkeit, mit Hilfe des DEF 
FN-Befehls eine eigene Funktion zu definieren. In PASCAL haben Sie diese Mög- 
lichkeit auch. Allerdings ist hier die Funktion nicht auf eine Programmzeile be- 
schränkt. 


Funktionen sind in PASCAL eigentlich das gleiche wie Prozeduren, und werden 
daher gelegentlich auch als Funktionsprozeduren bezeichnet. Der Unterschied liegt 
nur darin, daß Funktionen einen Funktionswert zurückliefern. Sonst können sie, 
wie die Prozeduren, aus einem vollständigen Programmblock, eigenen Variablen- 
und Typvereinbarungen und eigenen Prozedur- oder Funktionsdefinitionen be- 
stehen. 


Um die Funktion von der Prozedur zu unterscheiden, wird sie durch das reservierte 
Wort „FUNCTION“ eingeleitet. Dann folgt, wie bei der Prozedur, der Funktions- 
name und gegebenenfalls die Parameterliste. Auch bei den Funktionen sind Wert- 
und Variablenparameter zugelassen. 


Da eine Funktion einen Wert zurückgeben kann, müssen wir bei den Funktionen 
noch den Typ des Rückgabewertes angeben. Diese Angabe erfolgt wie bei einer 
Variablendefinition. Der Typename wird, durch einen Doppelpunkt getrennt, hinter 
die Vereinbarung (hier: hinter der Paramceterliste) geschrieben. 


Hier ein paar Beispiele für zulässige Funktionsköpfe: 





FUNCTION test(a,b,c: INTEGER; VAR i:REAL) ı REAL; 
FUNCTION fact(in: INTEGER) : INTEGERI 
FUNCTION kleiner :BOOLEANg 





Um die Handhabung von Funktionen kennenzulernen, wollen wir ein kleines Pro- 
gramm schreiben, welches die ersten acht Zeilen des Pascalschen Dreiecks berech- 
net. Der Name „Pascalsches Dreieck“ stammt nicht etwa von der hier verwendeten 
Programmiersprache, sondern wieder von dem französischen Mathematiker Blaise 
Pascal. 


19 
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Sehen wir uns zunächst die Ausgabe des Programms an: 


[e} 
1 
2 
3 
4 
5 
& 
7 





Ganz links steht die Nummer der Zeile. In dem Dreieck stehen die Binominalkoeffi- 
zienten: 











Eine praktische Bedeutung haben die Binominalkoeffizienten im Bereich der Kom- 
binatorik. Sie geben an, wie viele Möglichkeiten man hat, k Objekte. aus n Objekten 
auszuwählen. So gibt es zum Beispiel 49 über 6 (= 13.983.816) Möglichkeiten, einen 
Block auf dem Lottoschein auszufüllen. Daher ist die Chance, 6 Richtige im Lotto 
zu haben, 1 zu 13.983.816. 
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Das Pascalsche Dreieck bietet eine einfache Möglichkeit, die Binominalkoeffizien- 
ten zu berechnen, denn es gilt: 








Damit hat man die ersten zwei Zeilen bereits vollständig, und für die restlichen 
Zeilen die Ränder: 


Uber 





Die restlichen Zeilen ergeben sich nun, indem man die beiden links und rechts über 
der zu berechnenden Zahl stehenden Werte addiert: 


2=i+i1 

I=1+2, I=2+1 

4=el+r3, 6=ir3, 4estl 
5=1j+4, 10=m4+6, usw. 


o 
ı 
2 
3 
4 
Ss 





Nach diesem Ausflug in die Mathematik zurück zu unserem Programm. Wir wer- 
den die Berechnungsmöglichkeit mit dem Pascalschen Dreieck nicht benutzen, son- 
dern einfach die oben angegebene Formel verwenden. Dies hat den Nachteil, daß 
wir mit INTEGER-Zahlen nur bis zur achten Zeile kommen, dann wird in der 
Fakultätsberechnung der Zahlenbereich überschritten. Aber um Funktionen ken- 
nenzulernen, reicht dies völlig aus. - 


Wir beginnen unser Programm wie üblich mit der Vereinbarung des Programm- 
namens. Als Variablen vereinbaren wir hier spalte und zeile für die spätere Ausgabe. 
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PRÜGRAM pascal_dreieckz (X berechnet die ersten 8 
i Zeilen des Fascalschen Dreiecks %) 
VAR zeile,spalte: INTEGER; (X Zeile und Spalte für die 
Ausgabe x) 





Dann folgt die Vereinbarung der Fakultätsfunktionen „fakultaet‘. Sie erhält einen 
Übergabeparameter n und liefert einen Wert des Typs INTEGER. Da wir uns jetzt 
noch nicht mit der Art der Berechnung beschäftigen wollen, verschieben wir die 
Definition mit der Anweisung „FORWARD‘“‘ auf später. 





(X die Fakultaetsfunktion folgt später 


FUNCTION fakultaet(n:INTEGER) :INTEGER+ FORWARD; 





Die Funktion „binomi‘“ berechnet uns „‚n über k‘“ Sie erhält dazu die Übergabe- 
parameter nr und X und liefert uns dann einen ganzzahligen Wert zurück. In der 
Funktion verwenden wir die lokale Hilfsvariable „bruch‘“ In ihr speichern wir das 
Zwischenergebnis „K!x{n-k)!“. Das berechnete Ergebnis wird als Funktionsergebnis 
zurückgeliefert, indem den Funktionsnamen „binomi‘“ mit dem Zuweisungsopera- 
tor „=“ ein Ergebnis zugewiesen wird. 


Der Funktionsname verhält sich praktisch wie eine Variable. Allerdings darf er nur 
links von dem Zuweisungsoperator stehen, denn wenn er rechts von dem Zuwei- 
sungsoperator steht, wird er als Funktionsaufruf behandelt. 








(X Berechnen der Binomialkoeffizienten n über k *) 
FUNCTION binomi(n,kı INTEGER) : INTEGER; 
VAR bruch: INTEGER; {k Hilfsvariable *) 
BEGIN 
bruchs=fakultaet(k)XFAKULTAET(n-k)s (X bruche kKikln-k)! x) 
binomi:=fakultaet(n) DIV bruchz (X Ergebnisen!/bruchk) 
END; 











Jetzt wollen wir die Definition der Fakultätsfunktion „fakultaet“‘ nachholen. Wir 
haben die Fakultät einer Zahl schon auf viele Arten programmiert. Hier wollen wir 
eine weitere Variante kennenlernen. Sie wissen, daß die Fakultät einer Zahl n als 
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n*(n-1)*(n-2)*(n-3)* ... *1 





berechnet wird, und daß 0? eins ergibt. Wenn Sie sich die Formel für. z genau an- 
sehen, erkennen Sie, daß 





n!=n+(n-1)! 








ist. Von dieser Tatsache machen wir hier Gebrauch: 





(X jetzt die Definition von fakultaet x) 
FUNCTION fakultaetz 
BEGIN 
IF n=0 THEN fakultaetı=i (KO! = 1 x) 
ELSE fakultaetsenkfakultaet(n-1); (kn! = nkin-l)! *) 
END; 





In der Fakultätsfunktion testen wir, ob rn Null war. Dann liefern wir als Funktions- 
ergebnis die 1. Andernfalls wenden wir unsere Regel an und schreiben 


fakultaet:=n*fakultaet(n-1) 








Die Funktion ruft sich an dieser Stelle selbst auf. Da dabei n um 1 vermindert wird, 
ist sichergestellt, daß die Funktion irgendwann einmal mit der Berechnung von 0! 
beendet wird. Diese Technik wird „Rekursion‘‘ genannt. 


Was uns nun noch fehlt, ist das Hauptprogramm. In ihm lassen wir eine Schleife 
„zeile‘“ über die Zeilen laufen und darin eine Schleife „spalte‘“ über die Spalten. Was 
bleibt, ist die Ausgabe der Zeilennummer „zeile‘“ an der linken Seite und das Ein- 
rücken auf die erste Position. Letzeres erfolgt durch die Ausgabe eines Leerzeichens 
in einem Feld der Länge /5-zeile=2. Diese Ausgabe kommt einem Tabulator-Befehl 
gleich. 
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BESIN (X Hauptprogramm *) 
FOR zeiles=0 TO 7 DO (% 7 Zeilen berechnen x) 
BEGIN 

WRITE(zeile:sS,' ’ı15-zeileX2); (% Nummer ausgeben und 
zur ersten Position %) 
FOR spalte:=0 TO zeile DO {X Anzahl Spalten = 
Nummer der Zeile +1 *) 
WRITE(binomi (zeile,spalte)ı4)ı(% Wert ausgeben *) 
WRITELN? {k neue Zeile x) 
END; 
END. 








Merke: Eine Funktionsdefinition beginnt mit dem reservierten Wort FUNCTION. 


Der Parameterliste muß der Typ der Funktion, durch einen Doppelpunkt 
getrennt, folgen. 


Dem Funktionsnamen kann innerhalb der Funktionsdefinition ein Wert 
durch den Zuweisungsoperator „:=‘‘ zugewiesen werden. Dieser Wert ist 
der Rückgabewert der Funktion. 


Steht der Funktionsname rechts von dem Zuweisungsoperator „;=*‘, gilt 
dies als Funktionsaufruf. 
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6/2.8 
Strukturierte Datentypen 





PASCAL bietet eine ganze Reihe von Datentypen. So haben wir bereits die Typen 
CHAR, INTEGER, REAL und BOOLEAN als Grundtypen kennengelernt. Dar- 
über hinaus konnten wir eigene Typen in Form von Aufzählungen definieren und 
Felder von Variablen vereinbaren. 


In den folgenden Kapiteln werden wir darüber hinausgehen. Wir werden Variablen 
zu Verbunden zusammenfassen, die Dateiverwaltung besprechen, den Typ der 
Menge kennenlernen und uns mit Zeigern beschäftigen. 


6/2.8.1 


Verbunde 





Beginnen wir mit den Verbunden. Ein natürlicher Verbund ist die Adresse eines 
Menschen. Sie besteht aus den Komponenten Straße, Hausnummer, Postleitzahl 
und Wohnort. Wir wollen hier noch den Namen und den Vornamen hinzuzählen. 


All diese Komponenten fassen wir unter dem Begriff Adresse zusammen. PASCAL 
bietet uns die Möglichkeit, dies in der Programmiersprache nachzubilden. Mit 
unseren bisherigen Kenntnissen müßten wir die Komponenten einzeln vereinbaren: 


VAR name, vorname : FPACKED ARRAY [1..20] OF CHAR; 
strasse, ort : FACKED ARRAY [1..20] OF- CHAR} 


plz, haus ı INTEGER3; 
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Wollen wir dies unter dem Namen Adresse zusammenfassen, benutzen wir die 
RECORD-Anweisung: 





TYPE string = PACKED ARRAY [1..201 OF CHAR; 


adresse = RECORD 
name, vorname :ı string; 
strasse, ort : string; 
plz, haus »  INTEGER; 
END; 


VAR Namei, Name? : adresse; 


Wir haben uns einen Typ mit dem Namen adresse definiert, welcher aus den Kom- 
poneneten name, vorname, strasse, ort, plz und haus besteht. Das abschließende 
END beendet den Verbund. 











In der nachfolgenden VAR-Anweisung werden zwei Variablen namel und name2 de- 
finiert, die von der Struktur des Typs adresse sind. Wir hätten das gleiche mit der 
Anweisung 


VAR namei, name? : RECORD 


name, vorname strings 


N 
strasse, ort ; string; 


plz, haus 
END; 


INTEGER; 








erreichen können. Dann hätten wir für das folgende Programm aber den Typ 
adresse nicht zur Verfügung. Vielleicht brauchen wir ihn ja noch einmal. 


Nehmen wir nun an, Sie wollen ein Feld für 100 Personen anlegen. In Sprachen wie 
BASIC müßten Sie dann für jede Komponente ein Feld anlegen und verwalten. 
Anders in PASCAL: 





VAR personen : ARRAY [1..100] OF adresse; 
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Variablen des Types „adresse“ lassen sich wie alle anderen Variablen benutzen. Eine 
Zuweisung der Form 





namel := name} 





bewirkt daher, daß alle Komponenten von „namel‘ auf die Werte der Komponen- 
ten von „name2‘‘ gesetzt werden. 


Merke: Verbunde werden wie normale Variablen behandelt. 


Was uns noch fehlt, ist eine Möglichkeit, einzelne Komponenten eines Verbundes 
anzusprechen. Aber auch dies ist ganz einfach. Wir brauchen nur hinter den Varia- 
blennamen den Komponentennamen, durch einen Punkt getrennt, zu schreiben. 
Dann bezeichnet 





namei.name den Familiennamen der Person in name? 
namei.vorname den Vornamen der Person in name? 

namel.strasse die Straße der Person in name? 

namel.ort den Wohnort der person in name? 

namet.plz die Postleitzahl des Wohnortes der Person in name? 
name1.haus die Hausnummer der Person in name 











Diese Ausdrücke repräsentieren Variablen. Man kann ihnen daher Werte zuweisen 
oder Werte aus ihnen lesen. 


Merke: Die Komponenten eines Verbundes können angesprochen werden, indem 
hinter den Variablennamen des Verbundes der Komponentennamen, durch 
einen Punkt getrennt, geschrieben wird: 


<Verbund_Name >.<Komponenten _Name> 


Probieren Sie nun das folgende kleine Beispiel aus. Es liest die Daten von fünf Per- 
sonen ein und ermittelt dann, welche Person mit welcher Person in einem Haus lebt: 





PROGRAM person vergleich; 


CONST pers_zahi = 55 (X Anzahl der Fersonen *%) 
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— 


TYPE string = FACKED ARRAY[1..10] OF CHAR; (% String def. %) 


adresse = RECORD (X Verbund fuer "adresse" x) 
name, vorname: string; 








strasse, ort :ı string; 
plz, haus ı INTEGER;z 
END 
VAR persons ARRAY[L..pers_zahl] OF adresse; (% Feld der 
Fersonen x) 
pl,pZı adresse; (% Zwei Variablen fuer den 
Vergleich x) 
i,j: INTEGER; {%X Laufvariablen x) 
(k Einlesen einer Adresse x) 
PROCEDURE einlesen (VAR nameradresse); 
BEGIN 
WRITELNG (X neue Zeile *) 
WRITE( ' Vorname Dr READLN(name.vorname)ı (% Vorname x) 
WRITE( Name: ‘); READLN(name.name); (k Name x) 
WRITE(' Strasse: “); READLN{name.strasse); (% Strasse *) 
WRITE( ‘Hausnummer: ')3 READLN(name. haus); (% Nummer *) 
WRITE( "Wohnort: ")r READLN(name.ort); (X Ort x) 
WRITE('Fiz.ı "); READLN(name.plz); (k Fiz %) 
END: (X einlesen %) 
BEGIN 
FOR is=i TO pers_zahl DO (X alle Fersonen einlesen %) 
einlesen (person[li})j ? 
FOR ir=1 TO pers_zahl-1 DO (% jede Person „.. *) 
FOR jı=i+i TO pers_zahl DO(X .„.. mit jeder testen x) 
BEGIN 
pl:ı=person[li]s (X pi und p2 sind die %) 
pZ:=personlj]lj [6 Fersonen *%) 
IF (pi.ort=p2,.ort) AND(X Ort gleich ? x) 
{pl.plz=ep2.plz) AND(X und Plz gleich ? *) 
(pi.strasse=p2.strasse) AND(X u.Strasse gleich?x) 
(pl.haus=p2.haus) THEN (X und Haus gleich? x) 
BEGIN (k ja, dann Namen ausgeben X) 
WRITE (pi.vorname,'’ ',pi.name)j 
WRITE (° lebt bei ‘);3 
WRITELN(p2.vorname,’ '„p2.name); 
END; (% Then %) 
END; (k For 3 %) 
END. 
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Betrachten wir noch einmal die Prozedur einlesen. Leider ist in PASCAL nicht vor- 
gesehen, Verbunde einzulesen. Wir müssen daher die Komponenten einzeln ein- 
lesen. Dies ist aber nicht unbedingt ein Nachteil von PASCAL, denn ohne die 
Angabe, welche Komponente gerade eingelesen werden soll, ist der Benutzer so- 
wieso ziemlich ratlos. Und für diese Angabe benötigen wir nun einmal voran- 
gehende WRITE-Befehle. 


Aber an einer anderen Stelle erleichtert uns PASCAL die Arbeit. In der Prozedur 
einlesen bezogen sich alle Komponentenangaben auf die Variable name. PASCAL 
bietet für solche Fälle die Möglichkeit, dies dem Compiler mitzuteilen. Man erreicht 
dies durch die Anweisung 


WITH <var_name> DO 





wobei <var_name> hier für den gewünschten Variablennamen steht. Ändern wir 
also unsere Prozedur einlesen also etwas ab: 


PROCEDURE einlesen (VAR namsıadresse); 
BEGIN 
WRITELNG 
WITH name DO BEGIN 
WRITE" Vorname: *)s READLN(vorname); 
WRITE Name: ")3 READLN(name)? 


WRITE(' Strasse: ‘)s READLN(strasse); 
WRITE Hausnummer s ‘ READLN(haus)a 
WRITE( Wohnort: "33 READLN(ort); 
WRITE(' Plz. )3 READLN(plz)} 
END; (% With x) 
END: (% einlesen %*) 





Wie Sie sehen, konnten wir uns 6 mal die Angabe „name‘‘ sparen. 


Merke: Mit der WITH... DO-Anweisung kann ein Abschnitt festgelegt werden, 
in dem sich alle Komponentennamen auf einen Verbund beziehen. 


Manchmal ist es sinnvoll, einen Verbund in verschiedenen Variationen zu definie- 
ren. Wenn wir bei unserem Beispiel der Personendaten bleiben, kann es zum Bei- 
spiel sinnvoll sein, je nach Geschlecht oder Familienstand verschiedene weitere 
Daten hinzuzunehmen. Mit unseren bisherigen KenDlamsen haben wir zwei Mög- 
lichkeiten, dies zu realisieren: 
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Die erste Möglichkeit besteht darin, für jeden Fall einen eigenen Verbund zu definie- 
ren. Dann müßten wir aber auch bei den Feldern für jeden Verbund ein entspre- 
chendes Feld definieren, was zu einer großen Speicherplatzverschwendung führt. 


Als zweite Möglichkeit könnten wir alle möglichen Komponenten in einen Verbund 
definieren und dann nur die Komponenten benutzen, welche für unseren Fall gerade 
von Bedeutung sind. Diese Methode kann man vertreten, wenn wesentlich mehr 
gleiche Komponenten als verschiedene Komponenten in dem Verbund vorkommen. 
Sonst vergeuden wir auch hier Speicherplatz. 


PASCAL bietet uns hier eine interessante Alternative: den varianten Verbund. Bei 
dem varianten Verbund hat man die Möglichkeit, eine Variable anzugeben, welche 
bestimmt, wie der Rest des Verbundes aufgebaut ist. Dies schen wir uns am besten 
an einem Beispiel an. In dem folgenden Programm ist der Verbund adresse als 
varianter Verbund aufgebaut: 





PROGRAM personen; 
CONST pers_zahl = 5; 


TYPE string = PACKED ARRAY[L1..10] OF CHAR; 
t_geschl=(maennlich weiblich); 


adresse = RECORD 
name, vornameı strings 
strasse, ort : string; 
plz, haus ı INTEGER} 
CASE geschlechtit_geschl OF 
maennlich: (alter: INTEGER3 
baertig:O..1)3 
weiblich: (verheiratetıO..ij 
haarfarbe: INTEGER)} 
END3 
VAR person: ARRAY[Li..pers_zahl] OF adresse: 
i:INTEGER; 








| 


Die Komponenten name, vorname, plz, ort, strasse und haus sind geblieben. Sie ge- 
hören zu den gemeinsamen Komponenten. Daher hat sich bisher am Programmtext 
nichts geändert. Dann folgt die Anweisung 











PASCAL Teil 6 Kapitel 2.8.1 Seite 7 











2.8 Strukturierte Datentypen Teil 6: Weitere Programmiersprachen 


CASE geschlecht : t_geschl OF 








Mit dieser Anweisung wird der variante Teil des Verbundes eingeleitet. Die Variabe 
geschlecht wird als weitere gemeinsame Komponente in den Verbund aufgenom- 
men. Da sie vom Typ /_geschl ist, kann sie nur die Werte männlich oder weiblich 
annehmen. Dieser Wert entscheidet nun über den weiteren Aufbau des Verbundes. 


Hat die Variable geschlecht den Wert männlich, so sollen in dem Verbund noch die 
Komponenten alter und baertig aufgenommen werden. Diese Komponenten werden 
in der ersten Klammer vereinbart. 


Hat die Variable geschlecht hingegen den Wert weiblich, so sollen in dem Verbund 
noch die Komponenten verheiratet und haarfarbe aufgenommen werden. Diese 
Komponenten werden in der zweiten Klammer vereinbart. 


Könnte die Variable geschlecht noch weitere Werte annehmen, so müßte man für 
diese Werte weitere Listen in der CASE-Anweisung aufnehmen. 


Mit dem Zugriff auf die Komponenten muß man als Programmierer aber sehr vor- 
sichtig sein. Zumindest bei Oxford-PASCAL ist es möglich, auf alle Komponenten 
zuzugreifen, unabhängig welchen Aufbau der Verbund gerade hat. Sie müssen da- 
her in Ihrem Programm sicherstellen, daß Sie nur auf Komponenten zugreifen, die 
auch vorhanden sind. Betrachten wir dies am Beispiel der Prozedur einlesen. 






PROCEDURE einlesen (VAR name:radresse)ı 
VAR gesch: Q..ir 
BEGIN 
WRITELNG 
WITH name DO BEGIN 
WRITE( ‘Vorname: y 
WRITE’ Name: ’ 
WRITE’ Strasse: : 
WRITE Hausnummer: ‘ 
WRITE Wohnort: & READLN(ort); 
WRITE Plz.: ’ READLN (plz)35 
WRITE('Geschl.0/1 "); READLN(gesch); 
IF gesch=0 THEN geschlecht:=weiblich 
ELSE geschlechti=maennlicht 
CASE geschlecht OF 
naennlich:sBEGIN 


RERDLN(vorname); 
READLN (name); 
READLN (strasse)j 
READLN (haus); 


ÄPTEERREE PERF PEEFE 


) 
’ 
I 
} 
) 
} 
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— 





WRITE( "Alter: ‘)3 READLN(alter); 
WRITE( 'Baertig? ")3 READLN(baertig)} 
END; 
weiblich :BEGIN 
WRITE( ' Verheiratet‘); READLN(verheiratet)ı 
WRITE( Haarfarbe: ')ı READLN(haarfarbe); 
END; 
END: 
END; 


END} 


Das erste Problem begegnet uns beim Einlesen des Geschlechts. PASCAL kann 
keine selbst definierten Typen einlesen. Der Einfachheit halber lesen wir in diesem 
Beispiel nur 0 oder 1 ein und setzen mit dem nachfolgenden IF-THEN-ELSE-Kon- 
strukt die Variable „geschlecht‘“ auf den richtigen Wert. 








Dieses Problem hat mit der Verwendung eines Verbundes natürlich nichts zu tun, 
sondern ist ein allgemeines Problem bei selbstdefinierten Typen. 


Den Zugriff auf die varianten Komponenten erledigt man am besten in einer CASE- 
Konstruktion, welche den Aufbau des varianten Verbundes widerspiegelt. Je nach 
Geschlecht greifen wir auf die Komponenten „alter“ und „baertig‘“ oder auf die 
Komponenten „verheiratet“ und „haarfarbe‘ zu. 


Merke: Der variante Verbund hat den allgemeinen Aufbau: 


RECORD 
<Variablenliste> : <Datentyp>; 
<Variablenlitte> : <Datentyp>; 


< Variablenliste> : <Datentyp>; 

CASE <Variable>: <Datentyp> OF 
<Konstantenliste> : ( <Komponentenliste> ); 
<Konstantenliste> : ( <Komponentenliste> ); 
<Konstantenliste> : ( <Komponentenliste> ) 

END; 
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6/3 
FORTH 


(Autor: Rainer König) 





FORTH ist mehr als eine Programmiersprache, der Ausdruck „Programmier- 
umgebung“ trifft hier wesentlich besser, da FORTH eigentlich eine Synthese aus 
Programmiersprache, Betriebssystem und Testhilfen ist. 


FORTH wurde in den frühen 70er-Jahren von dem Amerikaner Charles Moore ent- 
wickelt, er wollte eine Sprache schaffen, die schnell und einfach zu handhaben ist. 
Moore setzte FORTH auf einer PDP-1 zur Steuerung von astronomischen Tele- 
skopen ein. Das Betriebssystem dieses Rechners konnte jedoch nur Dateinamen mit 
bis zu 5 Zeichen verarbeiten, aus diesem Grund entstand aus dem ursprünglichen 
beabsichtigten Namen „FOURTH“ (Sprache der vierten Generation) die Kurzform 
FORTH. Auch heute wird FORTH vorwiegend zu Steuerungsaufgaben eingesetzt, 
sogar in der Weltraumfahrt. Aber auch andere Aufgaben sind mit FORTH zu bewäl- 
tigen. 


Um nun Ihr Interesse an dieser Sprache restlos zu wecken, wollen wir einen kleinen 
Fragebogen bringen. 


— Können Sie sich eine Programmiersprache vorstellen, in der Sie Ihre Anweisun- 
gen ab einem gewissen Level fast schon in Umgangssprache an den Computer 
formulieren können? Ein Beispiel wäre die Belichtungszeitsteuerung im Foto- 
labor, hier wäre es doch toll, wenn der Computer den Satz „Lampe an, 10 sec 
warten, Lampe aus‘ verstehen könnte. 


— Können Sie sich eine Programmiersprache vorstellen, in der Sie sowohl direkt 
auf Maschinenebene aber auch in Hochsprachenebene programmieren können, 
und das in allen Fällen strukturiert, auch in der Maschinenebene? 


— Können sie sich eine Programmiersprache vorstellen, in der Sie den Compiler, 
also den Umfang der Sprache selbst erweitern können? 


— Können Sie sich eine Programmiersprache vorstellen, im der sich die Entwick- 
lungszeit für Ihre Programmierprobleme drastisch reduziert? 


Wenn Ihre Antwort auf eine dieser Fragen „Nein“ lautet, dann sollten Sie unbedingt 
weiterlesen, denn FORTH ist diese Sprache. 
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6/3.1 
Erste Schritte in FORTH 





So, nun sollen die ersten Schritte in FORTH gemacht werden, also schalten Sie am 
besten Ihren Computer an und starten Sie Ihr FORTH-System, denn am einfachsten 
ist es, wenn man die Beispiele sofort nachvollziehen kann. Unsere Beispiele verwen- 
den das C-64-FORTH von Performance Micro Productions, da FORTH aber eine 
sehr gut standardisierte Sprache ist, lassen sich die Beispiele auch auf jedem ande- 
ren FORTH-System nachvollziehen. Aber seien Sie gewarnt: FORTH ist anders, es 
zeigt nur sehr wenig Verwandtschaft mit anderen Programmiersprachen. Und vor 
allem: Wenn einen das FORTH-Fieber erst einmal gepackt hat, dann vergißt man 
solche Sprachen wie BASIC nur allzugern, FORTH macht süchtig. Aber Scherz bei- 
seite, inzwischen dürfte Ihr FORTH-Compiler geladen und gestartet sein, und er 
meldet sich mit einem simplen „OK“. Das erinnert irgendwie an BASIC, hier meint 
der Computer eben „READY“, Forth ist eine weniger „fertige“ Sprache, in FORTH 
ist eben alles „OK“. Um nur mal so nebenbei den Sprachumfang aufzuzeigen, geben 
wir gleich mal das Wort VLIST ein und drücken die RETURN-Iäste. Hoffentlich 
fallen Sie jetzt nicht vor Schreck vom Stuhl, denn das, was jetzt alles auf dem Bild- 
schirm vom Computer erscheint ist der Grundwortschatz von FORTH, es dürften 
so um die 250-400 Worte sein. Doch 'keine Panik! Immerhin konnte man ja schon 
einige bekannte Wörter ausmachen, z.B. „+“ „—“ und die anderen Rechen- 
symbole, also wird FORTH doch hoffentlich rechnen können ... 


Somit wollen wir uns nun gleich mit einigen Rechenbeispielen befassen. Hier er- 
leben wir nun auch sofort die erste Besonderheit von FORTH, es rechnet nämlich 
mit UPN. Was ist denn das??? 


.UPN ist die Kurzform für „Umgekehrt polnische Notation‘; keine Angst, Sie müs- 
sen der polnischen Sprache nicht mächtig sein, um UPN zu verstehen, der Name 
kommt nur daher, daß ein polnischer Mathematiker als erster die Idee hatte. Um 
Rechnungen an den Computer zu formulieren, kann man ja verschiedene Schreib- 
weisen verwenden, z.B. 2+3, hier wird also erst der erste Operand (2) angegeben, 
dann die Operation (+) und schließlich der zweite Operand (3). Diese Form ist in 
den meisten Programmiersprachen üblich. UPN heißt nun nichts anderes, als daß 
man zuerst alle Operanden angibt, und dann die Operation, die damit auszuführen 
ist. Die Taschenrechner der Firma HP arbeiten beispielsweise mit dieser Technik. 


Im gewählten Beispiel müßte man also 2 3 + schreiben. Geben wir es doch mal in 
FORTH ein, so erscheint das gewohnte OK, es sei denn, Sie haben die Leerzeichen 
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zwischen den Operanden und dem Operator nicht eingegeben. Das Leerzeichen ist 
in FORTH nämlich sehr wichtig, es trennt die einzelnen Worte im Befehlsstrom. 


OK, ganz gut, aber wo ist das Ergebnis? Machen wir es nicht so spannend, geben 
Sie einfach den Dezimalpunkt ein (.), und FORTH liefert das korrekte Ergebnis, 
nämlich 5. 


Was ist nun eigentlich passiert? Durch die Angabe der Zahl 2 wurde FORTH ver- 
anlaßt, diese Zahl auf dem Datenstack abzulegen. Der Datenstack ist ein Speicher- 
bereich, der wie ein Stapel funktioniert. Man kann Informationen hereinschreiben 
und herausholen, aber nur nach einem System, dem LIFO-System (Last In First 
Out). Das bedeutet nur, daß man den letzten hineingeschriebenen Wert als ersten 
wieder ausliest. Die ganze Stapelei läßt sich ganz einfach mit einem Kartenstapel 
vergleichen, auf den man nur oben Karten drauflegen kann, oder eben von oben 
Karten wegnehmen kann. In unserem Beispiel haben wir eben eine Karte mit der 
Zahl 2 abgelegt. Im nächsten Schritt geschieht dasselbe, nur eben mit der Zahl 3. 
Nun stehen also schon zwei Zahlen auf dem Stack, zuoberst die 3. Das + bewirkt 
nun, daß die beiden obersten Werte vom Stack geholt werden, dann werden sie ad- 
diert und das Ergebnis wird auf den Stack gelegt. Die beiden Operanden sind dann 
allerdings verloren. Mit . wird dann das oberste Stackelement auf dem Bildschirm 
ausgegeben, und dadurch auch vom Stack entfernt. Nun können wir ein paar 
Rechenbeispiele nachvollziehen: 


254 — . ergibt die Ausgabe von 21. 
56 » . ergibt als Ergebnis 30. 
103/. ergibt als Ergebnis den Wert 3. 


Hoppla, bei der letzten Rechnung hätte eigentlich 3.33333333 herauskommen 
sollen! Hier also die zweite Eigenheit von FORTH, es kann vorerst nur mit Integer- 
Zahlen (ganze Zahlen im Bereich von —32768..32767 operieren). Aber das ist kein 
Nachteil, wie wir später sehen werden. 


Die UPN-Schreibweise bei FORTH bedingt zudem, daß Klammern in Rechenaus- 
drücken entfallen können. Auch hier ein Beispiel: (2+3) « (4+5) ist in FORTH fol- 
gendermaßen zu formulieren: 


23+45+ x 


Ist doch ganz einfach, oder? Zuerst werden die beiden Klammerausdrücke berech- 
net und dann folgt die Multiplikation. Im Klartext: Zuerst werden die Zahlen 
2 und 3 auf dem Stack abgelegt und addiert (+). Nun legen wir die Zahlen 4 und 
5 oben auf den Stack und addieren auch sie (+). Auf dem Stack befinden sich nun 
die Ergebnisse beider Additionen, diese werden schließlich mit « multipliziert, und 
das Endergebnis bleibt oben auf dem Stack liegen. 


Wer das nun als umständlich bezeichnet, sollte folgendes wissen: 


— Die angesehene Firma Hewlett Packard stellt ausschließlich Taschenrechner her, 
die auf diesem System basieren, da man sich dadurch effektiv Arbeit sparen 
kann. 
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— Hochsprachencompiler übersetzen Programme häufig in einen Zwischencode, 
der sehr nahe an FORTH herankommt, und bei Arithmetik genau dieses System 
verwendet. Ein Paradebeispiel hierfür ist das weltbekannte UCSD-Pascal 
(UCSD=-University of California at San Diego). Der von UCSD-Pascal erzeugte 
sogenannte P-Code ist fast schon FORTH. 
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6/3.2 
Ein erstes Programm 





Nun wollen wir aber mal voll einsteigen und ein kleines Programm in FORTH 
schreiben. Auch hier hat FORTH wenig Ähnlichkeit mit konventionellen Program- 
miersprachen, ein FORTH-Programm zu schreiben, heißt nichts anderes, als den 
Wortschatz des FORTH-Systems (mit VLIST auflistbar) zu erweitern. Wählen wir 
als Beispiel eine Umrechnung von Dezimalzahlen nach Hexadezimalzahlen, eine 
Aufgabenstellung, die in FORTH sehr elegant zu lösen ist. Eine mögliche Lösung 
sieht so aus: 


: D—-> HDUP DECIMAL .“ DEZIMAL “ .. “ = HEXADEZIMAL “ HEX . DECIMAL ; 





Was haben wir nun im einzelnen gemacht? Der Doppelpunkt leitet die Definition 
eines neuen Wortes ein, in FORTH-Kreisen nennt man so etwas „Colon-Definition“. 
Nun folgt der Name des neu zu definierenden Wortes, in unserem Falle ist dies 
„DP—>H“ Es folgt die Kette von FORTH-Wörtern, welche beim Aufruf des neuen 
Wortes ausgeführt werden sollen. In unserem Fall wird das oberste Stack-Element 
dupliziert (DUP d.h., das oberste Stackelement ist jetzt zweimal vorhanden), so- 
dann wird es im dezimalen Zahlensystem ausgegeben. Nun wird FORTH auf das 
Hexadezimalsystem eingestellt (HEX), und das (durch das Duplizieren zweimal vor- 
handene) oberste Element in diesem Zahlensystem ausgegeben. Schließlich wird 
FORTH wieder auf das Dezimalsystem gesetzt. Der Strichpunkt beendet die Colon- 
Definition. 


Jetzt ist das neue Wort bereits ausführbar, außerdem findet man es bei der Ausfüh- 
rung des VLIST-Befehls an erster Stelle im Wortschatz. 


In FORTH sollte man sich zur Dokumentation bei neuen Wörtern Stack-Beeinflus- 
sungen aufschreiben. Das heißt, man schreibt die Wortdefinition und die Änderung 
des Stacks dazu. Folgende Schreibweise hat sich dafür eingebürgert: 


wort ( a/b/c — d/e ) Kommentar 


Die Buchstaben „a“, „b“ und „c“ bezeichnen den Stackinhalt vor der Ausführung 
des Wortes, die Buchstaben „d“ und „e‘“ den Stackinhalt nach Ausführung des Wor- 
tes. Der am weitesten rechts stehende Buchstabe kennzeichnet hier das oberste 
Stackelement, also bei unserem Beispiel vor der Ausführung das ‚„‚c“, nach der Aus- 
führung das ,„e“. Schließlich kann ein Kommentar folgen, der beschreibt, was das 
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Wort bewirkt. In unserem Umrechnungsbeispiel könnten wir also folgendes schrei- 
ben: 


D—> H(n — ) Gibt n in Dezimal und Hex aus 





Schließlich sollten wir noch testen, ob unser neues Wort auch seinen Zweck erfüllt. 
Geben wir also nach erfolgter Definition einmal 194 D—>H ein, so sollte als Ant- 
wortzeile folgendes erscheinen: 


DEZIMAL 194 = HEXADEZIMAL C2 


Das Wort D—>H ist nun fester Bestandteil unseres FORTH-Vokabulars. Es kann 
jederzeit auch in anderen Worten verwendet werden. Wollen wir zum Beispiel eine 
Umrechnungstabelle drucken, in der die Umrechnungen für die Dezimalwerte von 
0 bis 255 aufgeführt sind, so ist folgendes zu schreiben: 


: TABELLE CR .“ DEZ—HEX KONVERTIERUNG “ CR 256 0 DO ID—>H CR LOOP ; 


Ein paar neue FORTH-Wörter tauchen hier auf. CR gibt einen Zeilenvorschub aus. 
DO leitet eine Schleife ein, ähnlich der FOR-NEXT-Schleife in BASIC. Start für die 
Schleife ist der Wert 0, wenn der Wert 256 erreicht ist (nicht überschritten! wie in 
BASIC), dann wird die Schleifenausführung abgebrochen. LOOP ist das NEXT- 
Äquivalent in FORTH. I holt einfach den Schleifenindex auf den Stack. Die Ein- 
gabe von TABELLE löst somit den Druck einer Umrechnungstabelle aus. 





Folgende Erkenntnisse über FORTH können wir nun aus den Beispielen ziehen: 


— FORTH-Programmierung ist die gut durchdachte Erweiterung des Grundwort- 
schatzes von FORTH. 


— FORTH-Wörter haben den Status von „Unterprogrammen‘“, h.h. sie können von 
anderen Wörtern aufgerufen werden. 


— Da nur bereits existierende Wörter aufgerufen werden, ist der Programmierstil 
in FORTH eine klassische „Bottom-Up“-Technik, d.h. zuerst müssen die Wörter 
für ganz einfache Aktionen definiert werden (als Unterprogramme der untersten 
Ebene), dann die entsprechenden Aufrufer und so weiter. 


— Dieser Programmierstil führt zu einer guten Strukturierung der Programmier- 
aufgabe und vor allem zu einem sehr kompakten Programm. 


— Da neu definierte Wörter jederzeit austestbar sind, ist die Möglichkeit, daß sich 
Fehler einschleichen, relativ minimal. 


Somit haben wir einen Punkt erreicht, an dem es sinnvoll erscheint, den Grundwort- 
schatz von FORTH in der Kurzschreibweise (mit Stackinformation) anzugeben. 


FORTH 
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FORTH Grundwortschatz 








Operanden: n, ni... 16-bit-Integers (mit Vorzeichen) 
d, di... 32-bit-Integers (mit Vorzeichen) 
u, ul... 16-bit-Integers (unsigned: ohne Vorzeichen) 
ud... _ 32-bit-Integers (unsigned: ohne Vorzeichen) 
addr 16-bit-Adresse 
b 8-bit-Byte 
c 7-bit-ASCII (Character) 
f Boolsches Flag (<>0 entspricht „wahr“) 








Stack-Manipulation 


-DUP {n - n/?) 

>R (n -) 

DROP (n-) 

DUP (n - n/n 

OVER _ (n1/n2 - nt/n2/nt) 
R \ 


R> (-n) 
ROT (n1/n2/n3 - n2/n3/n1) 
SWAP  (n1/n2 - n2/n1) 


Bi (Top of Stack) bezeichnet das oberste Stack-Element, SEC das zweite Stackelement. 


Dupliziert TOS nur dann, wenn TOS ungleich Null 
Legt TOS auf Return-Stack ab 

Entfernt oberstes Stackelement 

Dupliziert oberstes Stackelement 

Legt SEC oben auf den Stack 

Kopiert den Return-Stack zum TOS, Return-Stack un- 
verändert! 

Holt TOS vom Return-Stack 

Rotiert die oberen drei Elemente 

Vertauscht die beiden oberen Elemente des Stack 





Zahlensysteme 
BASE (-addr) 
DECIMAL ) 
HEX -) 





Legt Adresse der USER-Variablen BASE auf TOS ab 
Setzt BASE auf 10 (Dezimalsystem) 
Setzt BASE auf 16 (Hexadezimalsystem) 
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Arithmetik 


(n1/n2 - Produkt) 
(n1/n2/n3 - Quotient) 
(n1/n2/n3 - Rest Quot) 
(n1/n2 - Summe) 
(nt/n2 — Differenz) 
(n1/n2 - Quotient) 

/MOD (n1/n2 - Rest Quot) 

i+ {in - n+1) 

2+ ({n - ne 

ABS {n 

D+ ( 

DABS ( 

DMINUS ( 


u) 
d1ld2 - Summe) 
d- ud) 
d--d) 


M/MOD  (udt/u2 - uS/ud4) 
MAX (n1/n2 - Maximum) 
MIN (n1/n2 - Minimum) 


MINUS (n--n) 
MOD (n1/n2 - Rest) 


16-Bit-Multiplikation (Ergebnis: 16-bit) 

Wie »/MOD, jedoch ohne Berechnung des Rests 
Multiplikation mit anschließender Division (n1 « n2/n3) 
Addiert TOS und SEC zu neuem TOS (16-bit) 
Subtraktion (16-bit) 

16-Bit-Ganzzahl-Division (Ergebnis: 16-bit) 
Berechnet Quotient und Rest 

Addiert 1 zum TOS 

Addiert 2 zum TOS 

Bildet Absolutwert von TOS 

Addition (32-bit) 

Bildet Absolutwert von 32-Bit-Zahl 

Negiert 32-bit-Zahl 

Division einer 32-bit-Zahl mit Übergabe Rest/Quot. 
Beläßt Maximum von ni und n2 auf Stack 

Beläßt Minimum von nt und n2 auf Stack 
Negiert TOS 

Berechnet den Divisionsrest von n1/n2 





Boolsche Operationen 


AND (nt/n2 - logisch UND) 
XOR (n1/n2 - logisch XOR) 


Logische UND-Verknüpfung von TOS und SEC 


OR ({nt/n2 - logisch ODER) Logische ODER-Verknüpfung von TOS und SEC 


Exclusiv-ODER-Verknüpfung von TOS und SEC 





Vergleichsoperationen 


0< (n-9 
0= (n-f 
< {n1/n2 - 
= (nt/n2 - 9) 
> {n1/n2 - f) 


„wahr“, wenn n<O 
„wahr“, wenn n=0 
„wahr“, wenn ni<n2 
„wahr“, wenn ni=n2 
„wahr“, wenn n1>n2 





Speicherbezogene Befehle 


@ (addr - n) 
! ({n addr -) 
BLANKS (n1/n2 -) 

c@ (addr - b) 
c (b addr -) 


CMOVE _ (nt/n2in3 -) 
ERASE _(ntin2 -) 
FILL (ni/n2/b -) 
SP@ (- addr) 
TOGGLE _(n1/n2 -) 


L-_ 





Holt den 16-Bit-Inhalt von Adresse 

Speichert 16-Bit-Zahl ab Adresse ab 

Belegt n2 Bytes ab Adresse ni mit Blanks (CHR$(32)) 
Holt den 8-Bit-Inhalt einer Speicherzelle (PEEK) 
Speichert 8-Bit-Zahl in Speicherzelle ab (POKE) 
Überträgt n3 Zeichen von Adresse ni nach Adresse n2 
Belegt n2 Bytes ab Adresse ni mit Null # 

Füllt n2 Bytes ab Adresse ni mit Wert b 

Holt Position des Stack-Pointers auf TOS 

Das Byte an Adresse ni wird mit n2 XOR-verknüpft 











FORTH 
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Strukturworte 

BEGIN.... UNTIL fh Führt Schleife so lange aus, bis f=,,wahr“ 

BEGIN WHILE REPEAT {f) Wenn f=,,‚wahr‘, dann wird Schleife ausgeführt 

BEGIN ... .AGAIN () Endlosschieife zwischen BEGIN und AGAIN 

DO...LOOP (ni n2 -) Initialisiert Schleife von n2 bis ni mit 
Increment 1 

DO.. +LOOP (ni n2 -) Wie DO LOOP, jedoch mit Increment von TOS 

) -n) Holt Schleifenindex auf TOS 

IF.. ELSE. . ENDIF (f) Strukturierte IF-Abfrage 

LEAVE () Verläßt Schleife beim nächsten Loop 

Ein-Ausgabe-Operationen 

{n -) Druckt TOS aus 

en - Gibt Tkt bis zum nächsten “ aus 

R (n1/n2 -) Druckt nt mit n2 Stellen Feldweite aus 

2 (addr -) Druckt den Inhalt der Adresse 

?TERMINAL [0)) „wahr“, wenn eine Taste gedrückt wurde 

COUNT (addr - addr+1/u) Wandelt String mit Längenbyte in TYPE-Form um 

CR (-) Gibt Carriage-Return (CHR$(13)) aus 

D. (d -) Druckt 32-bit-Zahl 

D.R (d/n -) Druckt 32-bit-Zahl mit n Stellen 

EMIT (© -) Gibt ein Zeichen aus 

EXPECT (addr/n -) Erwartet n Zeichen und legt diese ab addr ab 

KEY (- c) Liest einen Tastendruck 

SPACE (-) Gibt ein Space aus 

SPACES {n -) Gibt n Spaces aus 

TYPE (addr/u -) Gibt u Bytes ab Adresse aus 

WORD (c -) Liest im Eingabe-Puffer bis zum nächsten 
Character c 

| Zaintormeienng 

# (d- d) Wandeit eine Ziffer in String um 

#> (d - addr/u) Beendet Umwandlung, String kann mit TYPE 
ausgegeben werden 

Ss (d-00) Wandelt restliche Ziffern in String um 

<# (-) Eröffnet Zahlenumwandlung in String 

HOLD (c -) Plaziert Zeichen c an nächster Stelle im Zahlen- 
string 

NUMBER (addr - d) Wandelt String ab addr in 32-bit-Zahl um 

SIGN nid - d) Fügt Vorzeichen in Ziffernstring ein 

Massenspeicher-Befehle 

-> () Compiliert nächsten Screen 

B/BUF (n) Gibt Anzahl der Bytes pro Buffer 

BLK (- addr) Systemvariable (aktuelle Blocknummer) 

BLOCK (n - addr) Liest Disk-Block nach Adresse 

EMPTY-BUFFERS (-) Alle Buffer werden als „leer“ gekennzeichnet 

FLUSH () Alle „geänderten“ Blocks werden auf Disk 
zurückgeschrieben 

LIST (n -) Listet Screen mit der Nummer n 

LOAD {n -) Compiliert Screen mit Nummer n 

SCR (- addr) Systemvariable (aktuelle Screen-Nummer) 

UPDATE [0) Der zuletzt benutzte Block wird als „geändert“ 


markiert 
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IXyZ 


<BUILDS DOES> 


[DIEDAEDME) 
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Wort xyz wird neu definiert 
Ende einer Wortdefinition 
Zur Definition von Definitionswörtern 

















CODE xyz Ein Primitive (Maschinenprogramm) wird erzeugt 
CONSTANT xyz n-) Eine Konstante xyz mit Wert n wird deklariert 
IMMEDIATE -) Das zuletzt definierte Wort wird als immediate markiert 
SMUDGE (-) Das zuletzt definierte Wort wird kenntlich gemacht 
VARIABLE xyz {n -) Eine Variable xyz wird deklariert und mit n belegt 
Vokabulare 

ASSEMBLER (- Ruft Assembler-Vokabular auf 

CONTEXT (- addr) Gibt Adresse des Context-Vokabulars (Such-Vokabular) 
CURRENT (- addr) Gibt Adresse des Current-Vokabulars (Definitions-Voc) 
DEFINITIONS (-) Seizt CURRENT auf CONTEXT 

EDITOR (-) Ruft Editor-Vokabular auf 

FORTH (-) Setzt CONTEXT auf FORTH 

VLIST (-) Listet alle Wörter im Context-Vokabular 
VOCABULARY xyz (-) Definiert neues Vokabular xyz 

System-Worte 

"XXX (- addr) Sucht Adresse des Wortes xxx im Dictionary 

( (-) Beginn eines Kommentars, Ende mit ) 

; (n -) Legt 16-bit-Zahl im Dictionary ab 

ABORT (-) Erzwingt Fehler-Abbruch 

ALLOT {n -) Belegt n Bytes im Dictionary 

C, (b -) Legt 8-bit-Zahl im Dictionary ab 

FORGET abc (-) „Vergißt“ alle Wörter ab abc (einschließlich abc) 
HERE (- addr) Zeigt auf nächste freie Stelle im Dictionary 

PAD (- addr) Puffer 64 Bytes oberhalb von HERE 
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6/3.4 
Programmstrukturen 





Nachdem wir uns nun einen Überblick über die wichtigsten Worte von FORTH ver- 
schafft haben, ist es an der Zeit, einige Worte für die strukturierte Programmierung 
zu behandeln. Das wohl grundlegende Wort für Programmstrukturen ist eine 
„Wenn ... dann“-Abfrage, die natürlich auch im Wortschatz von FORTH zu fin- 
den ist. 


Hierzu gleich eine grundsätzliche Eigenschaft von Abfragen in FORTH: Als An- 
zeige, ob eine Bedingung „wahr“ oder „falsch“ ist, dient in FORTH wiederum das 
oberste Stackelement TOS. Ein Wert ungleich Null entspricht dem Zustand „wahr“. 
Die Tests auf Bedingungen hinterlassen im Normall entweder 0, oder -I (16 binäre 
Einser) auf dem Stack. Lediglich der Test auf Ungleichheit von zwei Zahlen hinter- 
läßt die Differenz dieser Zahlen. 


Doch genug der Theorie, gleich mal ein praktisches Beispiel: Wir wollen ein Wort 
definieren, das testet, ob eine Zahl durch eine andere teilbar ist und das Ergebnis 
im Klartext ausgibt. Die Definition ist denkbar einfach: 





: TEILBAR? MOD IF .“ nicht ENDIF .“ TEILBAR“ 5 





Was ist hier geschehen? Schen wir doch mal in unserer Befehlsliste nach: MOD be- 
rechnet bei einer Division den Rest, d.h. wenn die Division aufgeht, so ist der Rest 
Null. Ein Rest erzeugt eine Zahl ungleich Null auf dem Stack. IF sieht sich nun das 
oberste Stack-Element an (und entfernt es dabei). Ein Wert ungleich Null führt dazu, 
daß der Programmtext bis zum nächsten ENDIF ausgeführt wird. In unserem Bei- 
spiel wird bei Auftreten eines Rests zuerst das Wort „nicht“ gedruckt, und dann die 
Meldung „teilbar“. Selbstverständlich kennt FORTH auch noch eine andere (beim 
BASIC des C 64 leider nicht bekannte Form) der IF-Abfrage, nämlich die IF- 
Abfrage mit ELSE-Zweig, im Klartext etwa als „wenn... dann... .. sonst“ formu- 
lierbar. Unser Beispiel könnte man also auch so formulieren: 


: TEILBAR? MOD IF .“ NICHT TEILBAR“ ELSE .“ TEILBAR“ ENDIF; 





Ist die Bedingung „wahr“ wird der Teil zwischen IF und ELSE, andernfalls der Teil 
zwischen ELSE und ENDIF ausgeführt. Manche FORTH-Versionen verwenden an- 
stelle des Wortes ENDIF auch das Wort THEN. Derartige Abfragen lassen sich 
natürlich auch schachteln. 
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Ein weiteres Mittel zur Programmstukturierung sind Schleifen. FORTH kennt hier 
jede denkbare Möglichkeit für Schleifen, fangen wir bei unserer Vorstellung jedoch 
mit der einfachsten (und in speziellen Fällen eventuell auch sinnvollsten) Schleife an, 
der Endlosschleife. Das folgende Wort ist ein Beispiel hierfür: 


: ENDLOS BEGIN .“ ICH BIN EINE ENDLOSSCHLEIFE“ CR AGAIN ; 


Es wird beim Aufrufen ständig den Text „ICH BIN EINE ENDLOSSCHLEIFE“ 
ausgeben, solange, bis der Strom ausfällt oder der Programmierer einen Reset her- 
beiführt. Die Struktur ist offensichtlich, alles zwischen BEGIN und AGAIN wird 
ewig wiederholt. An dieser Stelle sei noch zu erwähnen, daß Strukturwörter nur in 
Definitionen erlaubt sind, da sie Sprungbefehle erzeugen. Im normalen Eingabe- 
mode würde die schlichte Eingabe von BEGIN .“ IRGENDWAS“ AGAIN zu einer 
Fehlermeldung führen. 





Als nächstes sind Schleifen zu erwähnen, die durch Auftreten von Bedingungen ver- 
lassen werden können. Auch hier ein Beispiel: 


: BEISPIELT BEGIN .“ TASTE DRUECKEN“ ?TERMINAL UNTIL ; 


Dieses Wort gibt so lange den Text „TASTE DRUECKEN“ aus, bis der Benutzer 
dieser Aufforderung Folge leistet. Das Wort ?TERMINAL prüft ab, ob eine Taste 
gedrückt wurde (bei vielen C-64-FORTH-Versionen prüft es den Druck auf die 
STOP-Iaste), ist dies der Fall, dann wird „wahr“ auf dem Stack abgelegt. Die 
Befehle zwischen BEGIN und UNTIL werden also solange wiederholt, bis sie durch 
UNTIL abgeprüfte Bedingung „wahr“ ist, mindestens werden die Befehle jedoch 
einmal abgearbeitet. 


Die andere Abbruchabfrage ist aus folgendem Beispiel ersichtlich: 





: BEISPIEL2 BEGIN ?TERMINAL NOT WHILE .“ TASTE DRUECKEN“ REPEAT ; | 





Auch hier wartet das Programm auf einen Tastendruck, die Meldung „TASTE 
DRUECKEN“ wird jedoch nur ausgegeben, wenn ein solcher nicht bereits regi- 
striert war. Die Befehle zwischen BEGIN und WHILE werden abgearbeitet und er- 
zeugen die Bedingungsanzeige (Flag) auf dem Stack. Die Befehle zwischen WHILE 
und REPEAT werden nur abgearbeitet, wenn die Bedingung „wahr“ ist, nach 
REPEAT wird dann zu BEGIN zurückgekehrt und die Bedingung neu abgeprüft. 
Diese Schleife prüft also die Abbruchbedingung vor der Ausführung und muß 
daher nicht zwingenderweise mindestens einmal ausgeführt werden. 


Schließlich sind noch die Schleifen zu erwähnen, deren Durchlaufzahl bereits fest- 
steht. Eine solche Konstruktion finden wir inDO...LOOP. DO erwartet zwei 
Zahlen auf dem Stack, zuoberst den Startwert der Schleife, als SEC den Endwert 
der Schleife. LOOP inkrementiert den Index um eins und wiederholt die Schleife, 
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wenn der Endwert noch nicht erreicht wurde. In folgendem Beispiel würden also die 
Zahlen 1 bis 10 ausgegeben werden: 


: ZAHLEN 11 1 DOI.LOOP; 


Die Schleife hört auf, wenn der Zähler den Wert 11 erreicht hat und beginnt bei 1. 
Der Befehl I holt lediglich den aktuellen Schleifenindex auf den Stack, um ihn aus- 
zugeben. DO .. LOOP kann auch als DO... +LOOP verwendet werden, in diesem 
Fall ist der Inkrement (um wieviel der Index erhöht wird) frei wählbar. Ein Count- 
down von 10 bis 1 wäre so zu formulieren: 


: COUNTDOWN 0 10 1. —1 +LOOP ; 


Hier wird also jedesmal die —1 zum Schleifenindex addiert, solange, bis dieser den 
Wert 0 erreicht hat. DO... LOOP-Konstruktionen sind die langsamsten Schleifen in 
FORTH, aber immer noch um etwa den Faktor 10 schneller als das vergleichbare 
FOR... NEXT in BASIC. 


Somit sind die wichtigen Strukturwörter von FORTH erklärt. Möchtegern- 
Strukturwörter wie GOTO sind in FORTH nicht zu finden, wer mit GOTO pro- 
grammieren will, der hat den Sinn von FORTH noch nicht verstanden. Und 
GOSUB kann man sich sparen, da jedes FORTH-Wort sowieso ein Unterprogramm 
darstellt und einfach durch das Nennen seines Namens aufgerufen werden kann. 
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6/3.5 
Arbeitsweise eines FORTH-Compilers 





In diesem Abschnitt wollen wir kurz einmal die Arbeitsweise eines FORTH-Systems 
beleuchten. Bisher konnten wir feststellen, daß FORTH-Programme sehr schnell 
sind und zudem relativ wenig Speicherplatz benötigen. Nun ist es natürlich interes- 
sant zu erfahren, warum dies so ist. 


6/3.5.1 
Der gefädelte Code 





Um zu verstehen, was gefädelter Code ist, wollen wir uns kurz einmal ansehen, wie 
FORTH seine Programme im Speicher ablegt. Nehmen wir beispielsweise folgende 
Wortdefinition: 


: BEISPIEL 100 DO |. LOOP ; 


Wie wir bereits wissen, haben wir mit der ‚‚:‘‘-Definition einen neuen FORTH- 
Befehl definiert, der in diesem Fall „BEISPIEL“ heißt. 


BEISPIEL gibt die Zahlen von 0 bis 9 am Bildschirm aus. Um uns jetzt den Begriff 
des gefädelten Codes etwas einfacher vorstellen zu können, stellen wir folgenden 
Vergleich an: 


Jedes FORTH-Wort sei eine Perle. FORTH-Programme, also neue FORTH-Wörter, 
werden gebildet, in dem man bereits bestehende Wörter (unsere FORTH-,„Perlen‘“) 
nimmt und sie wie auf einen Faden schiebt. In unserem Beispiel haben wir also ein 
paar FORTH-Befehle zu einem neuen Befehl von größerer Leistung zusammen- 
gefaßt. Da FORTH-Wörter nur einen Eingang und einen Ausgang haben, ist der 
Vergleich mit einer Perle, die ja auch nur einen Eingang und einen Ausgang für den 
Faden hat, nicht so schlecht. 
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Selbstverständlich kann unser definiertes Wort in weiteren Definitionen als ein- 
facher Befehl benutzt werden, also auch wieder auf einen neuen imaginären „Pro- 
grammfaden‘ gefädelt werden. 


Diese Technik ist nichts neues, BASIC-Programmierer kennen sie unter den Begrif- 
fen GOSUB und RETURN. Das RETURN als solches braucht FORTH nicht, es 
wird automatisch beim Abschluß der Wortdefinition generiert, der ‚„‚;‘“ hat also die 
Funktion des RETURN-Befehls. GOSUB ist auch unbekannt, um ein Unterpro- 
gramm in FORTH aufzurufen, tut man ja nichts anderes, als es bei seinem Namen 
zu nennen. Jeder BASIC-Programmierer wird hier nun zugeben müssen, daß unser 
Beispiel aussagekräftiger aussieht als beispielsweise folgendes BASIC-Programm: 


1000 GOSUB 2100 
1010 GOSUB 2200 
1020 GOSUB 3500 und so weiter. 





Da in FORTH das ‚‚Denken in Unterprogrammen und Programmbausteinen‘‘ ge- 
fördert wird, ist es nicht weiter verwunderlich, daß FORTH-Programme schnell 
entwickelt und leicht gewartet werden können. Wer schon einmal versucht hat, in 
ein 2000 Zeilen langes Spaghetti-Code-BASIC-Programm eine Änderung einzu- 
bauen, der weiß was gemeint ist. In FORTH muß dagegen oft nur eine kurze und 
überschaubare Wortdefinition manipuliert werden. 


Nun wollen wir uns jedoch einmal anschen, wie FORTH-Programme im Speicher 
abgelegt werden. 


6/3.5.2 
Abbildung des gefädelten Codes im Speicher 





Stellen wir uns einmal vor, FORTH wäre so „intelligent‘‘ wie unser BASIC-Inter- 
preter (die Anführungszeichen sind voll beabsichtigt), dann würde unser FORTH- 
Wort BEISPIEL im Speicher etwa so aussehen: 








Adresse Inhalt (Textdarstellung) 
$2000 i 

$2002 BEISPIEL 

$200B 10 0 DO I!.LOOP 
$201C ; 
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Nun, so geht’s sicherlich nicht. Programme, die wie der Quelltext im Speicher 
stehen, würden diesen mit nur wenigen Definitionen ausfüllen. Wir wissen aber, daß 
BASIC für jeden Befehl einen TOKEN (=Schlüsselcode) reserviert. Bei BASIC und 
seiner beschränkten Befehlszahl genügt hier eine 8-Bit-Zahl (also Werte von 0..255, 
wobei nur ein kleiner Bereich wirklich für TOKEN benutzt wird). Führen wir für 
FORTH also zum Spaß mal TOKEN ein, diesmal mit 16-bit Länge. Unser Speicher 
könnte dann etwa so aussehen: 





Inhalt Kommentar 





2 : als Text 
BEISPIEL Name der Definition 
30815 TOKEN der Definition 
$0737 TOKEN für 10 


$0685 TOKEN für 0 
$0FCB TOKEN für DO 
$1B7E TOKEN für | 
$1007 TOKEN für . 
31234 TOKEN für LOOP 
$OFFF TOKEN für ; 











Daß dies auch nicht das Gelbe vom Ei ist, sieht wohl jeder. Die TOKEN- 
Verschlüsselung bedingt nämlich, daß jeder TOKEN erst einmal in einen Befehl 
umgesetzt werden muß, d.h. man muß die zum TOKEN gehörende Definition erst 
einmal suchen. Suchen kostet jedoch Zeit, aus diesem einfachen Grund ist BASIC 
ja so „‚schnell‘‘, jede lächerliche Variable muß gesucht werden, jedes kurze Unter- 
programm, einfach fast alles. Trotzdem ist dieses Abbild vom Speicher gar nicht 
so schlecht, es entspricht fast der Realität. Hier also nun ein ‚‚echter‘‘ Speicher- 
abzug von einem FORTH-Wort (in Anführungszeichen deshalb, weil die Adreß- 
angaben rein willkürlich gewählt wurden). 


Symb. | Addr. Inhalt Bemerkung Pkt. 





NFA $2000 %1PS00100 Statusbyte 
32001 BEISPIEL Name 

LFA 52009 $1FC2 Verkettung 

CFA $200B $0D33 DOCOL-Vektor 

PFA $200D $0432 CFA v. CLIT 
$200F $0A Zahl 10 
$2010 $0737 CFAv.0 
$2012 $0822 CFA v. (DO) 
$2014 $0323 CFA v. I 
$2016 50432 CFAv.. 
$2018 $0689 CFA v. (LOOP) 
$201A $FFFA Offset um -6 








$201C SOF3E NEXT 





In der Spalte „Symb‘“ steht der symbolische Name der Adresse in der Wortdefini- 
tion. Doch nun zu den einzelnen „Pkt.‘‘-Bemerkungen, die in der Tabelle keinen 
Platz fanden: 
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(1) Diese Adresse heißt Name-Field-ADRESS, also die Adresse des Namensfeldes. 
Hier ist ein Statusbyte hinterlegt, das in den unteren 5 Bits die Länge des Wort- 
namens enthält. Das höchste Bit ist immer auf „1“, „S“ und „P“ sind Status- 
anzeigen für den FORTH-Compiler. 


(2) Hier ist der Name des Wortes als 7-bit-ASCII-Text abgelegt. Manche FORTH- 
Versionen legen hier nur eine verkürzte Form ab, allerdings ist dann eine Auf- 
listung der Namen mittels VLIST nicht mehr möglich. Im letzten Byte des 
Namens ist das Bit-7 gesetzt. 


(3) Diese Adresse heißt Link-Field-Address, sie dient der Verkettung der einzelnen 
Wörter im Wörterbuch untereinander. Die zwei Bytes ab dieser Adresse enthal- 
ten die NFA des vorhergehenden Wortes im Wörterbuch. 


(4) Diese Adresse heißt Code-Field-Address, hier ist die Adresse der Maschinen- 
befehle angegeben, die bei Ausführung des Wortes zuerst ausgeführt werden sol- 
len. Hierin können die einzelnen Definitionen unterschieden werden, Colon- 
Definitionen (:-Definitionen) enthalten hier alle den gleichen Wert. Variablen 
enthalten einen anderen Wert. Maschinenprogramme (sogenannte Primitives) 
enthalten hier gleich die Startadresse des Maschinenprogramms. 


(5) Diese Adresse heißt Parameter-Field-Address, hier beginnen die Parameter der 
Wortdefinition. Bei Colon-Definitionen stehen hier jeweils die CFAs der auf- 
geführten Befehle. Hier ist auch gleich die erste Besonderheit zu entdecken, die 
Zahl 10 wird als „CLIT 10° abgebildet, da „10“ kein eigenes FORTH-Wort ist. 
Zahlen werden also nicht wie in BASIC als Text abgespeichert, sondern bereits 
beim Compilieren in die Binärdarstellung‘ umgewandelt. 


(6) „0“ ist ein definiertes FORTH-Wort, hier ist also nur die CFA von „0“ an- 
gegeben. 


(7) Hier kommt die nächste Besonderheit. Schleifen wie DO..LOOP werden in 
RUN-Time-Konstruktionen wie (DO) und (LOOP) umgesetzt. Ansonsten gibt es 
hier nicht viel zu sagen. 


(8) Hier ist der Offset hinterlegt, um den zurückgesprungen werden muß, wenn die 
DO..LOOP-Schleife noch nicht verlassen werden soll. 


(9) Hier wird das Wort beendet. Diese Routine entspricht also etwa dem RETURN 
in BASIC. 


Wir sehen, FORTH-Definitionen werden also mit relativ wenig Speicheraufwand 
abgelegt. Jeder Aufruf eines anderen FORTH-Wortes innerhalb der Definition be- 
nötigt im Normalfall zwei Bytes, die die CFA des aufgerufenen Wortes enthalten. 
Dies ist zum einen optimal speichersparend und zum anderen sehr schnell, da das 
FORTH-Laufzeitsystem immer sofort weiß, wo es weitergeht. Sehen wir uns also an, 
wie das Wort abgearbeitet wird. 
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6/3.5.3 


Beispiel für das Abarbeiten einer Wortdefinition 





Durch Eingabe des Wortes BEISPIEL wird der Kommando-Interpreter veranlaßt, 
im Dictionary (Wörterbuch) nach dem Wort zu suchen. Dabei muß er nicht alle 
Bytes im Dictionary ansehen, sondern kann sich anhand der LFAs von NFA zu NFA 
durchtasten. Ist das Wort gefunden, so wird die Routine gerufen, deren Adresse in 
der CFA des Wortes hinterlegt ist. Bei Colon-Definitionen geschieht nun nichts an- 
deres, als daß nun die Wörter, deren CFAs ab PFA hinterlegt sind, abgearbeitet wer- 
den. Zum Abschluß wird die Routine NEXT angesprungen, der Kommando- 
interpreter kehrt in die aufrufende Routine zurück. 


Wir sehen also, daß FORTH optimal schnell und speicherplatz-sparend arbeitet. 
Zuletzt sei noch zu erwähnen, daß es auch sogenannte Target-Compiler gibt, die 
FORTH direkt in die Maschinensprache des Rechners übersetzen. Normale Imple- 
mentationen arbeiten jedoch mit dem hier beschriebenen Zwischencode, der zum 
UCSD-p-Code verwandt ist. Dieser Zwischencode läßt sich übrigens mit relativ 
wenig Aufwand in den Quelltext zurückverwandeln. Man kann also quasi einen 
Rückübersetzer schreiben, mit dem man sich ansehen kann, wie bereits definierte 
Wörter aufgebaut sind. 
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6/4.1 
COMAL 0.14 





Comal ist eine Programmsprache, in der die positiven Aspekte von Basic, Pascal 
und Logo zusammengefaßt wurden. Die Sprache ist 1973 entstanden, wurde aber 
erst in der letzten Zeit für Heimcomputer interessant. Wie bei nahezu jedem Namen 
einer Programmiersprache, versteckt sich auch hinter „Comal“ eine Abkürzung, 
nämlich „COmon Algorithmic Language“. Die jetzige Version für den C 64 besteht 
aus einem Programm, das in den Speicher eingeladen wird und dann ein Betriebs- 
system bildet. Es handelt sich also nicht um einen Compiler, der das geschriebene 
Programm in Maschinensprache umwandelt. Daraus ergibt sich aber auch ein 
Nachteil dieser Sprachversion: es sind nämlich nach dem Start des Comal- 
Programms nur noch 9902 Bytes für den Programmierer frei. 


Die eben beschriebene Version ist übrigens ein freies Programm, das heißt, daß es 
weitergegeben werden darf und daß Sie es sich zum Selbstkostenpreis erwerben 
dürfen. Dieser preiswerten Version steht eine ROM-Version gegenüber, die dann 


mehr freien Speicherplatz bieten kann. Da diese aber aus einem Steckmodul be- 
steht, ist sie nicht ganz billig. 


Hier soll aber die normale Version, das Comal 0.14, beschrieben werden. 


.6/4.1.1 


Elemente in Comal aus anderen Sprachen 





Comal kann nicht als eine völlig neue Programmiersprache bezeichnet werden, weil 
bei genauerem Hinsehen nur wenige Teile wirklich neu sind. Es wurde vielmehr ver- 
sucht, alle positiven Seiten einiger Programmiersprachen zusammenzunehmen und 
daraus eine neue Sprache zu schaffen. 
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Basic 


Basic ist die Grundsprache von Comal, es besteht eine Art Aufwärtskompatibilität 
von Basic zu Comal, das heißt, daß jeder, der Basic einigermaßen beherrscht, auch 
mit Comal umgehen kann. Nach und nach wird er sich dann die Feinheiten von 
Comal aneignen. Es wird oft gesagt, daß Basic einen Programmierer verderbe, diese 
Elemente wurden aber in Comal trotz der nahen Verwandtschaft ausgeglichen. Dem 
etwas versierten Basic-Programmierer wird auffallen, daß es in Comal keine Mög- 
lichkeiten gibt, einen Befehl abzukürzen. Das kommt, weil es die Möglichkeit gibt, 
neue Befehle zu definieren. 


Pascal 


Von Pascal hat Comal besonders die Möglichkeit der strukturierten Programmie- 
rung übernommen, die noch in einem eigenen Kapitel beschrieben wird. Struktu- 
rierte Sequenzen sind leichter zu programmieren als die in Basic unumgängliche 
Umschreibung mit umständlichen „if‘“-Befehlssequenzen. Mit Befehlen wie zum 
Beispiel „repeat ... until“ oder „case... when...“ werden Befehlswörter ge- 
braucht, die der menschlichen Sprache und Denkweise näher sind als eine Um- 
schreibung durch „if“ Das Programm wird dadurch leichter lesbar und es kann 
nicht passieren, daß man, wie in Basic, sein eigenes Programm nicht mehr lesen 
kann. Es ist ja schließlich neben der Lösung einer Problemstellung auch das Ziel 
eines Programmierers sein Programm übersichtlich und gut lesbar zu gestalten; das 
ist durch diese Elemente aus Pascal gut möglich. 


Logo 


Wesentliche Anteile hat auch die Programmiersprache Logo an Comal. Es besteht 
nämlich auch bei Comal die Möglichkeit, neue Befehle zu definieren, beziehungs- 
weise Unterprogramme mit Namen aufzurufen. Daneben können auch Funktionen 
definiert werden; und dies nicht nur, wie in Basic, in einer Zeile, sondern als Unter- 
programm in beliebiger Länge. Auch dies steigert die Übersichtlichkeit und vor 
allem die Lesbarkeit eines Programmes enorm. Mußte man in Basic die Funktion 
eines Unterprogrammes mit Hilfe einer „rem‘‘-Zeile deutlich machen, so kann man 
in Comal das Unterprogramm mit einem Namen aufrufen, der seiner Funktion ent- 
spricht. 


Es wurde aber auch die bekannte Turtle-Grafik von Logo übernommen. Sie ist recht 
einfach zu programmieren und ist der menschlichen Denkweise angepaßt. Im ein- 
fachsten Fall gibt es hier einen Zeichenstift (Turtle), der um seine eigene Achse ge- 
dreht und vorwärts und rückwärts bewegt werden kann. Der Name Turtle wurde von 
dem zum Zeichnen anfangs verwendeten schildkrötenähnlichen Gebilde übernom- 
men. Eine detailliertere Beschreibung dieser Grafik folgt in einem eigenen Kapitel. 











COMAL Teil 6 Kapitel 4.1 Seite 3 








4.1 Comal 0.14 Teil 6: Weitere Programmiersprachen 


6/4.1.2 
Fehlerbehandlung 





Wie schon erwähnt, ist der Speicherplatz des C 64 mit Comal sehr knapp. Aus die- 
sem Grund wurden die Texte der Fehlermeldungen auf einer Datei auf der Diskette 
abgelegt und jedesmal, wenn ein Fehler auftritt, wird dieser Text aus der Datei ge- 
lesen. Bei Comal wird jede Zeile sofort beim Eingeben auf ihre syntaktische Rich- 
tigkeit hin geprüft. Verschreibt man sich und gibt die falsche Anweisung ein, dann 
läuft das Laufwerk an; dies kann einem manchmal ziemlich auf die Nerven gehen. 
Deshalb gibt es den Befehl „SETMSG-““, der bei einem Fehler nur noch die Num- 
mer des Fehler ausgibt. Will man also flüssig mit Comal arbeiten, dann kann man 
sich eine Liste der Fehler und ihrer Nummern ausdrucken lassen und jeden auftre- 
tenden Fehler auf dieser Liste nachschauen. Will man wieder auf die normale Feh- 
lerausgabe umschalten, so kann man dies mit dem Befehl „SETMSG+“ tun. 


6/4.1.3 


Formate laden und speichern 





Comal-Programme können in zwei verschiedenen Formaten abgespeichert werden. 
Zuerst gibt es das normale Format, bei dem die Befehle, wie in Basic, in verkürzter 
Form kodiert abgespeichert werden. Diese Kodierung ist speziell für das Comal 0.14- 
Format. Dazu stehen die aus Basic bekannten Befehle „LOAD“ und „SAVE“ zur 
Verfügung, wobei die Geräteadresse des Laufwerks nicht angegeben werden muß, 
Man muß also nicht, zum Beispiel, LOAD „grafik‘“%8, eingeben, sondern man 
braucht nur LOAD „grafik“ einzugeben. Zusätzlich ist noch der Befehl „CHAIN“ 
vorhanden, mit dem Programme geladen und danach automatisch gestartet werden 
können. Seine Syntax ist mit der des Befehls „LOAD“ identisch. 


In Basic ist es nur sehr schwierig möglich, Programme verschiedener Basic-Dialekte 
untereinander auszutauschen. Um dem in Comal entgegenzuwirken, können Pro- 
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gramme in Textform abgespeichert werden. Die Befehle werden nicht kodiert, son- 
dern als Text auf dem Datenträger abgelegt werden. Dadurch kann diese Textdatei 
auch von einer anderen Comalversion geladen und danach wieder im Speicher 
kodiert werden. Der Befehl zum Abspeichern lautet hier „LIST <Programm- 
name >“ und der Befehl zum Einlesen „ENTER < Programmname >“ Programme, 
die in diesem Format abgelegt durch „ENTER“ eingelesen werden, werden in ein 
eventuell schon im Speicher befindliches Programm eingefügt. Der Befehl „enter“ 
wirkt also ähnlich wie der in Basic verbreitete Befehl „MERGE“. Diese Textdateien 
sind durch die fehlende Kodierung erheblich länger als die kodierten Programm- 
dateien. 


6/4.1.4 


Strukturiertes Programmieren 








Strukturiertes Programmieren ist ein übersichtliches, einfaches und immer gut les- 
bares Programmieren. All das wird in Basic oft vernachlässigt und deshalb sollte 
man sich als reiner Basic-Programmierer auch mit dem strukturierten Programmie- 
ren einmal ernsthaft beschäftigen. 


6/4.1.4.1 


Strukturiertes Listen 





Wie in Basic gibt es auch in Comal den Befehl „LIST“. Mit ihm kann das im Spei- 
cher befindliche Programm ausgegeben werden. Folgende Formate sind wie in Basic 
möglich: 
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list Zeigt das ganze Programm 
list zni- Zeigt das Programm ab Zeilennummer zni 


list -zn1 Zeigt das Programm bis zn! 
list zn1-zn2 Zeigt das Programm von zni bis zn2 





Während des Listens kann die Ausgabe, ebenso wie in Basic, durch die „CON- 
TROL*‘‘-Taste verzögert werden. Zusätzlich kann der Ausgabevorgang mit einem 
Betätigen der Leertaste angehalten und mit einem weiteren Druck auf diese Taste 
fortgesetzt werden. 


Der größte Unterschied zu dem Basic-Listbefehl ist allerdings, daß das Programm 
strukturiert ausgegeben wird. Das bedeutet, daß überall, wo Strukturbefehle wie 
Schleifen oder Bedingungsbefehle verwendet werden, der Teil des Programms, der 
innerhalb einer solchen Struktur steht, um ein Zeichen nach rechts verschoben wird. 
Das sieht dann zum Beispiel so aus: 


Basic Comal 


1 FOR a=1 TO 100 1 FOR a:=1 to 100 DO 
2 PRINT „Das ist der“; 2 PRINT „Das ist der“; 


a;“. Durchlauf der a;“. Durchlauf der 
Schleife.“ Schleife.“ 
3 NEXT a 3 ENDFOR a 





Dadurch wird das Programmlisting natürlich viel übersichtlicher und einfacher zu 
lesen. Auch ineinander verschachtelte Strukturen werden sofort deutlich, weil sie 
dann jeweils um mehrere Zeichen nach rechts eingeschoben werden. Diesem struk- 
turierten Listen kommt besonders deshalb eine große Bedeutung zu, weil es in 
Comal erheblich mehr Strukturbefehle gibt als in Basic. 


Es ist aber auch möglich, das Programm nicht strukturiert, sondern wie in Basic 
auszugeben. Das wird mit dem Befehl „EDIT“ erreicht, der die gleiche Syntax wie 
der Befehl „LIST“ hat, der aber das Programm so ausgibt, daß Strukturen nicht 
mehr äußerlich am Listing zu erkennen sind. 
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6/4.1.4.2 


Programmschleifen 





Programmschleifen sind elementare Mittel des Programmierens, die jeder Rechner 
beherrscht. Allerdings gibt es hier verschiedene Ausprägungen dieser Fähigkeit. In 
Basic zum Beispiel, gibt es nur die FOR... . NEXT-Schleife. Das ist sehr wenig, und 
dem wurde in Comal abgeholfen. In dieser Programmiersprache kann man nämlich 
lästige Umschreibungen vergessen. 


FOR ... STEP.... ENDFOR 


Wie in Basic, ist es auch in Comal möglich, Schleifen zu programmieren. Im Unter- 
schied zu Basic heißt hier der Schleifenbegrenzungsbefehl nicht „NEXT“, sondern 
„ENDFOR“. Wird trotzdem „NEXT“ verwendet, setzt Comal automatisch dafür 
„ENDFOR“ ein. Beim nächsten Listen erscheint also an dieser Stelle „ENDFOR“, 
um die Aufwärtskompatibilität von Basic zu Comal zu wahren. Die „FOR‘-Anwei- 
sung muß in einer eigenen Zeile stehen; am Ende dieser Zeile steht „DO“, um die 
Anweisungsliste einzuführen. Dieses „DO“ muß aber nicht eingegeben werden, son- 
dern es wird auch automatisch von Comal eingefügt. Die Schleifenstruktur sieht 
also folgendermaßen aus: 








FOR <Schleifenvariable>:= <Anfangswert> TO <Endwert> (STEP <Schrittweite>) DO 
< Schleifenanweisungen > 


ENDFOR (<Schleifenvariable>) 





REPEAT ... UNTIL 


Mit der REPEAT ... UNTIL-Anweisung kann eine Schleife beschrieben werden, 
die beim Programmieren relativ oft Verwendung findet, aber in Basic nur durch eine 
Umschreibung realisiert werden kann. Diese Anweisung sieht im Programm folgen- 
dermaßen aus: 


REPEAT 


< Schleifenanweisungen > 


UNTIL <Bedingung> 





Die Anweisungen innerhalb einer Schleife werden so oft wiederholt, bis eine be- 
stimmte Bedingung wahr wird, die nach „UNTIL“ steht. Hierzu ein Beispiel: 
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REPEAT 
INPUT „Bitte Codewort eingeben: „:code$ 


UNTIL code$=,,comal“ 





Der Computer bittet Sie hier solange, das Codewort einzugeben, bis Sie das richtige 
Codewort, nämlich „comal“, eingegeben haben. 


WHILE ... ENDWHILE 


Auch die while... endwhile-Anweisung dient dazu, Programmideen, die nahezu 
aus der Alltagssprache kommen, möglichst einfach auf dem Computer realisieren 
zu können. Im Programm wird die Anweisung so verwendet: 


WHILE <Bedingung> 


<Schleifenanweisungen > 


ENDWHILE 





Die Schleifenanweisungen werden solange ausgeführt, wie die nach „WHILE“ auf- 
geführte Bedingung wahr ist. Ist diese Bedingung nicht mehr wahr, dann wird das 
Programm in der Zeile nach dem Begrenzungsbefehl „ENDWHILE“ fortgesetzt. 


Es ist aber auch eine einzeilige Kurzform dieser Anweisung verfügbar, die keinen 
Begrenzungsbefehl benötigt. Sie wird so verwendet: 


WHILE <Bedingung>» DO <Schleifenanweisung> 


Wenn es sich nur um eine Schleifenanweisung handelt, kann diese Kurzform benutzt 
werden. Nachdem die Bedingung in der Anweisung unwahr geworden ist, wird das 
Programm in der nächsten Zeile fortgesetzt. 


6/4.1.4.3 


Verzweigungen 





Auch in COMAL sind Verzweigungen beziehungsweise Bedingungsbefehle verfüg- 
bar. Im Gegensatz zu Basic können solche Bedingungsstrukturen mehrzeilig sein. 
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Der Trend geht also hier weg von einer Verzweigung in einen eigenen Programmteil 
(mit „GOTO“); es wird versucht, bestimmte Strukturen, die bei einer wahren Bedin- 
gung ausgeführt werden sollen, gleich an Ort und Stelle zu bearbeiten. Dadurch 
wird ein in Basic zwangsweise vorhandenes Herumspringen weitgehend vermieden. 


IF... ELSE... ELIF... ENDIF 

Wie auch in Basic ist der Bedingungsbefehl „IF” vorhanden. In Basic ist dieser nur 
einzeilig verfügbar; will man aber trotzdem mehrzeilige Befehlsfolgen unterbringen, 
so muß dies umständlich umschrieben werden. Das ist in COMAL nicht nötig, aber 
die magere einzeilige Variante des Befehls ist wegen der Aufwärtskompatibilität 
trotzdem vorhanden. Die Syntax sieht, der von Basic entsprechend, folgendermaßen 
aus: 


IF <Bedingung> THEN <Anweisung>] 


Die einfachste Form der Syntax in der mehrzeiligen Version lautet folgendermaßen: 





IF <Bedingung> THEN 
< Anweisung 1> 
<Anweisung 2> 


< Anweisung n> 
ENDIF 





Man muß also lediglich nach „THEN“ eine neue Zeile anfangen und die Anwei- 
sungsliste dann mit „ENDIF“ abschließen. Die komplexeste Form sieht dann so 
aus: 


IF <Bedingung> THEN 
<Anweisungen> 

ELIF <Bedingung> THEN 
< Anweisungen> 

ELIF <Bedingung> THEN 


<Anweisungen> 
ELSE 

< Anweisungen > 
ENDIF 





Wie man sieht, können beliebig viele „ELIF“‘-Anweisungen eingebaut werden. Die 
Auswertung dieser Struktur geht dann wie folgt vor sich: Es wird zuerst die „IF“- 
Bedingung überprüft. Ist diese wahr, dann werden die Anweisungen unter „IF“ aus- 
geführt und das Programm wird nach „ENDIF“ fortgesetzt. Trifft die „IF‘- 
Bedingung nicht zu, dann werden nacheinander die „ELIF‘‘-Bedingungen durch- 
geprüft. Kommt der Computer zu einer, die wahr ist, dann führt er die zugehörigen 
Anweisungen aus und macht dann im Programmablauf nach „ENDIF“ weiter. Ist 
die „IF‘- und sind alle „ELIF‘“-Bedingungen unwahr, dann werden die Anweisun- 
gen nach dem „ELSE“Befehl ausgeführt. Hierzu ein Beispiel: 
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INPUT ‚Bitte geben Sie eine Zahl ein :“:zahl 
IF zahl <100 THEN 
PRINT „Die Zahl ist kleiner als 100° 
ELIF zahl<200 THEN 
PRINT „Die Zahl liegt zwischen 100 und 200“ 
ELIF zahl<300 THEN 
PRINT „Die Zahl liegt zwischen 200 und 300“ 


ELIF zahl<400 THEN 
PRINT „Die Zahl liegt zwischen 300 und 400“ 
ELSE 
PRINT ‚Die Zahl ist größer als 399" 
ENDIF 
END 








Zu beachten ist noch einmal, daß, wenn eine „IF‘‘- oder „ELIF‘‘-Anweisung wahr 
ist, keine andere „ELIF‘‘-Anweisung mehr überprüft wird. 


CASE ... WHEN... OTHERWISE ... ENDCASE 


Die „CASE“-Anweisung funktioniert ähnlich wie die „IF‘“-Anweisung, nur wurde 
hier zusätzlich versucht, den Wortlaut und die Form der Programmstruktur der 
menschlichen Sprache anzupassen. Die allgemeine Form der „CASE“-Anweisung: 


CASE <Ausdruck> OF 
WHEN <Wertel > 

< Anweisungen > 
WHEN <Werte2> 


<Anweisungen> 
OTHERWISE 

<Anweisungen> 
ENDCASE 





Natürlich können auch bei der „CASE“‘-Anweisung Teile weggelassen werden. Min- 
destens muß aber der „CASE“- und der „ENDCASE“-Befehl vorhanden sein. Bei 
der „CASE“‘-Anweisung wird geprüft, ob der Ausdruck, der aus einem numeri- 
schen Wert oder einer Zeichenkette bestehen kann, bestimmte Werte hat. Dieser 
Ausdruck wird hinter dem „CASE‘‘-Befehl plaziert. Danach folgen hinter 
- „WHEN“ ein oder mehrere Werte; bei mehreren Werten, die für die Bedingung zur 
Auswahl stehen sollen, müssen diese mit Komma getrennt sein. Enthält der Aus- 
druck einen dieser Werte, dann werden die Anweisungen in den folgenden Zeilen 
ausgeführt. Das Programm wird.dann nach der „ENDCASE‘‘-Anweisung fortge- 
setzt. Hat nun aber der Ausdruck keinen der hinter den „WHEN“‘-Anweisungen an- 
gebotenen Werte, dann werden die Anweisungen hinter der „OTHERWISE‘“- 
Anweisung ausgeführt. Hierzu ein Beispiel: 
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CASE antw$ of 
WHEN „j, „ja; „y'; „yes“ 
print „Anweisung wird ausgeführt.“ 





WHEN ‚,n“, „nein“, „no“ 
print „Anweisung wird nicht ausgeführt.“ 





OTHERWISE 
print „Eingabe nicht verstanden.“ 
print „Bitte wiederholen.“ 






ENDCASE 





INPUT ‚Soll ich diese Anweisung ausführen: :antw$ 
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Zuerst wird gefragt, ob eine bestimmte Anweisung ausgeführt werden soll. Danach 
kommt die Auswertung mit „CASE ...“. Ist die Antwort „j“, „ja“, „y““ oder „yes“, 
dann wird die Anweisung ausgeführt. Ist die Antwort „n‘“, „nein“ oder „no“, dann 
wird die Anweisung nicht ausgeführt. Hat die Antwort keinen der sieben zur Aus- 
wahl gestellten Werte, dann werden die Anweisungen nach „OTHERWISE“ aus- 


geführt (hier nur angedeutet). 


6/4.1.5 


Unterprogramme und Variablen 





Im Gegensatz zu Basic, können in COMAL neue Befehle und Funktionen in abge- 
schlossenen Unterprogrammstrukturen definiert werden. Auch die verschiedene 
Handhabung von Variablen ist für Basic-Benutzer neu. Während es in Basic nur 
globale Variablen gibt, sind in COMAL globale und lokale Variablen verfügbar. 
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6/4.1.5.1 


Definition neuer Befehle (Prozeduren) 





In COMAL ist es im Gegensatz zu Basic möglich, neue Befehle zu definieren. Ver- 
einfacht können diese Befehle dazu verwendet werden, ein Unterprogramm nicht 
mit einer Zeilennummer, sondern mit einem Label, also einem Namen, anzusprin- 
gen. Wenn diese Funktion als Möglichkeit zur Definition neuer Befehle genutzt 
wird, können, wie bei normalen Befehlen auch, Parameter, also Variablen, an das 
Unterprogramm übergeben werden. In anderen Programmiersprachen wird diese 
Struktur auch Prozedur genannt (z.B. bei PL/1 und Pascal). Im Standardfall sieht 
die Befehlsfolge folgendermaßen aus: 


PROC <Name der Struktur> (<Liste von Variablen>) 
< Anweisungsliste > 


ENDPROC <Name der Struktur> 
Zum besseren Verständnis nun ein einfaches Beispiel: 


INPUT ‚Wieviele Zeilen Vorschub:“:zeilen 
ZEILENVORSCHUB (zeilen) 
PRINT „Vorschub ausgeführt.“ 


PROC ZEILENVORSCHUB (vorschub) 
FOR a:=1 to vorschub do 
PRINT 
ENDFOR a 
ENDPROG ZEILENVORSCHUB 











In diesem Programmbeispiel wird zuerst gefragt, wieviele Zeilen vorgeschoben wer- 
den sollen. Der eingegebene Wert wird in der Variablen „vorschub“ gespeichert. 
Danach wird der neue Befehl „ZEILENVORSCHUB“ mit der Variablen „vor- 
schub“ angesprochen. Dieser ist im darauffolgenden Unterprogramm definiert. 
Hier wird der übergebene Parameter verarbeitet. Dann werden entsprechend der 
Variablen „vorschub“ Vorschübe durch eine Schleife mit PRINT-Anweisung aus- 
geführt. Wird der ENDPROC-Befehl erreicht, wird der Programmablauf im 
Hauptprogramm fortgesetzt. 


Wird das Sprachelement „REF“ bei der Definition des Befehles vor die Variable im 
Argument gesetzt (z.B. PROC ZEILENVORSCHUB [REF vorschub]), dann werden 
innerhalb der Prozedur bei der Ausführung nicht die aktuellen Werte der Parameter, 
sondern die Namen der Parameter verwendet. Vor allem wird dies wichtig, wenn den 
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aktuellen Variablennamen beim Aufruf der Prozedur innerhalb der Prozedur Werte 
zugeordnet werden sollen. 


6/4.1.5.2 


Definition neuer Funktionen 





In nahezu identischer Weise können auch Funktionen wie Befehle definiert werden. 
Im Argument dürfen dabei beliebig viele Variablen stehen und die Sequenz kann be- 
liebig lang werden. Der in der Prozedur errechnete Funktionswert wird mit dem Be- 
fehl „RETURN < Variable>“ an das Hauptprogramm zurückgegeben. Hierzu ein 
Beispiel: 


INPUT „Zahl“:z 
PRINT z 
PRINT bruchteil(z) 


FUNG bruchteil(a) 
br=a-int(a) 
return(br) 

ENDFUNK bruchteil 





Im ersten Teil dieses Beispiels wird die Eingabe einer Zahl verlangt, die in der Varia- 
blen „z‘ gespeichert und dann sofort auf dem Bildschirm ausgegeben wird. Danach 
wird mittels eines PRINT-Befehls die Funktion bruchteil() angesprochen, die im 
folgenden definiert ist. Zu Beginn steht der Befehl „FUNC“ und danach der Name 
der Funktion und die Funktionsvariable, wie sie in diesem Teilprogramm benutzt 
wird. Dann wird die Funktion angegeben und der Wert mit „RETURN“ an das 
Hauptprogramm zurückgegeben. Am Ende steht „ENDFUNC“ mit dem Funk- 
tionsnamen, um die Funktion räumlich abzuschließen. 
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6/4.1.5.3 


Lokale und globale Variablen (CLOSED) 





In Basic gibt es nur globale Variablen, das sind Variablen, die jederzeit und von 
jedem Programmabschnitt aus abrufbar sind. Lokale Variablen kommen bei 
Befehls- und Funktionsdefinitionen vor. Die Funktionsargumente sind immer 
lokal: 


PROC TEILEN (namen$) 
FUNG PRIMZAHL (zahl) 


Dies bedeutet, daß die gekennzeichneten Variablen auch im Hauptprogramm vor- 
kommen können, aber daß sich Ihr Wert auch nicht ändert, wenn die Werte der 
Funktionsargumente im Unterprogramm geändert werden. Die beiden Variablen 
sind also trotz des gleichen Namens unabhängig. Hierzu ein Programmbeispiel: 


a=3;b=4 

PRINT „a=“,,,b=",b 
produkt(a) 

PRINT „a=“,a;,,b=“,b 


PROC produkt(a) 
a=a*b;b=5 
PRINT „a=",a;,,b=",b 
ENDPROGC produkt 





Dabei erhält man folgendes Ergebnis: 





Der Wert von „a“ wird im Unterprogramm geändert. Trotzdem hat „a“ nachher im 
Hauptprogramm wieder den gleichen Wert wie ganz am Anfang. „a“ war also im 
Unterprogramm eine lokale Variable. Auch der Wert von „b“ ist im Unterprogramm 
abgeändert worden. Allerdings hat „b“ nachher im Hauptprogramm noch diesen 
abgeänderten Wert. „b“ ist also eine globale Variable (wie in Basic immer). 


Es gibt aber auch die Möglichkeit, alle im Unterprogramm ausgegebene Variablen 
zu lokalen Variablen zu machen. Dies ist mit Hilfe des Befehls „CLOSED“ möglich, 
der dann am Ende der Einleitungszeile steht, wie zum Beispiel: 
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PROC produkt(a) CLOSED ] 





Wenn man das obige Programm so ändern würde, dann wäre auch „b“ im Unter- 
programm eine lokale Variable. Der Programmablauf sähe nun so aus: 


a=3 b=4 
a=12 b=5 
a=3 b=4 


Nun hat auch „b“ trotz einer Änderung seines Wertes im Unterprogramm im 
Hauptprogramm wieder den gleichen Wert wie ganz am Anfang. „b“ ist nun im 
Unterprogramm eine lokale Variable. 


6/4.1.6 


Hochauflösende Grafik 





Der Commodore 64 ist mit einer für seine Größe recht guten Auflösung versehen. 
Diese wird aber in Basic durch keinen einzigen Befehl unterstützt. Dem ist in 
COMAL durch eine ganze Reihe von Grafikbefehlen abgeholfen worden. 


Mit dem Befehl SETGRAPHIC können Sie die Grafik einschalten. Geben Sie SET. 
GRAPHIC 0 ein, dann arbeiten Sie auf einem hochauflösenden Bildschirm mit 
zwei Farben (Vordergrund und Hintergrund) mit einer Punktmatrix von 320x200. 
Mit SETGRAPHIC 1 arbeiten Sie mit einem Mehrfarbenbildschirm mit vier Farben 
(3 Vordergrund, 1 Hintergrund) mit einer Auflösung von 160x200 Punkten. 


Wenn sie die Grafik schon einmal initiiert hatten, genügt die Eingabe von SET- 
GRAPHIC ohne Argument, um wieder auf den vorher festgelegten Grafikbild- 
schirm zu kommen. 
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6/4.1.6.1 


Aufbau des Bildschirms und Modi 





Wie schon erwähnt ist die Auflösung vom Grafikmodus abhängig. Bei manchen 
Grafikbefehlen ist ein Punkt direkt adressierbar; hierbei ist zu beachten, daß sich 
in der linken unteren Ecke der Punkt mit den Koordinaten 0,0 (im Gegensatz zur 
„normalen“ Koordinatenverteilung beim C 64) befindet. Die Ausdehnung nach 
oben geht mit 200 Punkten bis zum Punkt 0,199 in der linken oberen Ecke. Zu be- 
merken ist, daß bei allen folgenden Punktangaben zuerst die x-Koordinate und 
danach mit Komma abgetrennt die y-Koordinate angegeben wird. Nach rechts be- 
trägt die Ausdehnung je nach Modus 320 oder 160 Punkte bis zum Punkt in der 
rechten unteren Ecke mit den Koordinaten 319,0 bzw. 159,0. 


Mit dem Befehl SETTEXT kann vom Grafikbildschirm wieder auf den Textbild- 
schirm zurückgeschaltet werden. Auf dem Grafikbildschirm selbst gibt es zwei ver- 
schiedene Modi der Aufteilung. Geben Sie den Befehl FULLSCREEN ein, dann ist 
der Grafikbildschirm über den ganzen verfügbaren Bildschirm verteilt. Besonders 
im Direktmodus ist es aber interessant, den Befehl SPLITSCREEN einzugeben, 
wodurch am oberen Bildschirmrand zwei Textzeilen eingeblendet werden, auf denen 
Direktanweisungen eingegeben werden können. Im Vierfarbenbetrieb ist dies jedoch 
nicht möglich. » 


6/4.1.6.2 


‚Idee der Turtle-Grafik 





Die Turtle-Grafik, die auch in der Programmiersprache Logo verwendet wird, ist 
eine sehr einfache und leicht verständliche Handhabung der Grafik. Sie wurde ur- 
sprünglich für Kinder entworfen, wobei hier allerdings eine’erweiterte Version vor- 
liegt. 

Nach dem Einschalten der Grafik erscheint in der Mitte des Bildschirms ein Drei- 
eck, das Turtle oder, zu deutsch, Schildkröte genannt wird. Mit einfachen Befehlen 











Teil 6 Kapitel 4.1 Seite 16 COMAL 








4.1 Comal 0.14 Teil 6: Weitere Programmiersprachen 


kann diese Schildkröte nun um eine jeweils bestimmte Schrittanzahl gedreht, vor- 
wärts, rückwärts oder nach links oder rechts bewegt werden. Zu diesem elementaren 
Befehlen sind noch einige Befehle ergänzt worden, mit denen man die Schildkröte 
auch direkt zu einem Punkt bewegen kann. Schließlich kann vor jedem Bewegen der 
Turtle noch festgelegt werden, ob sie nur über den Bildschirm bewegt werden oder 
ob sie dabei auch eine Linie zeichnen, das heißt quasi eine Spur hinterlassen, soll. 


6/4.1.6.3 


Die Grafik-Befehle 





Im folgenden werden nun alle noch nicht erwähnten Grafikbefehle und solche, die 
mit der Grafik etwas zu tun haben, in alphabetischer Reihenfolge aufgeführt und 
kurz erklärt. 


BACK <numerischer Ausdruck > 


Mit diesem Befehl kann die Schildkröte um die nach BACK stehende Schrittanzahl 
nach hinten bewegt werden. Es handelt sich also hier um eine relative Anweisung 
zur aktuellen Position. 


CLEAR 


Mit dem Befehl CLEAR wird der Grafikbildschirm gelöscht, das heißt, daß alle 
Punkte in Hintergrundfarbe (BACKGROUND!) dargestellt werden. 


DRAWTO <x-Koordinate>, <y-Koordinate> 


Mit DRAWTO kann die Schildkröte von einer beliebigen Position aus an die mit 
Koordinaten angegebene Stelle bewegt werden (absolute Positionierung). Dabei wird 
hier immer eine Linie gezeichnet. 


FILL <x-Koordinate>, <y-Koordinate> 


Dieser Befehl füllt, von den angegebenen Koordinaten ausgehend, eine Fläche auf 
dem Bildschirm aus. Diese kann zum Beispiel mit vorher gezeichneten Linien vor- 
gegeben werden. Sobald die Begrenzung um den angegebenen Punkt irgendwo „un- 
dicht“ ist, wird auch außerhalb der gewünschten Fläche ausgefüllt. 
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FORWARD <Schritte> 


Mit dieser Anweisung können Sie die Schildkröte um eine bestimmte Anzahl von 
Schritten, bzw. Bildschirmpunkten, nach vorne (=vorwärts) bewegen. 


HIDETURTLE 


Mit HIDETURTLE wird die Schildkröte, die die Position des Grafikkursors angibt, 
unsichtbar gemacht, um zum Beispiel eine fertige Grafik auch ohne Schildkröte be- 
trachten zu können. 


HOME 


Diese Anweisung bringt die Schildkröte in die Mitte des Grafikbildschirms. Sollte 
mit FRAME ein Rahmen definiert sein, so wird sie in die Mitte dieses Rahmens ge- 
bracht. 


LEFT < Winkelgrade > 


Mit diesem Befehl wird die Schildkröte um die angegebene Anzahl von Graden nach 
links gedreht. Sie würde sich also zum Beispiel beim nächsten FORWARD-Befehl 
in eine andere Richtung bewegen. Eine ganze Drehung entspricht also 360 Grad. 


MOVETO <x-Koordinate>, <y-Koordinate> 


Mit MOVETO kann die Schildkröte zu den gewünschten Koordinaten verschoben 
werden, ohne daß sie eine Linie zeichnet. Es handelt sich hier also um das Gegen- 
stück zu DRAWTO. 


PENDOWN 


Mittels dieser Anweisung kann die Schildkröte auf Zeichenmodus eingestellt wer- 
den. Das bedeutet, daß bei allen Befehlen wie FORWARD oder BACK eine Linie 
gezeichnet wird. Der imaginäre Schreibstift (pen) wird auf die Schreibfläche herun- 
ter (down) gesetzt. 


PENUP 


Dieser Befehl ist das genaue Gegenstück zu PENDOWN. Wird nach ihm durch 
einen Befehl wie FORWARD oder BACK die Schildkröte bewegt, dann wird keine 
Linie gezeichnet, bzw. es wird keine „Spur hinterlassen“. 


PLOT <x-Koordinate>, <y-Koordinate> 


Mit PLOT wird an der angegebenen Stelle auf dem Grafikbildschirm ein Punkt ge- 
zeichnet. 
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PLOTTEXT <x-Koordinate>, <y-Koordinate>, <Text> 


Durch diese Anweisung kann auch auf dem Grafikbildschirm normaler Text darge- 
stellt werden. Die angegebenen Koordinaten bestimmen den Punkt, an dem der Text 
anfängt; der zu druckende Text wird einfach hinter den Koordinaten in Form einer 
Zeichenkette abgelegt. Die Anfangskoordinaten werden vom Computer so gerun- 
det, daß der Text in den vom normalen Bildschirm her bekannten Zeilen und Spal- 
ten gedruckt wird. Diese Anweisung ist im Vierfarbenmodus nicht verwendbar. 


RIGHT <Winkelgrade> 


Mit diesem Befehl kann die Schildkröte, wie bei LEFT erklärt, um eine angegebene 
Gradzahl nach rechts gedreht werden. 


SETHEADING <Winkelgrade> 


Durch SETHEADING kann die Schildkröte auf eine bestimmte Richtung gedreht 
werden, wobei 0 z.B. 360 Grad nach oben und 90 Grad nach rechts zeigt. 


SETXY <x-Koordinate>, <y-Koordinate> 


Mit dieser Anweisung ist es möglich, die Schildkröte an einen durch die Koordina- 
ten festgelegten Platz zu bringen. Im Gegensatz zu DRAWTO und MOVETO ist es 
aber hier entscheidend, ob man sich im PENUP- oder im PENDOWN-Modus be- 
findet. 


SHOWTURTLE 


Hier handelt es sich um das Gegenstück zum Befehl HIDETURTLE. Nachdem die 
Schildkröte mit HIDETURTLE unsichtbar gemacht worden ist, kann sie mit 
SHOWTURTLE wieder sichtbar gemacht werden. 


TURTLESIZE <Größe> 


Mit dieser Anweisung kann der Schildkröte eine bestimmte Größe gegeben werden. 
Diese Größe reicht von O bis 10, wobei 10 der größte Wert ist und auch der, der beim 
Einschalten von COMAL eingestellt ist. 


Schalten sie also mit SETGRAPHIC 0 im Direktmodus den Grafikmodus an und 
geben Sie zum Beispiel TURTLESIZE 5 ein und sehen Sie, was passiert. Die Schild- 
kröte hat ihre Größe halbiert. Mit TURTLESIZE 10 bekommt sie wieder die ur- 
sprüngliche Größe. 


Nun folgen drei Befehle, mit deren Hilfe man die Farben in verschiedenen Bereichen 
des Bildschirms einstellen kann. 
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1. BACKGROUND <Farbnummer > 


Mit BACKGROUND kann die Hintergrundfarbe, das ist die Farbe, auf der die 
eigentliche Grafik gezeichnet wird, geändert werden. Die zugehörige Nummer zu 
einer Farbe finden Sie in Ihrem Bedienungshandbuch. 


2. BORDER <Farbnummer > 
Mit dieser Anweisung können Sie dem Feld außerhalb der Fläche, in der gezeichnet 
werden kann, also im Rahmen, eine neue Farbe einsetzen. 


3. PENCOLOR <Farbnummer > 


Durch diesen Befehl können Sie die Zeichenfarbe ändern. Geben Sie also hiermit 
eine neue Farbe an und zeichnen Sie danach eine Linie, dann erscheint diese in der 
neuen Zeichenfarbe. 
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Handelsware 





711.8 
Maussteuerungen 





Neben der in diesem Buch in Kapitel 4/4.6 vorgestellten Maussimulation mit dem 
Joystick, möchten wir in Teil 7 auf handelsübliche Mäuse eingehen. Bei allen hier 
vorgestellten Mäusen ist jedoch eine Mauseigenschaft zu berücksichtigen, die ihre 
Anwendung im Home-Computerbereich stark beeinträchtigt: Der Platz. Wie alle 
Tiere braucht auch die Maus ihren Auslauf. 


71.8.1 


Magic-Maus 





Eine der beiden bei Redaktionsschluß auf dem Markt befindlichen Mäuse war die 
Magic-Maus von CONTRIVER ENTERPRISE CO.,, LTD. In Deutschland wird 
das Produkt vertrieben von TS ELEKTRONIK, 6657 Gersheim. Im Handel ist sie 
für ca. DM 210,— zu haben. 


Zum Lieferumfang gehört neben der Maus ein 23-seitiges englisches Handbuch und 
eine sechsseitige deutsche auszugsweise Übersetzung, die aber alles wesentliche ent- 
hält. Selbstverständlich ist eine Diskette mit der notwendigen Treibersoftware vor- 
handen, die zudem noch ein Zeichenprogramm und Hilfsmittel zur Sprite- und 
Icon-Erstellung beinhaltet. 


Die Ladezeiten der einzelnen Teilprogramme liegen im üblichen Rahmen bei Ver- 
wendung einer 1541. Nachdem das Hauptprogramm mit 


LOAD „MENU“, 8 


geladen wurde, ist dieses mit RUN zu starten. Damit wird ein weiteres Programm 
geladen, das schließlich in einem Menü am Bildschirm den verwendeten Drucker er- 
fragt. Es stehen vier Druckertypen zur Auswahl: 
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— EPSON oder GEMINI (normal image) 

— EPSON oder GEMINI (inverse image) 

— CBM-1525/MPS-801 (oder Pendants dieser Drucker) 
— EPSON mit Userport-Interface 








Haben Sie Ihren Druckertyp ausgewählt, so wird zunächst ein weiteres Programm 
geladen. 


Während Sie die ganzen Programme in den Speicher des C 64 holen, können sie 
die Maus zusammenbauen. Aus Gründen der Transportsicherheit ist die sogenannte 
Spurkugel noch nicht in der Maus enthalten. Auf der Unterseite ist eine Schraube 
zu lösen und die Spurkugel hineinzulegen. 


In der Zwischenzeit dürfte auch das Hauptmenü zur Maussteuerung geladen sein. 
Nun können Sie die Maus einjustieren. Das Wie wird im Handbuch ausführlich be- 
schrieben. 


Abweichend von den meisten Mäusen weist die Magic-Maus drei Tasten in verschie- 
denen Farben (rot, blau, gelb) auf. Meist werden jedoch nur eine oder zwei der 
Tasten benötigt. 


Im Hauptmenü können Sie bereits mit der Maus den gewünschten Punkt anwählen. 
Zur Verfügung stehen wie bereits erwähnt: 


Zeichenprogramm für hochauflösende Grafik 
Sprite-Entwurfsprogramm 


Icon-Entwurfsprogramm (auch für den Zeichensatz) 
und der Mouse-Controller 








Bevor Sie anfangen, sollten Sie sich jedoch neben Ihrem Rechner mindestens einen 
Platz von 50x50 cm schaffen, auf dem die Maus ungehindert operieren kann. 


Wenn Sie Ihren Menüpunkt angewählt haben — wir wählen zunächst einmal die 
hochauflösende Grafik — aktivieren Sie den gelben Knopf und das Grafik- 
programm wird geladen. 
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711.8.1.41 


Mitgelieferte Software 





Der Preis der Magic-Maus wird nicht nur alleine durch die hardwaremäßige Maus 
gerechtfertigt, sondern auch durch die mitgelieferten Programme, die wir im Fol- 
genden unter die Lupe nehmen möchten. 


Zeichenprogramm für hochauflösende Grafik 


Das Zeichenprogramm stellt grundsätzlich neun verschiedene Linienformen 
(BRUSHES genannt) zur Verfügung. Diese sind in dem anfangs sichtbaren Menü- 
feld dargestellt und können mit der Maus „angeklickt“ werden. Im Menüfeld ist der 
Mauszeiger durch eine Hand mit ausgestrecktem Daumen und Zeigefinger darge- 
stellt. 


Generell dient im Grafikprogramm die gelbe Taste zum Anklicken der gewünschten 
Eigenschaften und die rote Taste zum Umschalten zwischen Menü und Zeichen- 
blatt. Klicken Sie z.B. irgendeinen der Malstifte an, so verlöscht dieses Zeichen in 
dem vorgesehenen Feld und die Form des bisherigen Malstiftes (Voreinstellung: ein 
Punkt) erscheint wieder in seinem Feld. Am unteren Bildschirmrand ist ein Text- 
fenster angegeben, bei dem Sie Ihre Texte eingeben können. Während des Zeichnens 
wird hier der ausgewählte Modus dargestellt. 


Bei den Modi können Sie zwischen zwanzig unterschiedlichen Arten wählen, die wir 
im Folgenden kurz ausführen wollen: 





gr 
Bezeichnung | Bedeutung Vorgehensweise 





DRAW einfaches Zeichnen Eine gedrückte gelbe Taste setzt einen Punkt in Form 
des gewählten BRUSHES an die Mausposition. Wird 
die Maus mit gedrückter Taste bewegt, so können auch 
| Linien gezeichnet werden. 





LINIE Linie ziehen Der Anfangspunkt wird zunächst mit Anklicken der gel- 
ben Taste markiert, dann der Grafikcursor auf den End- 
punkt der Linie gebracht. Durch ein weiteres Anklicken 
der gelben Taste wird eine Linie zwischen diesen bei- 
den Punkten gezogen. ü 








LINES fortlaufendes Wie LINE, jedoch stellt der Endpunkt der einen Linie 
zugleich den Anfangspunkt der nächsten Linie dar. 
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Bezeichnung 


Bedeutung 


Vorgehensweise 





FILL 


Gebiet ausfüllen 


Zunächst ist sicherzustellen, daß ein vollständig um- 
grenztes Gebiet ausgefüllt wird. Fehlt nur ein Bild- 
schirmpunkt in der Eingrenzung, so wirkt der FILL- 
Befehl auch außerhalb der gewünschten Begrenzung, 
im schlechtesten Fall sogar auf den ganzen Bildschirm. 





TEXT 


Text in Grafik 
eintragen 





Neben der Bezeichnung TEXT sind im Menüfeld noch 
die Begriffe SM und LA (abgeleitet von SMALL und 
LARGE) aufgezeigt. Durch Anklicken von SM erhalten 
Sie normale Schriftgröße und bei LA eine Breitschrift. 
Nachdem Sie wieder auf Ihr Zeichenbrett gewechselt 
haben, wird die Textausgabe mit der gelben Taste vor- 
bereitet. Dabei kann man feststellen, daß der Cursor um 
einige Bildschirmzeilen springt. Damit sucht er sich die 
gültige Position für einen Text, da Text nur dort in die 
Grafik eingetragen werden kann, wo auch im Textmodus 
ein Zeichen plaziert würde. Frei wählbare Positionie- 
rung innerhalb der Grafik auf einzelne Bildschirm- 
punkte ist also nicht möglich. 





FRAME 


Rechtecke zeichnen 


Zum Zeichnen des Rechteckes sind die linke obere und 
die rechte untere Ecke mit dem Grafikcursor anzu- 
klicken. 





BOX 





ausgefüllte Rechtecke 
zeichnen 





Wie bei FRAME 





CIRCEL 


Kreis zeichnen 


Zunächst ist der Mittelpunkt des Kreises anzuklicken, 
anschließend irgend ein Radius. 





RAYS 


Strahlen zeichnen 


Durch den Menüpunkt RAYS lassen sich Strahlen zn. | 
nen, wobei die Vorgehensweise ähnlich wie bei LINES 
und CIRCEL ist. Zunächst wird ein Mittelpunkt der 
Strahlen angeklickt. Dieser Mittelpunkt ist dann An- 
fangspunkt aller Linien, die im Folgenden mit dem 
Cursor angeklickt werden. 





AERO 


Sprühen 


Wie bei CIRCEL. im definierten Umkreis werden mit 
AERO zufällig Bildschirmpixel mit dem gewählten Zei- 
chenpinsel „gesprüht‘. 





CLEAR 


Grafikbildschirm 
löschen 


Sobald Sie nach Anwahl von CLEAR auf den Grafikbild- 
schirm umschalten, wird dieser vollständig gelöscht. 











Radieren 





Dort wo sich der Grafikcursor befindet, werden durch 


Anklicken mit der gelben Taste alle Bildschirmpunkte 
gelöscht. 
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= 

Bezeichnung | Bedeutung Vorgehensweise 

HORZ horizontale Linie Nach Anklicken des Anfangspunktes einer Linie verläßt 
zeichnen der Grafikcursor seine horizontale Position nicht mehr. 


Sofern Sie die Maus nicht horizontal bewegt haben, 
wird der Grafikcursor nach Zeichnen der Linie an die 
Position gesetzt, die Sie durch die normale Bewegung 
erreicht hätten. Dies ist immer ein Punkt in der Spalte, 
wo sich der Endpunkt der Linie befindet. 











VERT senkrechte Linie Wie bei HORZ 
ziehen 

FINE Grafikcursor punkt- Da die Maus nicht immer punktfein an einer gewünsch- 
weise positionieren ten Position herangeführt werden kann, bietet das 


Zeichenprogramm die Möglichkeit, mit den Tasten Q, E, 
A,D, Z,X und C eine pixelfeine Bewegung durchzufüh- 























ren. 
LOAD Laden von Grafiken Im Textfenster wird der Name der Datei erfragt. Datei- 
namen dürfen dabei maximal 13 Zeichen lang sein, drei 
Beispiele befinden sich bereits auf der Diskette. 
SAVE Grafik speichern Der Name wird im Textfenster erfragt. 
PRINT Hardcopy (normal) 
SHADE Hardcopy ausdrucken | Falls Interface für Drucker am Userport angeschlossen. 
EXIT Zurück zum Haupt- 
menü 
— 








Mit dem Zeichenprogramm lassen sich recht ansprechende Bilder darstellen, wie 
auch die drei auf Diskette befindlichen Beispiele (SAILING, MOON BASE und 
HATTER) zeigen. Wünschenswert wäre jedoch auch noch ein Zoom-Effekt gewe- 
sen, mit dem die Bildschirmpunkte auf 8x8 Punkte vergrößert werden. Dies würde 
dann ein saubereres Zeichnen ermöglichen, da auch Details besser zu gestalten sind. 


Sprite-Entwurfsprogramm 


Das Sprite-Entwurfsprogramm arbeitet naturgemäß mit einem Raster von 24 Spal- 
ten und 21 Zeilen. Zum Erstellen können die einzelnen Punkte in Textgröße gesetzt 
oder gelöscht werden. Sobald man aus dem Entwurfsrahmen heraus in die untere 
rechte Ecke wandert, erscheint ein Menü, das der Tastatur eines Taschenrechners 
nicht unähnlich sieht. Anhand des Menüs wollen wir die Möglichkeiten des Sprite- 
Entwurfsprogramms aufzeigen: 
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Hintergrundfarbe (alle Farben werden entsprechend ihrer Nummer 
durchlaufen) 

Zeichenfarbe (siehe B) 
Multicolor Sprite 0 (siehe B) 
Multicolor Sprite 1 (siehe B) 
Sprite-Zeigernummer um 10 erhöhen 
Sprite-Zeigernummer um 10 vermindern 
Nächstes Sprite auswählen 
Vorhergehendes Sprite auswählen 
Mehrfarbenmodus ein- und ausschalten 
Aktuelles Sprite löschen 

Spritedaten von Disk laden 

Spritedaten auf Disk speichern 

Sprite in X-Richtung dehnen 

Sprite in Y-Richtung dehnen 

Sprite invers darstellen 

zurück ins Hauptmenü 


RRKXUrHZ| ıuUca-on u 








Leider besteht keine Möglichkeit, die Sprites als Hardcopy in der Größe ihrer Erstel- 
lung auszudrucken. Ansonsten sind jegliche Hilfsmittel zur Erzeugung von Sprites 
gegeben. 


Mehrfarbige Sprites können allerdings nicht mit ihrer Farbnummer eingegeben wer- 
den, sondern das Bitmuster ist in dem 21x24-Raster nachzuvollziehen. Hier wäre 
eine Farbwahl des aktuell zu zeichnenden Punktes über das Menü sinnvoll gewesen, 
da es trotz der Zeilen- und Spaltennumerierung nicht sehr einfach ist, mehrfarbige 
Sprites bitweise zu erstellen. Eine kleine Hilfestellung ist hier jedoch die Anzeige des 
Sprites in Originalgröße und Farbe, wenn man sowohl die X- als auch Y-Ausdeh- 
nung einschaltet. Vielleicht wäre es auch sinnvoll gewesen, die Punkte im Entwurfs- 
blatt in der gewählten Farbe darzustellen. Ansonsten lassen sich Sprites sehr 
bequem erstellen. 


Icons entwerfen/ Zeichensatz ändern 


Der Zeichensatz läßt sich auf ähnliche Weise wie die Sprites manipulieren. Je sechs 
Zeichen werden zu einer 2x3 Matrix zusammengefaßt. Aufeinanderfolgende Blöcke 
können zusammen verarbeitet werden und auch das Übernehmen des Zeichensatzes 
zum Ändern derselben ist möglich. 


Besonders interessant ist diese Möglichkeit, da insgesamt 170 Icons generierbar 
sind, der Zeichengenerator des C 64 jedoch nur die ersten 86 Nummern benötigt. 


Leider hat sich bei der Iconnummer eine kleine Unstimmigkeit eingeschlichen. 
Haben Sie z.B. eine dreistellige Iconnummer bereits angewählt gehabt, und gehen 
nun auf eine zweistellige Nummer zurück, so bleibt die dritte Ziffer erhalten. 
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Mauskontrolle 

Wenn man die Magic-Maus besitzt, möchte man sicher nicht nur Sprites entwerfen, 
den Zeichensatz ändern oder Bilder „malen“. Interessant wird es, wenn man die 
Maus zur Steuerung eigener Programme einsetzen kann. 


Dazu muß das Control-Programm geladen werden, was den Bereich von 52736 bis 
53247 ($SCE00 — $CFFF) belegt. Außerdem wird noch ein Teil des Kassetten- 
puffers für die Darstellung des Mauscursors benötigt, und zwar die Adressen 896 
bis 959 ($0380 bis $03BF). 


Dieser Mauscursor ist, wie Sie anhand der Adressen erraten, ein Sprite, das auch 
noch den Anwenderwünschen angepaßt werden kann. 


Nachdem das Controlprogramm mit 


LOAD „CONTROL, 8, 1 


geladen und mit 


SYS 52800 


gestartet wurde, kann man die Maus mittels Basic- oder Maschinenspracheprogramm 
kontrollieren oder den Mauscursor verändern. 


Ein Basicprogramm wird durch die Maussteuerung selbst nicht beeinflußt bzw. das 
Bewegen der Maus auf dem Bildschirm wird dadurch nicht verlangsamt, da die 
Maus interruptgesteuert ist. 


Um den Mauscursor vor jedem beliebigen Hintergrund erscheinen lassen zu kön- 
nen, kann man ihn dann z.B. mit POKE 600,1 bzw. POKE 600,0 blinken lassen, 
d.h. seine Farbe wird fortlaufend von weiß auf schwarz geändert und umgekehrt. 


Mit POKE 53287 kann jede beliebige Farbe dem Mauscursor zugeordnet werden, 
sofern das Blinken abgeschaltet ist. 


Am wichtigsten ist die Abfrage der Mausposition. Die aktuellen Koordinaten der 
Maus sind in den Adressen 53248, 53264 und 53249 abgelegt. Dies sind die Register 
der Koordinaten von Sprite 0, wobei zu berücksichtigen ist, daß die X-Koordinate 
nicht in einem Byte dargestellt werden kann. Das entsprechende Bit der Adresse 
53264 (Register 16 des VIC) muß noch entsprechend ausgeblendet werden, wobei 
der Operator „AND 254“ verwendet wird. 


In Register 0 des VIC (53248) ist die Basis-X-Koordinate zu erfragen und in Register 
1 (53249) die Y-Koordinate. Etwas einfacher geht es, wenn man mit der Hälfte X- 
Koordinate zufrieden ist. In Adresse 593 ist dieser Wert abgelegt. Mit zwei multipli- 
ziert, ergibt der Wert in 50% aller Fälle das richtige Ergebnis, in den anderen Fällen 
liegt ein Fehler von einem Bildschirmpunkt vor. In Adresse 594 kann nochmals die 
Y-Koordinate abgefragt werden. 
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Bereits beim Zeichenprogramm hatten wir bei den Menüpunkten HORZ und VERT 
gesehen, daß die Maus nur in eine Richtung bewegt werden kann. Dafür ist Adresse 
576 zuständig. Ist in diesem Byte eine 0 eingetragen, so kann sich die Maus frei so- 
wohl in X- als auch in Y-Richtung bewegen. Eine 1 bedeutet, daß nur eine senk- 
rechte Bewegung möglich ist, und eine 2 schränkt die Bewegungsfreiheit auf die 
Waagerechte ein. 


Hier nochmals alle wichtigen Adressen der Maus in einer kleinen Tabelle: 





Adresse Bedeutung 





576 Eingrenzen der Bewegungsrichtung 
593 Halber Wert der X-Koordinate 
594 Y-Koordinate 

596 Abfragen der gelben Taste 

600 Blinken ein- und ausschalten 


52800 Startadresse für SYS 

53216 Ausschalten des Maus-Controlers (SYS) 
53248 Basis X-Koordinate 

53249 Y-Koordinate 

53264 MSB der X-Koordinate (Bit 0) 











Mit diesen Kenntnissen wollen wir im Folgenden ein kleines Menüprogramm vor- 
stellen. 


7N1.8.1.2 


Beispiele für die Mausverwendung 





Nachdem wir nun die zum Lieferumfang gehörige Software besprochen haben, 
möchten wir einige Beispiele für die Anwendung der Magic-Maus in eigenen Basic- 
Programmen vorstellen. 
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711.8.1.2.1 


Normales Menü 





Um die Maus in einem Basic-Programm anwenden zu können, braucht man ledig- 
lich die Koordinaten der Mausposition zu erfragen. Als Beispiel haben wir für Sie 
ein Demo-Menü mit sechs Menüpunkten gewählt. Das Programm liegt in allgemei- 
ner Form vor und kann den jeweiligen Wünschen entsprechend geändert bzw. in 
eigene Programme eingebaut werden. 








ABISSEITTEIESIER ADDEN DEE 
BR RI RR a De a RD I Fe N Te" 


"EHER RR BEER RE RE" 


"MEHLEPLHNKT 





zug 
IT "Ieiatel Zu = 

















Listing 71.8.1.2.1 (1) 
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FHEH HE=E 
THEN HEea 






HE=AL 














gun 











FEIHT "SS" ;LEFTECCTDG 
BE TUIEH 


EIHT 
FRIHT 





:ETLIEH 











Listing 7/1.8.1.2.1 (2) 
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= IHMT" TIeTateTen "ı MURDE ANGEMAEHLT" 





For Tel TO 1 





PUHET 2 WURDE ANGEMRAEHLT" 





FLHET 3 Zu 








FUHET 5 MURDE AHGEMAEHLT" 


L TO Yen 








AL PUHET © 














FUHET 4 WURDE AH BEHLT" 





DE AHGEMAEHLT" 








TO ZISTAIRTRTs] FUHET 5 





NEDE AHGEMAEHET" 





=1 TO 1R@8 HEAT 


1 FETURFH 








Listing 7/1.8.1.2.1 (3) 
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Zunächst muß natürlich einmal das Mauskontrollprogramm geladen und mit SYS 
52800 gestartet werden. Die beiden POKE-Befehle in den Zeilen 80 und 90 sowie 
der PRINT-Befehl in der Zeile 100 bestimmen die Farbgestaltung mit blauem Rah- 
men und blauer Schrift sowie gelbem Hintergrund. 


Die beiden Variablen CD$ und CR$ dienen der Cursorsteuerung. Dazu sei hier auch 
auf das Unterprogramm ab Zeile 1000 hingewiesen. Die Variable ZU$ dient zum 
Setzen des Cursors bei der Menüausgabe. Da die Menüpunkte innerhalb einer Um- 
rahmung ausgegeben werden, sind je Menüpunkt drei Zeilen auszugeben. ZU$ setzt 
den Cursor um die Länge der Menüausgabe zurück und eine Zeile tiefer. 


Die Menüpunkte, die aktuell von der Maus angesteuert werden, sollen in inverser 
Schrift dargestellt werden. Dazu ist jeweils ein Umschalten zwischen inverser und 
normaler Schrift nötig. Der Einfachheithalber werden die Texte der Menüpunkte in 
einem Feld TE$() gespeichert und ZE() zeigt an, in welchen Zeilen am Bildschirm 
die Texte der Menüpunkte ausgegeben werden sollen. Haben Sie mehr oder weniger 
Menüpunkte, so sind die Feldgrößen in den Zeilen 170 und 180 entsprechend zu 
ändern. 


Ab Zeile 200 wird zu jedem Menüpunkt der Text und die zugehörige Zeilennummer 
festgelegt und ab Zeile 270 diese Daten in die entsprechenden Felder eingelesen. 


Die Spalte zur Textausgabe (Eingabeparameter für das Unterprogramm ab Zeile 
1000 für die Spalte ist die Variable S) wird fest auf den Wert 12 gelegt. 


Eine weitere Hilfsvariable bildet RV$. In ihr wird der jeweilige gewünschte Code für 
inverse Schrift ein/aus abgelegt. Zeile 350 druckt die oberste Zeile des Auswahl- 
menüs, und ab Zeile 370 wird das Unterprogramm zur Ausgabe einzelner Menü- 
punkte für jeden Menüpunkt aufgerufen. Da die Variable RV$ auf normaler Schrift 
steht, wird bei der Grundausgabe kein Menüpunkt invertiert. 


Bevor wir zur Abfrage der Mausposition kommen, hier noch eine generelle Anmer- 
kung: Da die Mausposition in Spritekoordinaten (Sprite 0) angegeben wird, ist je- 
weils ein sogenannter Offset von 24 Bildschirmpunkten in der X-Richtung und 50 
Bildschirmpunkten in der Y-Richtung abzuziehen, wenn man die korrekte Position 
innerhalb des Bildschirmes erhalten möchte. Außerdem sind die Textzeichen jeweils 
mit 8x8.Bildschirmpunkten zu berechnen. Zur Abfrage reicht es bei uns, auf die 
Adressen 593 (halbe X-Koordinate) und 594 zurückzugreifen. 


Zunächst werden in den Zeilen 570 und 580 alle Koordinaten abgefragt, die nicht 
innerhalb der Menüanzeige liegen. In diesem Falle wird der imaginäre Menüpunkt 0 
ausgewählt. NE gibt jeweils den neuerrechneten Menüpunkt an. Ab Zeile 600 wer- 
den für die sechs Menüpunkte jeweils die Koordinaten erfragt und in NE der jeweilige 
Menüpunkt festgehalten. 


In jedem Fall wird auf Zeile 670 übergegangen, wo abgefragt wird, ob überhaupt 
ein neuer Menüpunkt angewählt wurde. Wenn nicht, werden die folgenden Zeilen 
übersprungen und in Zeile 740 abgefragt, ob die gelbe Taste an der Maus gedrückt 
wurde. Wenn nicht, wird zur erneuten Abfrage der Mausposition übergegangen. 
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Andernfalls wird aufgrund des angewählten Menüpunktes zu den entsprechenden 
Programmteilen verzweigt, die in unserem Beispielprogramm ab Zeile 3100 stehen. 
Unsere Programmsequenzen beschränken sich dabei nur auf die Angaben des aus- 
gewählten Menüpunktes und eine Warteschleife. Dies zur Kontrolle, ob das Pro- 
gramm richtig funktioniert. 


Wird in Zeile 670 festgestellt, daß der neuangewählte Menüpunkt vom alten diffe- 
riert, so wird zunächst in Zeile 690 mittels der Variablen RV$ auf normale Schrift 
umgeschaltet, und die Eingabevariable zur Ausgabe eines Menüpunktes (MP) auf 
den alten Menüpunkt eingestellt und sodann das erwähnte Unterprogramm aufge- 
rufen. Anschließend wird dafür gesorgt, daß der neue Menüpunkt in inverser 
Schrift dargestellt wird. Auf jeden Fall wird noch in Zeile 720 dem Wert für den 
alten Menüpunkt das neue Ergebnis zugewiesen. 


Cursor positionieren 


Die Positionierung des Cursors wird unter Zuhilfenahme der Variablen CD$ (25x 
Cursor nach unten) und CR$ (40x Cursor nach rechts) bewerkstelligt. Zunächst 
wird der Cursor in die linke obere Ecke des Bildschirms gebracht, um einen definier- 
ten Ausgangspunkt zu erreichen. Dann wird von CD$ die gewünschte Anzahl von 
Zeichen abgetrennt und der gleiche Vorgang mit der Variablen CR$ wiederholt. 


Zeile und Spalte bilden also die Eingabeparameter für das Unterprogramm zum 
Positionieren des Cursors. Wichtig ist das „;“ am Ende von Zeile 1040, da sonst 
unser Unterprogramm unwirksam wäre. 


Menüpunkt angeben 


Eingabeparameter für das Unterprogramm zur Ausgabe eines Menüpunktes ist die 
Variable MP, die in den Zeilen 690 und 700 sowie als Laufvariable der Zeile 460 vor- 
besetzt wird. Aufgrund von MP wird zunächst die Zeile des Menüpunktes mit Hilfe 
von ZE() ermittelt und anschließend der Cursor positioniert. 


Die Ausgabe des Menüpunktes erfolgt in drei Zeilen, wovon die mittlere den Text 
enthält. Aufgrund der Variablen RV$ wird der Menüpunkt entweder invers oder 
normal dargestellt. Die Funktion der Variablen ZU$ wurde bereits beschrieben. 
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771.11 
Der C 64 als Oszilloskop 


Autor: Andreas Frerichs 





Das in Bild 7/1.11-I gezeigte Zusatzgerät, welches einfach auf den USER-Port des 
C 64 (C 128) gesteckt wird, verwandelt den Computer in ein digitales Oszilloskop, 
ein Speicheroszilloskop oder einen Oszillographen. Durch die verschiedenen Be- 
triebsarten sind eine Vielzahl von Anwendungen möglich, die selbst mit Geräten der 
oberen Preisklasse nicht oder nur mit sehr aufwendigen Zusatzgeräten denkbar 
sind. Nach dem Einschalten und Starten des Programms zeigt sich das Titelbild des 
C 64 Oszilloskops (Bild 7/1.11-2). Nachdem die Software vollständig geladen ist, 
zeigt sich der Leuchtschirm eines Oszilloskops. Auffällig ist nur, daß die horizontale 
Aufteilung in 16 Teile und nicht, wie üblich, in 10 Teile aufgeteilt ist. 


Die Betriebsart Oszilloskop (DIREKT-Modus) ermöglicht es wie bei herkömmli- 
chen Oszilloskopen periodische Spannungsänderungen, wie diese bei Sinus, Recht- 
eck, Dreieck oder dem Brumm eines Netztransformators auftreten, darzustellen. 
Die Meßergebnisse werden direkt auf dem Bildschirm dargestellt. 


Mit einem einzigen Knopfdruck wird der C 64 in ein komfortables Speicheroszillo- 
skop (STORE-MODUS) umgewandelt. Maximal 10 Bildschirmseiten können an- 
schließend betrachtet, gespeichert und ausgedruckt werden (siehe Bild 7/1113). 
Nun sind Messungen möglich, die mit normalen Oszilloskopen nicht realisierbar 
sind. Periodische und extrem langsame Spannungsänderungen, wie zum Beispiel 
eine abnehmende Schwingung, das Prellen eines Relais oder die Entladekurve eines 
Akkus können eindeutig sichtbar gemacht werden. Das Zusatzgerät erlaubt eine 
Meßwerterfassung bis zu 44,4 Stunden. Besonderes Bonbon dieser Hardware ist die 
Speicherung der Meßdaten auf Diskette um diese zu archivieren und zu einem spä- 
teren Zeitpunkt wieder abzurufen. 


Wichtigster Bestandteil des C 64 Zusatzgerätes ist die mitgelieferte Software (auf 
Diskette). Diese ist äußerst komfortabel aufgebaut und nimmt auch Fehlbedienun- 
gen nicht übel. 


Die Bedienanweisung erklärt auf 21 Seiten eindeutig und gut verständlich die Hand- 
habung der Hardware. Hierbei fällt auf, daß eine untechnische Ausdrucksform ge- 
wählt wurde, so daß auch der Ungeübte schnell mit dem C 64 Oszilloskop umgehen 
kann. 
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Jedoch kennt auch diese Hardware ihre Grenzen. Wie bereits eingangs erwähnt, 
wird das Zusatzgerät auf den USER-Port gesteckt. Das bedeutet, der C 64 liest die 
Meßergebnisse nacheinander ein und speichert diese intern ab. Hier ergibt sich 
durch die Software eine Begrenzung bezüglich der Einlesefrequenz. Effektiv ergibt 
sich eine maximale Einlesefrequenz von 40 kHz, die allerdings nach dem sogenann- 
ten Abtast-Theorem mindestens um den Faktor 2 kleiner ist als Abtastfrequenz. Da- 
durch ergibt sich eine maximale Eingangsfrequenz von ca. 20 kHz. Ein Bereich, der, 
wie wir meinen, für den Hobby-Bastler völlig ausreichend ist. 


Mit dem Zusatzgerät ist der C 64 wohl jedem, von Hobbyisten finanzierbaren Oszil- 
loskop, überlegen. Auch der Bezugspreis, incl. Software, von DM 298,- stellt ein ver- 
nünftiges Preis/Leistungsverhältnis dar. 


Bezug: 
Microcomputer-Labor 
Schumannstraße 23 
6600 Saarbrücken 


Technische Daten des C 64 Oszilloskop 


Bildschirmdarstellung: 8x16 Linien, 

10 Seiten Bildschirmspeicher 
Y-Verstärker: 0,1; 0,2; 0,5; 1,0; 2,0; 5,0; 

10; 20 und 50 Volt/Linie — calib. 
Timebase: 12,5 as/Linie bis 1000 s/Linie — calib. 


Trigger: intern oder extern über Taste 

Meßgeschwindigkeit: maximal 40 000 Messungen/Sekunde (theor.) 

Meßdauer: 12,6 ms bis 44,5 h 

Druckerroutinen: Epson FX 80, MPS 801, MPS 803, CP 80X, 
Star SG 10 sowie alle Epson kompat. 

Software: 5 1/4” Diskette 
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Bild 7/1.11 - 3: Das ’64er-Oszilloskop' in der ‚Anwendung 
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Bild 7/2.4-2 
Platinenlayout (Leiterbahnseite) 
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Bild 7/2.7-2a 
Platinenlayout (Bestückungsseite) 
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Bild 7/2.7-2b 
Platinenlayout (Leiterbahnseite) 
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712.3 


Druckerinterface (Centronics) 
Autor: Dipi-Inform. (FH) Rainer König 





Wohl jeden ernsthaften Home-Computer-Besitzer befällt irgendwann einmal der 
Wunsch nach einem leistungsfähigen Drucker. Sei es, um selbstgeschriebene Pro- 
gramme endlich einmal schwarz auf weiß zu haben oder aber um Textverarbeitung 
zu machen oder ähnliches. 


Nun bietet Commodore eine recht ansehnliche Palette an Druckern für ihre Home- 
Computer an, doch bei genauerem Betrachten der Geräte befällt so manchen Kauf- 
lustigen der Frust. Da fehlt einmal der Einzelblatteinzug, oder aber der Drucker ist 
recht langsam. Auch Umlaute sind nicht so ohne weiteres möglich. Am besten wäre 
wohl der Drucker der Marke XYZ (wir wollen hier keine Schleichwerbung machen), 
aber den gibt es nur mit Centronics-Anschluß, ein Interface zum seriellen Gerätebus 
des Commodore-Computers kostet dann noch extra und das nicht zu wenig. 


Es geht aber auch anders. Mit der hier vorgestellten Lösung kann jeder Drucker mit 
Centronics-Schnittstelle an einen Commodore-64 angeschlossen werden. Die Kosten 
sind minimal, man muß nur das Kabel löten und die Software abtippen bzw. beim 
Verlag beziehen. Wer gar keine Löterfahrung hat, kann das Anschlußkabel auch in 
Computerfachgeschäften erhalten, aber der gar nicht schwierige Selbstbau ist die 
preiswerteste Lösung. 


Welche Hardware wird benötigt? 


Da der Drucker einen Centronics-Anschluß hat, braucht man natürlich ein geeigne- 
tes Verbindungskabel zum Computer. Dieses besteht aus zwei Steckern und einem 
lipoligen Kabel. Ein Stecker kommt an den Centronics-Anschluß des Druckers, der 
andere Stecker kommt auf den User-Port des Commodore-64, also nicht an den 
seriellen Bus, wo die Commodore-Drucker angeschlossen werden. Bild 7/2.3-1 zeigt, 
wie das notwendige Verbindungskabel auszuschen hat. 


Achtung: Vor Einstecken des Kabels sind alle Verbindungen sorgfältig zu kontrollie- 
ren! Sowohl Rechner als auch Drucker müssen ausgeschaltet sein (das gilt auch für 
die Floppy!), da sie sonst Schaden nehmen können! Der Centronics-Stecker kann 
am Drucker nur auf eine Art eingesteckt werden, der User-Port-Stecker ist so am 
Rechner einzustecken, daß die Kabel auf der Unterseite angeschlossen sind! Am 
besten ist ein User-Port-Stecker mit Schutzkappe, auf der die Oberseite deutlich 
markiert ist. 
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Bild 7/2.3-1 Das Anschlußkabel 
Wie funktioniert die Schnittstelle? 
Hier wollen wir kurz auf die Theorie der Schnittstelle eingehen. 


Die Centronics-Schnittstelle ist so ungefähr das Einfachste, was man sich denken 
kann. Vom Rechner werden die 8 Datenleitungen zum Drucker verbunden, außer- 
dem eine Strobeleitung, auf der der Rechner dem Drucker das Vorhandensein von 
Daten meldet. Der Drucker übernimmt die Daten vom Rechner und meldet diese 
Übernahme auf der Acknowledge-Leitung (ACK) zurück. 


OR DER CENTRONICS-HANDSHAKE 3e8t 





ala, Mn 

FB NOCH NICHTS LOS AM INTERFACE 

2: DER RECHNER LEGT DATEN AN! 

3: DIE DATEN SIND NUN STABIL, ES WIRD 
EIN STROBE-IMPULS GESENDET 

4: DER DRUCKER QUITTIERT DIE DATEN MIT 
ACKNOHLEBGE-IMPULS 

3: DIE DATENUEBERTRAGUNG IST BEENDET 











Bild 7/2.3-2 Ablauf einer Datenübertragung zum Drucker 
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5 DPER4,4,13:CHD4 

PU en | sms 

aUDeet u  DEIER. 
BETT 

48 T5=" i 23 45 “ 

45 PRINTSPC(i0);" 8er DER CENTRONICS-HANDSHAKE Heer" 

50 PRINT:PRINTSPELAB);"STB: ";5$ 

68 PRINTSPCCIB) "DATA: ";D$ 

78 PRINTSPELALRIS"ACK: ";A5 

88 PRINTSPC(18); "ZEIT: ";T$ 

85 PRINT:PRINTSPC(18);"WBEDEUTUNG DER ZEITNAKREN:E" 

98 PRINTSPE(183;"1: NOCH NICHTS 105 AM INTERFACE" 

166 PRINTSPCiAG);"2: DER RECHNER LEGT DATEN AN!" 

118 PRINTSPC{18);"3: DIE DATEN SIND NUN STABIL, ES WIRD" 
126 PRINTSPE<1B)," EIN STROBE-IMPULS GESENDET" 

145 PRINTSPC(18);"4: DER DRUCKER QUITTIERT DIE DATEN MIT" 
156 PRINTSPC(1B3;"  ACKNOHLERGE-IMPULS" 

168 PRINTSPECLAI;"5: DIE DATENUEBERTRAGUNG IST BEENDET" 
266 PRINTH4:CLOSE4 








Bild 7/2.3-3: Beispiel für Druckerausgabe mit Centronics-Schnittstelle 


Beim Zeitpunkt 1 ist noch gar nichts auf der Druckerschnittstelle los. Man beachte 
auch gleich, daß die Leitungen STB (Strobe) und ACK (Acknowledge) mit negativer 
Logik arbeiten, also im Ruhezustand einen High-Pegel aufweisen. 


Zum Zeitpunkt 2 legt der Rechner nun Daten an den Ausgangsport. Es dauert nun 
einige Nanosekunden, bis die Daten stabil sind (wegen Signallaufzeiten, Leitungs- 
kapazitäten, etc.). 


Zum Zeitpunkt 3 signalisiert der Rechner dem Drucker, daß an den Datenleitungen 
gültige Daten anliegen. Hierzu wird die STB-Leitung kurzzeitig auf Low-Pegel ge- 
bracht, also ein STB-Impuls zum Drucker geschickt. 


Der Drucker übernimmt daraufhin die anliegenden Daten und führt die entspre- 
chenden Druckbefehle aus (z.B. Abspeichern im Puffer oder Ausdrucken). 


Zum Zeitpunkt 4 ist der Drucker mit der Verarbeitung der Daten fertig und meldet 
dies mit einem Impuls auf der ACK-Leitung. Danach wäre der Drucker für die Auf- 
nahme neuer Daten wieder bereit. 


Zum Zeitpunkt 5 nimmt der Rechner die Daten wieder von der Leitung oder legt 
neue an, um das Spiel des Handshake zu wiederholen. 


Diese Methode hat den Vorteil, daß sie einerseits recht schnell und andererseits sehr 
sicher ist. = 


Der einzige Nachteil für C-64-Benutzer ist, daß der Drucker den User-Port belegt, 
ein Telefonmodem kann also nicht gleichzeitig zum Drucker angeschlossen sein. 
Wenn man sich aber überlegt, daß einem mit dieser Lösung fast die gesamte 
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Druckerwelt offensteht, ist dieser kleine Nachteil durchaus verschmerzbar, zumal 
der User-Port relativ selten benutzt wird. 

Viele im Handel angebotene Programme unterstützen diese Schnittstelle bereits, 
z.B. die Textverarbeitungen „Paper Clip“ und „Vizawrite“ sowie das Datenbank- 
programm „Superbase 64“ 


Wie sieht die Software aus? 

Nachdem wir nun die Hardwarefragen geklärt haben, wollen wir die zum Betrieb 
der Schnittstelle notwendige Software vorstellen. Greifen wir uns doch gleich mal 
die zentrale Centronics-Ausgaberoutine aus dem Programmlistung heraus. 





CENOUT: BIT CIAICR 
STA  PDATA 
LDA STBPORT 
AND =FSTBO 
JSR DELAY 
ORA #+FSTB1 


STA STBPORT 

JSR DELAY 

LDA CGIAICR Ri 
AND =#%00010000 
BEQ WACK 

RTS 





Zu (D: Hier wird das Interrupt-Flag-Register gelöscht. Wie aus dem Plan des Ver- 
bindungskabels (Bild 7/2.3-1) erkenntlich ist, wird die Acknowledge-Leitung am 
FLAG-Anschluß des User-Ports angeschlossen.-Dieser ist mit Bit 4 des CIAICR ver- 
bunden. Die Maßnahme bezweckt nun, daß eventuelle Störungen auf dieser Leitung 
keinen Einfluß auf den Handshake haben, da hiermit eine definierte Ausgangs- 
situation für die Datenübertragung geschaffen wird. 


Zu (2): Der Rechner legt die im Akkumulator hinterlegten Daten an den User-Port 
an. Der vorherige BIT-Befehl hat zwar das CIAICR gelesen, aber den Akku dabei 
nicht verändert. 

Zu (3): Das mit der Strobe-Leitung verbundene Bit des Ports A (PA2) wird mit die- 
ser Sequenz auf Low-Pegel gezogen. 

Zu (4): Das Programm ruft nun eine Zeitverzögerungsroutine auf. Somit hat der 
STB-Impuls eine genügend lange Dauer. 

Zu (5): Die Strobe-Leitung erhält nun wieder ihren High-Pegel. Anschließend geht 
das Programm nochmals in die Zeitverzögerung. 

Zu (6): Hier wird auf die Acknowledge-Meldung des Druckers gewartet. Solange 
das Bit 4 im CIAICR nicht gesetzt ist, kam auch noch kein ACK vom Drucker an, 
das Programm läuft also in der Schleife. Wenn durch einen ACK-Impuls das Bit ge- 
setzt wird (es bleibt auch nach Wegfall des Impulses gesetzt), dann läuft die Aus- 
gaberoutine auf ihr Ende. 
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Zu (N: Dies ist die Beendigung der Ausgaberoutine. Um ein Byte zum Drucker zu 
senden, muß es also nur im Akku hinterlegt werden (wird zerstört) und sodann ein 
JSR cenout gegeben werden. Zugleich ist der RTS-Befehl die Zeitverzögerungsrouti- 
ne, denn ein JSR. . .RTS benötigt ja auch immerhin ein paar Taktzyklen, genug, um 
klare Impulse für den Drucker zu generieren. 


Somit ist bereits eine minimale Centronics-Treibersoftware geschrieben. Allerdings 
geht es leider nicht ganz so einfach. Folgende Dinge müssen mindestens noch be- 
achtet werden: 

® Um den Drucker genauso über OPEN. .CLOSE wie einen Commodore-Drucker 


ansprechen zu können, muß die Ausgaberoutine ins Betriebssystem eingebracht 
werden. 


© Commodore hält sich leider nicht an den ASCII-Code, den der Drucker ver- 
steht. Um keinen uferlosen Zeichensalat auf dem Drucker zu bekommen, müs- 
sen die Zeichen gegebenenfalls von Commodore-ASCIH nach Drucker-ASCI 
umgewandelt werden. 


© Die wenigsten Drucker können die besonderen Steuerzeichen des Commodore 
(z.B. für Cursorsteuerung) drucken. Hier muß eventuell auf eine Hilfsdarstel- 
lung ausgewichen werden. 


Was kann unsere Druckersoftware? 


Hier wollen wir kurz umreißen, was die von uns entwickelte Treibersoftware alles 
kann. Dadurch wird vielleicht auch klar, warum aus ein paar Zeilen Assembler 
plötzlich 1 kByte-Programm wurde. 


© Alle Funktionen sind über Sekundäradressen von 0..15 steuerbar. 
Beliebige Zuordnung der Funktionen zu den Sekundäradressen. 


Umwandlung von Commodore-ASCI nach Drucker-ASCH. 


Wahlweises Setzen des höchsten Datenbits, dies schaltet bei einigen Druckern 
Kursivschrift ein. 


® 
© Zeichen können direkt (unverändert) zum Drucker geschickt werden. 
) 
[ 


© Graphikfähige Drucker können den gesamten Commodore-Zeichensatz 
drucken, er wird aus dem Character-ROM des C 64 entnommen. 


© Besondere Behandlung der Steuerzeichen: 
— Unterdrücken der Ausgabe 
— Durch SPACE ersetzen 
— Als ASCII-Zeichen in Breitschrift drucken 
— Als Commodore-Zeichen im Graphikmodus drucken 
® Hardcopies können erstellt werden von: i 
— Textbildschirm 
— Hires-Grafikbild, egal wo im Speicher 
— Multicolorbild, egal wo, wird mit 4 Graustufen gedruckt 
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Bild 7/2.3-1 und Bild 7/2.3-2 sowie das Listing in Bild 7/2.3-3 (welches Bild 7/2.3-3 
druckt) wurden natürlich mit unserer Treibersoftware erstellt. Bild 7/2.3-1 zeigt zu- 
dem recht eindrucksvoll, daß ein Hardcopy vom Textschirm nun zum Kinderspiel 
wird, auch Graphik-Hardcopies sind mit einem einzigen PRINT-Befchl zu erzeugen. 


Nun wollen wir ganz speziell auf die Treibersoftware eingehen, allerdings wollen wir 
nicht nochmals jede Zeile breittreten. Dies kann den zahlreichen Kommentaren im 
Programmlisting einfacher entnommen werden. Vielmehr wollen wir hier zeigen, 
welche besonderen Programmiertricks angewandt wurden, um soviel Druckleistung 
in so wenig Speicher zu packen. Auf diese Art kann der Leser wahrscheinlich mehr 
aus dem Programm lernen und erhält vielleicht auch richtungsweisende Impulse für 
seine zukünftigen Figenentwicklungen. So wird bei der Multicolor-Hardcopy bei- 
spielsweise ein Zeiger auf einen Zeiger, der wiederum auf einen Zeiger zeigt, verwen- 
det. Das hört sich zwar irre verrückt an, ist jedoch eigentlich relativ einfach. Doch 
nun der Reihe nach... 


Wie wurde das Programm ins Betriebssystem eingebunden? 


Eine der wichtigsten Funktionen einer Software-Druckerschnittstelle ist, daß sie 
dem Benutzer nicht als Software-Lösung erscheint, d.h. der Benutzer soll gar nicht 
merken, daß kein normaler Commodore-Drucker angeschlossen ist. Die Schnitt- 
stelle muß wie bei CBM-Druckern mit OPEN, CLOSE und PRINT# anzusprechen 
sein, nur so ist gewährleistet, daß Programme nicht extra für die Schnittstelle um- 
geschrieben werden müssen. 


Um dies zu erreichen, werden von unserer Software drei Vektoren verändert, die auf 
Kernal-Routinen zeigen. 


CHKVEC wird bei OPEN-Befehlen angesprungen. Die Änderung dieses Vektors ist 
erforderlich, da bei OPEN-Kommandos mit Angabe einer Sekundäradresse bereits 
der serielle Bus aktiviert wird. Wird dies nicht vom Software-Interface abgefangen, 
so führt ein OPEN zu einem „?DEVICE NOT PRESENT ERROR“ 


OUTVEC wird bei PRINT#-Befehlen angesprungen. Der Akku enthält das auszu- 
druckende Zeichen, unsere Software bereitet es eventuell noch für den Druck auf. 
Um festzustellen, ob es überhaupt für den Drucker bestimmt ist, wird die gerade 
aktive Geräteadresse (CURDEV) mit der im RAM hinterlegten Adresse unseres 
Interfaces (PRIDEV, Standardwert 4) verglichen. Ist der Drucker gemeint, so wird 
die Ausgabe von unserer Routine durchgeführt, ansonsten übernimmt die Kontrolle 
wieder das Kernal-ROM. 


NMIVEC wird auf eine kleine Routine gelegt, die beim Drücken von RUN/STOP- 
RESTORE das Druckerinterface wieder initialisiert. 














Wie erfolgt die Steuerung der Schnittstellenfunktionen? 


Um das Interface möglichst flexibel zu gestalten, erfolgt die Steuerung der Funktio- 
nen über die Sekundäradressen 0..15. Hierbei ist zu beachten, daß die Zuordnung 
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einer Funktion zu einer Sekundäradresse nicht fest ist, sondern flexibel über eine 
Tabelle gelöst wird. Die Auswertung der Sekundäradresse geschieht in der Routine 
NEWCHK, hier wird die aktuelle Sekundäradresse ausgewertet und das entspre- 
chende Funktionsbyte aus der Tabelle in der Speicherstelle FUNCTION hinterlegt. 


Die Bits im Funktionsbyte haben folgende Bedeutung: 


7 Das Setzen von Bit 7 veranlaßt das Programm, Hardcopies zu drucken. Diese 
Funktion hat Priorität vor allen anderen. 


6 Das Setzen von Bit 6 führt dazu, daß alle Zeichen ohne jegliche Umsetzung 
durch unser Programm zum Drucker geschickt werden. Diese Funktion hat 
wiederum Priorität vor allen folgenden. 


5 Ist Bit 5 gesetzt, so wird ein Commodore-Drucker simuliert, d.h. alle Zeichen 
werden im Graphikmodus des Druckers gedruckt, die Zeichenmatrix wird da- 
bei aus dem Character-ROM des Rechners gelesen (in Abhängigkeit von Bit 2). 
Mit dieser Funktion lassen sich sehr gut Programmlistings erstellen. 


4 Das Setzen von Bit 4 veranlaßt das Interface, bei der Ausgabe von Zeichen an 
den Drucker bei diesen das höchstwertige Bit (Bit 7) zu setzen. Bei einigen 
Druckern schaltet dies Kursivschrift ein. 


3 Das Setzen von Bit 3 aktiviert die Vertauschung von Groß- und Kleinbuchsta- 
ben. 


2 Mit diesem Bit wird dem Interface bekanntgegeben, welcher Zeichensatz des 
Character-ROMs beim Graphikdruck verwendet werden soll. 


0, 1 Mit diesen beiden Bits wird angegeben, wie bei Control-Zeichen (z.B. CLR/ 
HOME) verfahren werden soll: 


00 Unterdrücken 

01 als Leerzeichen drucken 

10 in Breitschrift als ASCII-Zeichen drucken 
11 Zeichen aus Character-ROM holen 


Durch eine entsprechende Sekundäradressentabelle kann also jede Funktion einer 
beliebigen Sekundäradresse zugeordnet werden. Das Interface-Programm ist somit 
leicht an bestehende Programme und deren Druckfunktionen anpaßbar. Im Listing 
ist die Sekundäradressentabelle so gewählt, daß das Programm zu einem bereits be- 
stehenden Software-Interface einer Göttinger Firma weitgehend kompatibel ist. 


Was geschieht mit den Zeichen? 


Hier wollen wir uns ansehen, was unsere Druckersoftware mit den Zeichen anstellt, 
wenn wir diese nicht direkt zum Drucker schicken wollen bzw. wenn wir keine 
Hardcopy-Funktion auslösen wollen. 
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Zunächst sei hier erwähnt, daß das Interface-Programm zwei Speicherstellen kennt, 
in denen es Informationen über den Betriebsmodus hinterlegt: 


QUOTFLG ist ungleich Null, wenn das auszugebende Zeichen hinter einem An- 
führungszeichen steht. Dieses Flag wird von CR und LF zurückge- 
setzt und dient dazu, Commodore-Kontrollzeichen zu identifizieren 
(z.B. PRINT “CLR/HOME®). 


RVSFLG wird von den Steuerzeichen (RVS-ON) bzw. (RVS-OFF) gesetzt oder 
zurückgesetzt. 


Die Auswertung auf Anführungszeichen, RVS-Steuerzeichen und CR (Wagenrück- 
lauf) bzw. LF (Zeilenvorschub) erfolgt auf jeden Fall. 


Ab dem Label CONVERT erfolgt nun gegebenenfalls eine Wandlung der Zeichen. 


So mancher Leser wird nun wissen wollen, warum die Zeichen umgewandelt werden 
müssen. Dazu einige Anmerkungen zur Politik von Commodore, bezüglich ihres 
eigenen Industriestandardes: 


Das, was Commodore als ASCII-Zeichensatz bezeichnet, hat mit dem von ANSI 
(American National Standard Institute) genormten ASCII-Satz (den die Drucker 
verstehen) nicht viel gemeinsam. Zum einen sind die Steuerzeichen weitgehend in- 
kompatibel, Groß- und Kleinbuchstaben sind vertauscht, manche Zeichen sind 
sogar doppelt vorhanden. Wer es nicht glaubt, kann folgende BASIC-Zeile ein- 
geben: 


PRINT CHR$(97);CHR$(193) 


Wir sehen zwei gleiche Zeichen am Schirm auftauchen, obwohl wir unterschiedliche 
(Commodore-Pseudo-J)ASCII-Werte als Argumente angegeben haben. Dies ist auch 
der Grund, warum manche Textverarbeitungsprogramme beim Lesen von sogenann- 
ten ASCI-Files Schwierigkeiten haben. Historisch gesehen, ist dies auf den „Ur-C 
64“, den PET 2001, zurückzuführen, bei dem u.a. mit Shift die Kleinbuchstaben er- 
zeugt wurden. Dies erleichterte damals (1979/80) die Programmierung. 


Dieses Problem der Zeichenumsetzung in ein Format, welches die üblichen Drucker 
verstehen, kann man ja gottseidank durch schlaue Programmierung in den Griff be- 
kommen. Aber wie geht man vor? 


Eine Möglichkeit wäre eine Umsetzungstabelle, hier wird jedem CBM-ASCH- 
Zeichen ein Druckerzeichen zugeordnet. Dummerweise belegt eine solche Tabelle 
256 Byte, und durch die eventuell notwendige Vertauschung von Groß- und Klein- 
schrift ist eine zweite Tabelle erforderlich, das Programm zur Umsetzung würde also 
zu groß werden. z 


Die nächste Möglichkeit ist, je nach Zeichencode bestimmte Werte zu den 
Commodore-Codes hinzuzuzählen bzw. abzuziehen. Das kann in viele Abfragen 
ausufern. 
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Nun wollen wir die Methode vorstellen, welche wir als optimal ansehen. Sie ist zwar 
etwas unorthodox, aber belegt minimalen Speicherplatz. 


Die Zeichen werden zweistufig umgesetzt. Zuerst erfolgt eine Umsetzung von CBM- 
ASCII-Format in einen Bildschirm-Code. Dies hat folgende Vorteile: 


© Commodore-Drucker lassen sich sehr leicht realisieren, da ein derartig umge- 
wandeltes Zeichen direkt als Zeiger in das Character-ROM des Computers ver- 
wendet werden kann. 


® Die mehrfachen Code-Bereiche werden eliminiert. Control-Zeichen sind zudem 
am gesetzten Bit 7 des Bildschirmcodes zu erkennen. 


Die Umsetzung vom CBM-ASCII-Wert in einen Bildschirmcode ist relativ einfach. 
Eigentlich sollte dies zuerst mit einer ROM-Routine erreicht werden (das Kernal 
muß das ja auch irgendwie schaffen), aber die ROM-Routinen sind dermaßen haar- 
sträubend programmiert und zudem nicht von außen zugänglich, daß nichts anderes 
übrigblieb, als das Rad der Umwandlung zweimal zu erfinden. 


Sieht man sich die Code-Bereiche an, so erkennt man, daß das Hinzuzählen bzw. 
Abziehen von Werten der richtige Weg ist. Zudem ist es erfreulich, daß in jeweils 
32-Byte-Feldern immer die selben Werte addiert bzw. subtrahiert werden müssen. 
Die einzige Ausnahme ist der CBM-ASCII-Code 255, er muß in den Bildschirm- 
code 94 umgesetzt werden, aber das ist auch noch zu schaffen. Ansonsten gilt 
folgende Tabelle: 

































Codebereich neuer Bereich 


0 — 91 128 — 159 
32 — 63 32 — 63 
64 — 95 0— 3 
96 — 128 64 — 95 
128 — 159 192 — 223 
160 — 191 96 — 127 
192 — 223 64 — 95 
224 — 255 96 — 127 








Nun sind Subtraktionen auch nur Additionen mit negativem Vorzeichen. Bei byte- 














weiser Addition — wie hier vorgenommen — kann man einen SBC #64 auch durch 
einen ADC #192 ausdrücken. 

Nun wird es kinderleicht. Das ursprüngliche Zeichen wird um 5 Bit nach rechts 
verschoben (Division durch 32). Man erhält einen Zeiger in eine 8 Byte lange 
TABELLE, hier ist hinterlegt, welches Byte hinzuaddiert werden muß, um auf den 
Bildschirmcode zu kommen. Somit ist der erste Umwandlungsschritt mit einer klei- 
nen Tabelle und ein paar Programmzeilen zu bewerkstelligen. 














Der gegebenenfalls erforderliche zweite Umwandlungsschritt, die Umsetzung von 
Bildschirmcode in ein Drucker-ASCII-Zeichen (Routine STOASC), geschieht fast 
genauso. Hier interessieren jedoch nur die unteren 7 Bits des Zeichens. Die Umset- 
zungstabelle ist ähnlich aufgebaut, sie hat auch 8 Byte, obwohl hier eigentlich nur 








Teil 7 Kapitel 2.3 Seite 10 








Bauanleitungen 





2.3 Druckerinterface (Centronics) Teil 7: Hard- und Software-Ergänzung 


4 Byte erforderlich wären. Aber hier wird auch die unter Umständen erforderliche 
Vertauschung von Klein- und Großbuchstaben vorgenommen, d.h. es werden 
eigentlich zwei Tabellen zu je 4 Byte verwendet. 


Man kann an diesem sehr realen Beispiel eigentlich sehr gut erkennen, daß der 
naheliegendste Weg (Umsetzung über 256-Byte-Iabelle) nicht immer der optimale 
ist. Die hier vorgestellte Lösung erforderte zwar etwas mehr Gehirnschmalz, ist aber 
auf jeden Fall günstiger. 


Wie werden Commodore-Graphikzeichen gedruckt? 


Die Beantwortung dieser Frage ist sehr einfach. Wie wir gesehen haben, werden die 
Zeichen zweistufig umgesetzt. Nach der ersten Umsetzung erhalten wir die Nummer 
des Commodore-Zeichens im Character-ROM. Mit Hilfe des Bits 2 im Funktions- 
byte wird nun ein Zeichensatz ausgewählt. Die Routine READROM liest nun die 
Zeichenmatrix aus dem Character-ROM und speichert sie im Feld Matrix. 


Mit der Routine ILOOP wird eine ESC-Sequenz zum Drucker geschickt, die diesen 
in den Graphikmodus umschaltet, d.h. mit den nächsten 8 Zeichen werden die 
Nadeln des Druckers angesteuert. Um die Routine so flexibel wie möglich zu gestal- 
ten, werden die hierzu notwendigen Steuercodes dem 4 Byte langen Feld GMTABLE 
entnommen. Inhalt: 


ESC+"L’+CHR$(8)+CHR$(0) 


Die nachfolgende MATOUT-Routine gibt nun das Feld MATRIX zum Drucker aus. 
Hierbei werden zuerst die 8höchstwertigen Bits ausgegeben, dann die nächste Bit- 
spalte usw. Das MATRIX-Feld wird also um 90 Grad gedreht. 


Die Routine MATOUT wird auch von den Hardcopy-Routinen benutzt, die wir uns 
nun ansehen wollen. 

Wie funktionieren die Hardcopy-Routinen? 

Folgendes ist allen drei Hardcopy-Arten gemeinsam: 


© Der Zeilenabstand wird auf 8/72 Zoll gesetzt, dies entspricht bei den meisten 
Druckern der Höhe der Druckmatrix. 


© Vor jeder Hardcopyzeile wird der Drucker auf Einzelnadelbetrieb gesetzt, wobei 
nun eine ganze Zeile (320 bzw. 640 Punkte) übergeben wird (mit Routine MAT- 
OUT). 


e Während des Druckens wird anhand der File-Nummer unterschieden, ob zu- 
sätzlich zu einem Wagenrücklauf ein Zeilenvorschub geschickt werden muß 
(Filenummer > 127). 


© Nach Beendigung der Hardcopy wird der Drucker wieder auf 6 Zeilen/Zoll 
Zeilenabstand für normale Textausgabe gesetzt. 
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Die Texthardcopy 


Diese Funktion ist sehr einfach. In der Speicherstelle 648 ist hinterlegt, bei welcher 
Speicherseite der Bildschirmspeicher anfängt. Die nächsten 1000 Byte ab dieser 
Adresse sind der Bildschirminhalt, er kann nun im Prinzip genauso ausgegeben wer- 
den wie Commodore-Graphikzeichen. 


Die Hires-Hardcopy 


Diese Funktion ist nicht ganz so einfach. Der Benutzer muß hierbei die Nummer 
des 8-KByte-Blocks übergeben, in dem die Bitmatrix startet. Die meisten Graphik- 
erweiterungen legen ihre Bilder ab $E000 ab, d.h. es muß eine „7“ zum Interface 
ausgegeben werden. 

Nun werden 1000 Felder zu je 8 Byte in die MATRIX eingelesen und zum Drucker 
geschickt. Hierbei ist zu beachten, daß sämtliche ROMs desaktiviert werden, wenn 
das Programm auf die Graphikbytes zugreift, denn diese können ja unter den 
ROM liegen. 


Die Multi-Color-Hardcopy 


Diese Funktion wollen wir nun näher betrachten. Zunächst sehen wir uns an, wie 
sie aufgerufen wird. Der Benutzer schickt in diesem Fall zum Funktionskanal des 
Interfaceprogramms folgenden ASCII-Code: 


128+Nummer der 1-K-Seite der Farbinformation 


Die 128 ist gewählt, damit das Interface beim Empfang von CR (CHR$(13)) oder 
ähnlichen „normalen“ Zeichen nicht gleich anfängt, unsinnige Hardcopies zu pro- 
duzieren. Zu dieser 128 wird nun die Nummer der Seite des Farb-RAMs addiert. 
Damit hat es folgende Bewandtnis: 


Kennt man die Lage des Farb-RAMs (hiermit ist der 1-K-Bereich gemeint, der nor- 
malerweise als Bildschirmspeicher fungiert, bei Hardcopy-Bildern steht seine Adresse 
leider nicht immer in 648), so kennt man eigentlich schon alle Adressen für das 
Multicolorbild: 


© Die Hintergrundfarbe steht grundsätzlich in 53281. 


© Die Farben, die durch die Bitkombinationen 01 und 10 adressiert werden, liegen 
in besagtem Farb-RAM. 


© Die letzte Farbe (Bitkombination 11) liegt im Standard-Farb-RAM ab 55296. 


Um nun die Adresse der Bitmatrix zu ermitteln, geht man von folgender Gesetz- 
mäßigkeit aus: 2 


© Der Videocontroller kann nur 16 KByte addressieren. 


© Daraus folgt, daß die Bitmatrix in derselben 16-K-Bank liegen muß wie das 
Farb-RAM. 
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© Da das Farb-RAM aber nicht im selben Bereich liegt wie die Bitmatrix, nimmt 
man als Adresse der Bitmatrix einfach die Adresse des 8-K-Blocks, in dem die 
Farbinformation nicht steht. 


Zugegeben, das hört sich etwas verwirrend an, daher hier ein kurzes Beispiel: 
Der an das Interface übergebene Wert sei 132, also 128+4. 


Die Farbinformation liegt also in den Adressen ab 1024, das ist im ersten 16-KByte- 
Block. Da die Bitmatrix der Graphik nicht die Adressen des Farb-RAMs nutzen 
kann, muß diese Matrix also logischerweise bei 8192 beginnen, also dem zweiten 
8-K-Block im ersten 16-K-Block. 


Genau diese Rechenoperationen führt unser Programm auch durch, wobei dies an 
manchen Stellen geradezu in Bit-Fuchserei ausartet. 


Nun wollen wir beschreiben, wie die Graustufen realisiert wurden. Hierbei wurde 
der Drucker auf doppelte Nadeldichte gesetzt, 320-Graphikpunkte entsprechen also 
640 Druckpunkten. Da zwei Graphikpunkte sowieso einer Graustufe entsprechen, 
stehen 4 Druckpunkte für die Realisation einer Graustufe zur Verfügung. 


Die vier Graustufen sind nun mit folgenden Druckbildern realisiert: 


weiß 0000 keine Nadeln 
hellgrau 0011 


dunkelgrau 1010 
Schwarz 1111 alle Nadeln. 





Um nun zu vermeiden, daß beim Drucken von grauen Flächen senkrechte Linien 
entstehen, werden die Bits für die Graustufen (0011 und 1010) in jeder ungeraden 
Graphik-Zeile invertiert. Eine dunkelgraue Fläche kann also folgendermaßen ge- 
druckt werden: 





Gerade Zeilennummer: 1010101010101010101010101010 
Ungerade Zeilennummer: 0101010101010101010101010101 
Gerade Zeilennummer: 1010101010101010101010101010 
Ungerade Zeilennummer: 0101010101010101010101010101 








Im Programm wird diese Funktion dadurch realisiert, daß die Tabelle der Graustu- 
fendarstellung (GREYIMGS) 8 Byte groß ist, bei geraden Zeilennummern wird auf 
die ersten 4 Bytes zugegriffen, bei ungeraden Zeilennummern auf die letzten 4 Bytes. 


Die Ermittlung der Graustufe zum Drucken geschieht in folgenden Schritten: 


1. Für jedes 8Byte große Graphikquadrat wird die Farbinformation ermittelt, die 
Methode wurde weiter oben schon beschrieben. 


2. Die 8 Graphikbytes werden nach MATRIX gebracht. 


3. Nun werden die jeweils beiden höchsten Bits der Bytes in MATRIX heraus- 
geschoben, sie bilden einen Zeiger auf die Tabelle, welche die für das gerade bear- 
beitete Quadrat ermittelten Farben enthält. 
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4. Der dort stehende Wert wird wiederum als Zeiger in eine Tabelle der Farbe- 
Graustufen-Zuordnung (GREYTBL) verwendet. 


5. Hier steht nun ein Zeiger auf die Graustufen-Druckbild-Tabelle (GREYIMGS). 


6. Dieser Zeiger wird noch mit der Information verknüpft, ob gerade eine ungerade 
Zeile bearbeitet wird, in diesem Fall wird 4 zum Zeiger addiert. 


7. Das nun adressierte Graustufendruckbild wird an die richtige Stelle der Matrix 
GREYMAT geschoben. 


8. Sind alle 8 Bytes der ursprünglichen Matrix bearbeitet, so wird GREYMAT aus- 
gedruckt. 


Um irgendwelche Farben anderen Graustufen zuzuordnen, muß die Tabelle GREY- 
TBL entsprechend angepaßt werden. 


Somit sind wir am Ende der Programmbeschreibung angelangt, nun wollen wir 
noch kurz einen Blick auf die Handhabung werfen. 


Wie wird das Programm bedient? 


Hier wird vorausgesetzt, daß das Programm als Objektprogramm (Maschinenpro- 
gramm) auf Diskette vorliegt, und zwar unter dem Namen „PRINTERFACE“ 


Das Programm wird nun wie folgt gestartet: 





LOAD „PRINTERFACE“8,1 


SEARCHING FOR PRINTERFACE 
LOADING 
READY. 


NEW 
READY. 
SYS 49152 





Der NEW-Befehl ist erforderlich, da das Laden von Maschinenprogrammen die 
BASIC-Zeiger durcheinanderbringt, mit NEW werden für BASIC wieder klare Ver- 
hältnisse geschaffen. 


Selbstverständlich können Sie das Programm auch für andere Adreßbereiche assem- 
blieren, nötigenfalls diese aber dann gegen Überschreibungen durch BASIC schüt- 
zen. Die Startadresse beim SYS-Befehl muß dann auch entsprechend geändert 
werden. 


Nun können Sie Ihren am User-Port angeschlossenen Drucker mit ganz normalen 
OPEN-, PRINT#, CMD- und CLOSE-Befehlen bedienen. 


Die Geräteadresse des Druckers ist 4, dies kann durch Ändern des Bytes PRIDEV 
jedoch auch angepaßt werden. 
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Die Funktionen des Interfaces werden durch die Sekundäradressen 0..15 gesteuert, 
ihre Zuordnung steht in der Tabelle FUNTBL und kann natürlich an spezielle Be- 
dürfnisse angepaßt werden. 


Zum Schluß noch ein Tip: Sollte Ihr Drucker nur permanent auf einer Zeile 
drucken, so sehen Sie einmal im Drucker-Handbuch nach. In fast jedem Drucker 
gibt es einen kleinen Mikroschalter, mit dem man ihn auf Auto-Line-Feed stellen 
kann, d.h. bei jedem CR, das der Drucker empfängt, führt er auch einen Zeilenvor- 
schub aus. Sollten Sie keinen solchen Schalter finden, dann tut es auch eine File- 
nummer größer 127 (z.B. OPEN 132,4,0), der C 64 schickt dann mit jedem CR ein 
LF-Zeichen. 


Nun bleibt uns nur noch, Ihnen viel Spaß mit dieser leistungsfähigen Erweiterung 
zu wünschen. 












WÜOM 
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’ 
START: all.E DATEN AU 
STR AU 
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NEISAMHER 

















WACH: 
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; INTEER 








INTEI 





"AUE INITIAL] 






;SFRUNG AN 





;STEOBE WIEDER 





;ACK DA’ 
;ACK LEI 








; EXIT ZUM AUF 
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NEUOUT: 











NOFTECNITE 








EFLOA WEITER IM KOM 
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; ZEICHEN MÖLEN 


KICK: 











: OOUTFLG 





MOCIOT IM DOUTE-MO 

















ON 





MORWYSON: 








NIEREN 














"L. SICHT L 
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„Dei 


AND 4 








NOCEM: 





NOMSE: 








STELEODE: 
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Or a 














’ 
GEMPETL: 





;INIT GMODE 
TOO: 


:MATRI 

















KEADRUM: 





;ROMBAS 

















| ai | 
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MULTIE: 








NOL.FS 
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;ENDE E 











ENDE BET NULL 


ENDE BEI NULL INDEX 
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"TS 

















STAND! 






or 





ad ZEIL 


WO IST 








y4o SPALTEN 





ZLUOF 
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HN.EN 
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-OLOF NIBELES 





; NUR d-BIT 
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MHATEIDGH 





FIELDS Y 




















MATMEN A 








MAT 




















INC 











L 
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;FUNETIE 





OFIESI 








h 
y 
’ 
; 
’ 


FÜMTBEL.ı 
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-- GERAETENUMMER 





;FRINT 





SHIEN 


; ZEICHENELF 




















L 
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Aıllıılıl 
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; FLAG 





FEÜWENTE 
GOLENTa 
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712.4 
Betriebsumschaltung mittels EPROM 


Autor: Ernst Schöberl 





Im C 64 und der Floppy befindet sich die Betriebssystemsoftware in ROM’s vom 
Typ 2364. ROM heißt Read-Only-Memory, einmal einprogrammierte Daten können 
also nicht mehr gelöscht werden. Möchte man nun das Betriebssystem seinen eige- 
nen Wünschen anpassen, so bieten sich als günstige Lösung EPROM's als Pro- 
grammspeicher an. EPROM ist die Abkürzung für Erasable Programmable Read 
Only Memory. Diese Bausteien werden mit einer relativ hohen Spannung, normal 
25 V, programmiert. Mit UV-Licht können diese Speicher wieder gelöscht werden. 


In letzter Zeit sind sehr viele neue Betriebssysteme und Betriebssystemerweiterungen 
auf den Markt gekommen. Besitzt man zum Beispiel einen C 64 mit der Floppy 
1541, so sind die im Betriebssystem vorhandenen Kassettenroutinen völlig unnötig 
und man kann sie durch schnelle Floppyroutinen ersetzen. Es gibt Betriebssysteme, 
die den Ladevorgang bis zu siebenmal schneller machen. Als Kassettenrekorderbe- 
sitzer könnte man sich die Turbo-Tape-Routinen direkt ins Betriebssystem einbauen. 
Es gibt noch eine Reihe anderer Möglichkeiten. Eine davon wird auch in diesem 
Buch vorgestellt. Es ist die Software für das IEEE-Interface, die in das Betriebs- 
system eingebunden wird. 


Es gibt nur ein Problem, das die Verwendung von EPROM'’s erschwert. Für das von 
Commodore verwendete ROM 2364 gibt es kein pingleiches EPROM. Die Adapter- 
platine wurde für die Verwendung von EPROM'’s des Typs 2764 ausgelegt. Außer- 
dem kann mit einem Schalter zwischen dem Original-ROM und dem EPROM 
umgeschalten werden. 


Die Funktionsweise der Schaltung ist schnell erklärt: Mit dem Schalter wird das 
Chipselekt-Signal zwischen dem ROM und dem EPROM umgeschaltet. Die beiden 
Pullup-Widerstände von 3,3 Kiloohm müssen den Chipselekteingang der IC’s auf 
Highpegel halten, wenn sie nicht selektiert sind, denn dieses ist ein low-aktives 
Signal. Nach dem Umschalten muß ein Reset gegeben werden. Mit dem Chipselekt- 
signal wird im Computer ausgewählt, welches IC gerade aktiv ist. Es wird durch De- 
kodierung der Adressensignale gewonnen. Wenn sich die Adresse im Bereich von 
$E000 bis $FFFF befindet, so wird nur die Chipselektleitung zum Betriebssystem- 
ROM low, alle anderen bleiben auf Highpegel. Im C 64 übernimmt die Dekodierung 
ein sogenannter PLA-Chip (Programmable-Logic-Array). Dieses IC ersetzt eine 
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Vielzahl von herkömmlichen Gatterbausteinen. Alle Speicherbausteine sind mit 
diesem IC durch eine Chipselektleitung verbunden und werden von ihm entspre- 
chend dem von der CPU angesprochenen Adressenbereich selektiert. 


Nun noch ein paar Hinweise zum Aufbau der Platine, der sicher nicht ganz so 
einfach ist. Nachdem alle Löcher gebohrt sind, beginnt man am besten mit dem 
Einlöten des 24- und 28-poligen Sockels auf der Bauteilseite. Es folgen die beiden 
Widerstände. Die Steckleiste wird in zwei Teile von je 12 Stiften Länge geteilt. Es 
gibt auch spezielle „IC-Sockel‘“, die nach oben und unten Stifte haben. Diese Aus- 
führung ist zwar besser, aber auch teurer. Man sollte darauf achten, daß man die 
Steckleisten ziemlich senkrecht einlötet, damit sie nachher gut in den Sockel passen. 
Bei manchen Computern kann es vorkommen, daß das Betriebssystem-ROM nicht 
gesockelt ist. Wer nicht das entsprechende Gerät zum Auslöten (Saugpumpe, Entlöt- 
litze ...) des ROM’s besitzt, sollte dies lieber von einem Fachmann durchführen 
lassen. Zuletzt werden an den Umschalter drei Leitungen angelötet. Beim Einlöten 
der Drähte auf der Platine ist noch zu beachten, daß der Draht, der zur mittleren 
Lötfahne am Schalter führt, auch mit dem mittleren der drei Lötaugen verbunden 
ist. 


Sollte die Platine nicht einwandfrei funktionieren, so kann dies folgende Ursachen 
haben: Bei schlechter Atzung können die Leiterbahnen durch Haarrisse unter- 
brochen sein. Es können aber auch Verbindungen zwischen den Leitungen existie- 
ren, wenn das Kupfer an den freien Stellen nicht vollständig weggeätzt wurde. Diese 
Fehler spürt man am besten mit einem Durchgangsprüfer oder Ohmmeter auf. 
Kalte Lötstellen sind eine weitere Fehlerursache, für den Amateur jedoch schwer zu 
finden. 


Zum Schluß nun noch die Stückliste der benötigten Bauteile: 


1 IC-Sockel 24-polig 
1 IC-Sockel 28-polig 


2 Stiftleisten 12-polig 
2 Widerstände 3,3 Kiloohm 





Anwendungsbeispiele und Anregungen zum Bau eines eigenen Kernals: 


1. Wer ein Diskettenlaufwerk besitzt, hat sich sicher schon oft darüber geärgert, 
daß man nach der Eingabe des Filenamens noch ‚8 oder ‚8,1 eingeben mußte. 
Abhilfe schafft das Ändern der Speicherzelle $EIDA von $01 auf.$08. In dieser 
Adresse steht die Geräteadresse, die bei Fehlen der Angaben genommen wird. Die 
Sekundäradresse steht in Adresse $EIDC. Hier steht normalerweise $01. 
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2. Vielleicht waren Sie auch schon mal unzufrieden über die blau/blau Farbwahl 
der Commodore-Programmierer. So können Sie Ihre eigene Einschaltfarbkombi- 
nation zusammenstellen: 


Nummer der Hintergrundfarbe: $ECDA 
Nummer der Rahmenfarbe: $ECD9I 
Nummer der Cursorfarbe: $E535 


Das Platinenlayout zu diesem Beitrag finden Sie in Kapitel 7/2.1 Seite 1 und 2. 
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Bild 7/2.4-1 Bestückungsplan (IC-Seite) 
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7/2.7 


Paralleles IEC-Bus-Modul 
(IEEE-488-Interface) 


Autor: Ernst Schöberl 





Sicher werden Sie sich fragen, wozu man ein solches Interface überhaupt braucht. 
Nun, der parallele IEEE-Bus ist die wichtigste Verbindung der Commodore- 
Computer der 8000er und 4000er Serie mit der Peripherie. Mit diesem Interface 
können Sie das gesamte Angebot von Commodore-Peripheriegeräten dieser Serien 
an Ihrem C 64 betreiben. Man kann nun auch die großen Commodore-Floppies wie 
zum Beispiel die 8250 benutzen und hat so eine Speicherkapazität von einem Mega- 
byte pro Diskette. Zudem bietet der parallele IEEE-Bus gegenüber der seriellen Ver- 
sion eine um mehr als fünffach höhere Übertragungsgeschwindigkeit. Wer sich mit 
einem Laufwerk zufrieden gibt, kann auch die SFD-1001 anschließen. Außerdem 
gibt es eine Menge Meßgeräte für den IEEE-Bus, angefangen vom computerge- 
steuerten Digitalvoltmesser bis zur elektronischen Waage. 


Der Bau des Interfaces gliedert sich in zwei Abschnitte, dem Aufbau der Hardware 
und dem Erstellen der Software. Nun zuerst zur Hardware: 


Da die Leitungen am Userport nicht ausreichten für eine IEEE-488-Schnittstelle, 
mußte ein weiterer Schnittstellenbaustein an den C 64 angeschlossen werden. Die 
Wahl fiel hierbei auf den PIA-Baustein 6821 (PIA = Parallel Interface Adapter). 
Dieser Baustein ist zum einen recht günstig zu erwerben, zum anderen ist er pro- 
blemlos an den C 64 anschließbar. Es treten keine Timing-Probleme auf. 


Da meist mehrere Geräte am Bus angeschlossen werden, ist noch eine Pufferung der 
Signale notwendig. Bei den Datenleitungen übernimmt dies der Bustreiber 
74LS245. Die Steuerleitungen gelangen über den Inverter/Treiber 7406 auf den Bus. 
Außerdem schützen die Treiber den 6821 vor Beschädigung. 


Aufbau der Platine und Leitungsbelegung 


Vor dem Einlöten der Sockel muß man noch beide Steckleistenseiten auf die richtige 
Breite zufeilen. Das Modul muß sich leicht stecken lassen, darf aber nicht zu locker 
sitzen, da es sonst zu Fehlverbindungen oder gar Kurzschlüssen kommen kann. Bei 
Verwendung von nicht durchkontaktierten Platinen, was in der Hobbyanwendung 
normalerweise der Fall ist, müssen die IC-Sockel auf beiden Seiten angelötet wer- 
den. Empfehlenswert ist die Verwendung gedrehter Sockel, die zwar teurer, aber 
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wesentlich leichter einzulöten sind. Eine andere Möglichkeit ist die Verwendung von 
Kupferhohlnieten, die in die Bohrungen eingebracht werden. Vor dem Einstecken 
des Moduls in den Expansionsport des C 64 sollte man noch einmal die richtige 
Lage der IC’s überprüfen. Alle Nasen müssen nach rechts zeigen, wenn das Modul 
im Port steckt. Bei Fehlern gilt das gleiche, was schon bei der EPROM-Adapter- 
platine erwähnt wurde. Meist handelt es sich um durch Lötzinnspritzer verbundene 
Leitungen. Von dem hier verwendeten 6821-Baustein gibt es auch eine stromsparen- 
de CMOS-Variante, den 6321. Dieser kann genauso problemlos in dieser Schaltung 
verwendet werden, nur ist er schwieriger zu erhalten. 


Zur Erklärung der Software ist es auch notwendig, daß wir auf die Programmierung 
des 6821 ein wenig eingehen. Außerdem kann man das IEEE-Interface dann auch 
als eine Art zweiten Userport anwenden. Der 6821 hat für jeden der beiden Ports 
drei Register: 


1. Das Datenregister enthält die empfangenen oder auszugebenden Daten. 

2. Das Datenrichtungsregister gibt an, welche Portbits auf Ein- oder Ausgabe ge- 
schaltet sind. 

3. Das Kontrollregister verwaltet die Flagleitungen und legt fest, ob das Daten- 
oder Datenrichtungsregister angesprochen wird. 


Im € 64 wurden den Registern folgende Adressen zugeordnet: 


Daten- bzw. Datenrichtungsregister Port A 
Kontrollregister Port A 


Daten- bzw. Datenrichtungsregister Port B 
Kontrollregister Port B 








Mit Bit 2 des Kontrollregisters erfolgt die Unterscheidung zwischen Daten- und Da- 
tenrichtungsregister. Ist es gelöscht (0), dann ist das Datenrichtungsregister selek- 
tiert. Bit 3 ist für die Flagleitung CA2 bzw. CB2 zuständig. Ist es gesetzt (1), dann 
liegt an diesem Pin High-Pegel. 


Im Datenrichtungsregister ist jeder der acht Ein-/Ausgabeleitungen ein Bit zugeord- 
net. Ist das Bit gesetzt, so ist die jeweilige Portleitung als Ausgang geschaltet, ist es 
gelöscht, so fungiert sie als Eingang. Die Bits können völlig unabhänig voneinander 
geschaltet werden. Es kann zum Beispiel Bit 3 und Bit 5 als Eingang, der Rest als 
Ausgang geschalten werden. In diesem Falle müssen Sie $D7 in das Datenrichtungs- 
register eintragen. 


Das Datenregister enthält beim Auslesen die Pegelzustände an den als Eingang ge- 
schalteten Leitungen. Die Ausgabebits enthalten den hineingeschriebenen Zustand. 
Beim Schreiben in das Datenregister werden die Ausgabeleitungen auf den ihrem Bit 
entsprechenden Pegel gesetzt. Die Eingangsleitungen bleiben unbeeinflußt. 
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Beim IEEE-Interface wurden die Ports folgendermaßen für die Bussignale verwen- 
det: 


















PA0O bis PA7 DIO 0 bis DIO 7 (Data Input/Output) 
CA2 Steuert Datenrichtung des 74LS245 
PBO EOI (End or Identify) Ausgang 

PBl EOI (End or Identify) Eingang 

PB2 DAV (Data Valid) Ausgang 

PB3 DAV (Data Valid) Eingang 

PB4 NRFD (Not Ready For Data) Eingang 
PB5 NRFD (Not Ready For Data) Ausgang 
PB6 NDAC (Not Data Accepted) Eingang 
PB7 NDAC (Not Data Accepted) Ausgang 
CB2 ATN (Attention) Ausgang 






Da der C 64 als Buscontroller arbeitet, ist nur ein Ausgang für das ATN-Signal not- 
wendig. Mit diesen Informationen wird es Ihnen sicher nicht schwerfallen, das 
kurze Testprogramm zum IEEE-Bus-Modul zu verstehen. Die eingegebenen Zahlen 
werden auf den acht Datenleitungen des IEEE-Buses als Binärzahlen ausgegeben. 
Gibt man 1 ein, so ist nur die Leitung DIO 0 auf Highpegel, DIO 1 bis 7 sind low. 
Bei 8 ist nur die Leitung DIO 3 high usw. Mit einem Voltmeter kann man die Pegel 
an den Leitungen überprüfen. 


Will man IEEE-Geräte an den € 64 anschließen, so benötigt man noch ein Adapter- 
kabel. Dies ist das gleiche, wie es für die Commodore-Computer der 4000er und 
8000er Serie angeboten wird. Man muß dazu einfach von einem TRW- 
Userportstecker auf einen 24-poligen Amphenolstecker übergehen. Das Verdrah- 
tungsschema für ein Verbindungskabel sieht folgendermaßen aus: 





TRW-Stecker Signal Amphenolstecker 





Pin 1 DIO 0 Pin 1 
Pin 2 DIO 1 Pin 2 
Pin 3 DIO 2 Pin 3 
Pin 4 DIO 3 Pin 4 
Pin 5 EOI Pin 5 
Pin 6 DAV Pin 6 
Pin 7 NRFD Pin 7 
Pin 8 NDAC Pin 8 
Pin 9 IFC Pin 9 
Pin 10 nc Pin 10 
Pin 11 ATN Pin 11 
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TRW-Stecker Signal Amphenolistecker 

Pin 12 GND Pin 12 

Pin A DIO 4 Pin 13 

Pin B DIO 5 Pin 14 

Pin C DIO 6 Pin 15 

Pin D DIO 7 Pin 16 

Pin E-N GND Pin 17-24 








Die vielen GND-Anschlüsse sind auf der Unterseite der Platine an der IEEE-Steck- 
leiste gut zu erkennen, da die Kontaktflächen untereinander verbunden sind. Mit 
dieser Orientierungshilfe kann man leicht die anderen Signalleitungen auffinden 
und mit dem Meßgerät kontrollieren. Die IFC(Interface clear)-Leitung ist identisch 
mit der Resetleitung im Computer. Alle Signale auf dem IEEE-Bus sind lowaktiv, 
das heißt, sie sind gültig, wenn sie Low-Pegel haben. Will man z.B. EOI signalisie- 
ren, so muß man die Leitung auf Low-Pegel zurücksetzen. Um die Programmierung 
zu vereinfachen, wurde darum für die Signalleitungen ein invertierender Treiberbau- 
stein verwendet. Die Datenleitungen mußten per Software invertiert werden. Dies 
geschieht, wie aus dem Assemblerlisting ersichtlich ist, mit dem Befehl EOR $FF. 


Benötigte Software 


Um Platz für die IEEE-Routinen zu schaffen, wurden aus dem Originalbetriebssy- 
stem die Kassettenroutinen entfernt. Da die Software aber nicht den gesamten, frei- 
werdenden Raum benötigt, wurde noch die Möglichkeit geschaffen, ein eigenes Pro- 
gramm per Tastendruck zu starten. Dies geschieht durch Drücken der Tasten CTRL 
und ’+? gleichzeitig. Die eigene Software darf im Speicherbereich von $F72C bis 
$FA00 stehen und muß mit einem RTS enden. Denkbar wäre z.B. eine Hardcopy- 
Routine für Ihren Drucker. Bei Drücken der Tastenkombination CTRL und ’+’ 
springt das Programm die Adresse $F72C an. Die eigene Routine muß also hier be- 
ginnen. Das Assemblerlisting dient zum Verständnis der IEEE-Routinen und er- 
möglicht eigenes Verbessern des Programmes. Zusätzlich ist noch ein Basiclader ab- 
gedruckt, der schneller einzugeben ist und zudem die Software gleich richtig im 
Betriebssystem einbindet, nachdem er dieses ins RAM kopiert hat. Besser ist es, 
man brennt sich ein EPROM von dem Betriebssystem, mit welchem man, mit Hilfe 
der Adapterplatine, das Original-ROM austauscht. Dies hat den Vorteil, daß die 
Software sofort nach dem Einschalten aktiviert ist. Der Basiclader besitzt zusätzlich 
eine Checksumabfrage, die angibt, in welchem Block sich ein Data-Fehler einge- 
schlichen hat. - 


Zur Bedienung: Nach dem Reset werden alle Geräte bis auf den Drucker mit Geräte- 
adresse 4 über den parallelen IEEE-Bus angesprochen. In Speicherzelle 2 steht, 
welche Geräteadresse seriell bleibt. Mit POKE 2,8 wird die serielle Floppy (1541) 
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mit Laufwerknummer 8 angesprochen. Man kann eine serielle und eine parallele 
Floppy unter Gerätenummer 8 anschließen und über Speicherzelle 2 immer zwi- 
schen den beiden Geräten umschalten, was das Kopieren vereinfacht. Man kann 
auch von einem seriellen Laufwerk mit der Nummer 8 auf ein paralleles mit der 
Nummer 9 kopieren und umgekehrt. Will man, daß das parallele Gerät in Speicher- 
zelle 2 steht, muß man in der TESTSER-Routine im Assembler die beiden Bit- 
Befehle vertauschen. 

Noch ein Tip zum Schluß: Stecken Sie das Modul immer nur bei ausgeschaltetem 
Computer in den Expansionsport, da sonst Bauteile im Computer oder auf der Pla- 
tine beschädigt werden können. Das gleiche gilt für den Anschluß von Peripherie- 
geräten, die natürlich auch ausgeschalten sein sollen. Das Platinenlayout zu diesem 
Beitrag finden Sie im Kapitel 7/2.1 Seite 1 und 2. 


Assembler-Listing 





SE Pass | 







ER 














‚Default auf y Wenger 






#77 
Esadünd 








;Eyte auf IE 














Listing 7/2.7 Assembler (1) 
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sta Sddöd 
lda #$57 

«by & 

Ida #637 

Jup unlisten 
j Sedbe 


chi“ 














#0 
lablı 


Jjup 
Jap 












+ 
S fibE 
#308 
sta $ba 

ms 
nop 
nunp 












bei saven 








;Startadr. 





;seriell 





umdäaeracr. Cnach L 

















Listing 7/2.7 Assembler (2) 
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beg lahb4 






















g& 
ii: 
lda 
and 
emp 
Hsrr 
ro 
#334 
ri 
rü 
18: HE1O 
;bav ausge 
15: 





;Timer & karı 





Sddof ;Highby 
HROO 

sta $dd07 ;Lowby 
ı1da $dıd07 


Zaehlers 

















14 
; wartet NIE 
1: 
1.4: eime much 
end} 








;ATN Fuer 





sendbyter testser Byte auf IE 














Listing 7/2.7 Assembler (3) 
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unlistern: 


punkallı 


punli 








wis 


;NDAC und NEFD « 





seratn: 





readkyter 


preadhyi: 





Ey von TEC-Pus 1 





jalle bits auf eingabe« 





;Datenr. des 15 


; NDAC setzen 
118: 





ı $cidO7 
111: lda &dd07 
beqg 112 
Ida #808 ” 
bit r2 ;DAV abwarte 
be 131 

















Listing 7/2.7 Assembler (4) 
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i1d: 


117: 


112: 


eigenrauts 
trl 


testetrl: 





mp Seife 
lab30 jmp Seife 
takt 5: lsr #34 
 #$5 
xri 
#330 
r3 


#$a5 








savadr: lda Sc 








;NDAG und NEFD setzen 


;EOF abfragen 


INRFD set 





;DAY abwarten 





;NEFD und NDAC set 








Listing 7/2.7 Assembler (5) 
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nnie 


eigenmaub 
110 













en 
il 

ı1 
13 
13 
la 
pa 


cal 
1 


E 


b30 
tno 








seriell 




















Listing 7/2.7 Assembler (6) 
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Testprogramm 








UF 
GNALDATE 















LCEHTUNG 


CHENDE TASTE DREUECKEN 1" 


250 


BEENDET" 


L AUF DATENEUS LEGEN 


ITUNGEN SE 








ATN 
ATN LOESCHEN" 
NDA 
NDAG L.OE 

















Testprogramm (1) 
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FREINT "NDAC GESETZT LOW3" 
IF FAND 16 
FRINT "NEFD L.OW3 " 


FF AND 





Testprogramm (2) 


!THEN FEINT "NDAU GELOESCHT 


STHEN FRINT "NRFD GELDESCHT 


IF <F AND 83=8THEN FRINT "DAY GELDESCHT 
FEINT "DAV 5 T DOW)" 


" GELDESCHT 
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{=HT6H)": G0TOBSO 


HIGH?" GOTOSSO 


C=HIGH> ": GOTO 


C=HIEH) "3 GDT 
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Basic-Lader 











SCHWARZ 
:INT:FREINT 





IMME FALSE 
“"THENSGO 








EM KEFNALRAM SELEETIE 





DATA 
REM 








Basic-Lader (1) 
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DATAO,1 
DATAI 
DAT 


st 130, 


Olri 











Basic-Lader (2) 
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&,41,15,197 











Basic-Lader (3) 
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Dr 10ufF 


PIA Ai 


174 74 LS245] IN 


Gm 


Bild 7/2.7-1 Bestückungsplan 

















Teil 7 Kapitel 2.7 Seite 15 





Bauanleitungen 








2.7 Paralleles IEC-Bus-Modul (IEEE-488-Interface) Teil 7: Hard- und Software-Ergänzungen 





8,5, 104, 4 


0,169, 64, 141,5 








Basic-Lader (3) 
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712.14 
l/O-Schnittstelle für C64 





Anschluß des I/O-Bausteins 6821 an den Expansionsport 


Diese Schnittstelle ermöglicht dem Computer den Kontakt zur Außenwelt. Sie ver- 
bindet externe Geräte (z.B. Bildschirm, Tastatur und Drucker) mit dem System. Um 
nun mit dem Computer Messungen und Steuerungen durchzuführen, benötigt er 
einen weiteren Ein-/Ausgabe-Baustein (im Folgenden kurz als „I/O”’-Baustein be- 
zeichnet — für Input/Output). Dieser Baustein enthält in der Regel zwei 1/O- 
Kanäle mit einer Breite von acht Bit. Beim C 64 kann über den User-Port auf einen 
Kanal zugegriffen werden. Dieser User-Port reicht aus, um jeweils einen A/D- 
(= Analog-/Digital-) oder D/A-Wandler anzuschließen. Bei einem Regelvorgang 
werden aber in vielen Fällen gleichzeitig beide Wandler-Bausteine verwendet. Aus 
diesem Grunde empfiehlt es sich, einen Schnittstellenbaustein anzuschließen. 


Der Baustein 6821 


Der I/O-Baustein hat 16 programmierbare Ein-/ Ausgänge. Er ist in fast jedem 
Elektronikversand erhältlich und kostet weniger als 10 DM. Seine Kompatibilität 
mit den Mikroprozessoren 6502 und 6510 ermöglicht einen problemlosen Anschluß 
an den C 64. Untergebracht ist er in einem 40-Pin-Gehäuse. Intern besteht der Bau- 
stein aus zwei I/O-Kanälen (Port A; Port B), von denen jeder drei Register hat. 
Durch das Datenrichtungsregister (DRRA; DRRB) kann jede der 16 programmier- 
baren Leitungen als Eingang oder Ausgang festgelegt werden. Das Ausgaberegister 
setzt den Pegel an den Ausgabeleitungen fest. Der an den Eingabeleitungen an- 
liegende Pegel kann aus dem Ausgaberegister (ARA; ARB) gelesen werden. Mit 
dem Steuerregister (SRA; SRB) wird zwischen Ausgabe- und Datenrichtungsregister 
hin- und hergeschaltet. 
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Bild 7/2.14-1: Anschlußbelegung und erweitertes Blockdiagramm des 6821 (Motorola) 


Bild 7/2.14-1 zeigt die Anschlußbelegung des Bausteins. Er wird durch Datenleitun- 
gen, Adreßleitungen und Steuerleitungen mit dem Computer verbunden. Die 
Datenleitungen D®-D7 sind direkt an den Datenbus des Mikroprozessors anzu- 
schließen. Zu den Adreß- und Auswahlleitungen gehören die Anschlüsse RSO, RSI, 
CS1, CS2 und CS3. Zur Aktivierung des Bausteins müssen CSI, CS2 auf +5V 
und CS3 auf GND liegen. RSO und RS1 werden mit den Adreßleitungen A und 
Al des Computers verbunden. Die Steuerleitungen RES, 92 und R/W werden an 
den entsprechenden gleichnamigen Leitungen des Prozessors angeschlossen. Nach 
dem Anlegen der Betriebsspannung an Pin 1 (Masse) und Pin 20 (+5V), die dem 
Computer entnommen wird, ist der I/O-Baustein betriebsbereit. 


Wie schon erwähnt, enthält der 6821 sechs interne Register. Man kann jedoch nur 
vier Register adressieren. So wird durch Umschalten von Bit 2 im Steuerregister das 
Problem gelöst. Bei dem Baustein kann auf vier Adressen zurückgegriffen werden. 
Die Adresse 99 beinhaltet also das DRRA oder das ARA. Auf 91 liegt dann das 
SRA. Die gleiche Adreßbelegung gilt für den Port B (02 = DRRB/ARB; 03 = 
SRB). Um auf das DRRA/B zugreifen zu können, muß man in Bit 2 des SRA/B 
eine Ö einschreiben. Jetzt kann in das DRRA/B eine achtstellige Binärzahl einge- 
schrieben werden. Dabei entspricht © einer Eingabeleitung und 1 einer Ausgabe- 
leitung. So werden z.B. durch die Binärzahl 1111000 (dezimal = 15) im DRRA 
PA®-PA3 als Eingänge und PA4-PA7 als Ausgänge programmiert. Mit dem Ein- 
schalten des ARA/B (Bit 2 im SRA/B = 1; dez. = 4) kann der Pegel der als Aus- 
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gänge geschalteten Leitungen festgelegt werden. Eine 0 im ARA entspricht einem 
Pegel von O0 V und eine 1 einer Spannung von 4-5 V (TTL-kompatibel). Diese Pegel- 
zustände erkennt der Baustein auch an den Eingangsleitungen. Als Beispiel würde 
dann ein High-Pegel (2,4-5V) an PA6 in Bit 6 des RA eine 1 schreiben. Die etwas 
umständliche Programmierung wird später durch Beispiele nochmals veranschau- 
licht. 


Der Expansionsport 


Über den Expansionsport kann der Computer bestimmte Erweiterungen aufneh- 
men. Er ermöglicht den Zugriff zu sämtlichen Adreß-, Daten- und Steuerleitungen 
des Computers. Außerdem werden dekodierte Leitungen für Speichererweiterung 
und Schnittstellenerweiterung an die 44polige Buchsenleitung herausgeführt. So 
reserviert z.B. die dekodierte Leitung I/Ol beim C64 einen Bereich 256 Bytes. Der 
verwendete Schnittstellenbaustein benötigt einen Bereich von vier Bytes. Es lassen 
sich also bei vollständiger Dekodierung 16 Bausteine mit einer Auswahlleitung an- 
schließen. 


Zum Anschluß des Bausteins wird die Auswahlleitung 1/01 verwendet. Das ergibt 
die Anfangsadresse 56832. Die Auswahlleitung liegt auf GND. Sie wird mit der 
CS3-Leitung des Bausteins verbunden. Die restlichen Verbindungsleitungen werden 
wie oben beschrieben verlegt. Die folgende Tabelle zeigt die vollständige Verbindung 
des Bausteins mit dem Expansionsport. 
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Verbindungen 


C-64(Exp«) 





G) end (1) 
(20) +5V (2) 
(21) RW (5) 
(22) +57 (2) 
053 (23) (7) 
(24) (2) 


(25) (E ) 
(26) (14) 
(27) (15) 


28) (16) 
(29) (17) 
(30) (18) 
(31) (19) 
(32) (20) 
(33) (21) 
RES (34)) RES (c ) 
RSı (35) (x) 
RSO (36) (1) 





Die Anschlußbelegung des Erweiterungsports steht im Handbuch des Computers. 
Es ist darauf zu achten, daß die Abbildung von der richtigen Seite betrachtet wird. 
Im C-64-Handbuch ist der Erweiterungsport von vorne abgebildet. Der Datenbus 
DP-07 muß von der rechten Seite beginnen, wenn man von oben auf den Computer 
sieht. 


Der Aufbau 


Der Expansionsport ist auf eine 44polige Buchsenleiste herausgeführt. Es besteht 
ein Unterschied zwischen dem Stecker für den VC-20 und den C 64: der Stecker für 
den VC-20 hat ein Raster von 3,96 mm und der für den C64 ein Raster von 
2,54 mm. Die Stecker sind nicht bei allen Elektronikversendern erhältlich. Sie müß- 
ten aber über ein Computergeschäft zu bekommen sein. Eine andere Lösung wäre 
ein Selbstbau des Steckers. Man braucht nur eine doppelseitige Platine mit parallel- 
laufenden Bahnen im Raster von 3,96 mm (2,54 mm) zu ätzen. 


Ein Versuchsaufbau läßt sich ohne weiteres mit einer Lochrasterplatine anfertigen. 
Dabei empfiehlt es sich, einen IC-Sockel für den Baustein zu verwenden. Über 
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ein Flachkabel kann der Stecker mit der Platine verbunden werden. Es ist noch dar- 
auf zu achten, daß die Platine vor dem Einschalten angeschlossen wird. 


Listing 7/2.14-1 und -2 zeigen ein Testprogramm für den Baustein. Wenn die Pro- 
gramme auf dem C64 laufen, schaltet der Port A (PAO-PA7) zwischen 0 V und 
5 V hin und her. Dies läßt sich leicht durch ein Meßgerät feststellen. 


REM +** Ausgabe-Test *** 
PA = 356832 

POKE PA+1,0 

POKE PA,255 

POKE PA+1,4 


POKE PA,‚O 

FORI=OTO2000:NEXT 

POKE PA,255 

FORI = OT02000:NEXT 
100 GOTO 60 





Listing 7/2.14-1 


Das zweite Programm testet die Eingänge am Port A. Legt man alle Leitungen 
(PAO-PAT) auf GND, so gibt der Computer den Zahlenwert Q aus. Liegt eine Lei- 
tung auf +5V und die anderen auf Masse, so ergibt sich der Zahlenwert 2 hoch n 
(n = PAn). Wurde der Test erfolgreich abgeschlossen, so können bestimmte Anwen- 
dungen für den Baustein angeschlossen werden. 


REM +*** Eingabe-Test *** 
PA = 56832 
POKE PA+1,0 


POKE PA,‚O 
POKE PA+ 1,4 
PRINT PEEK(PA) 
GOTO 60 





Listing 7/2.14-2 


Anwendungen des 6821 


In Bild 7/2.14-2 werden Schaltungen zum Ansteuern von Leistungsschaltern dar- 
gestellt. In der ersten Schaltung wird über einen NPN-Iransistor eine LED angesteu- 
ert. Die Versorgungsspannung kann bei dieser Schaltung dem Computer entnom- 
men werden. Um größere Leistungen steuern zu können, muß man ein Relais 
benutzen. Das zweite Schaltbild zeigt die Ansteuerung eines Relais über einen Tran- 
sistor. Bei der Verwendung von einem Reed-Relais reicht die Versorgungsspannung 
des Computers aus. Will man aber große Relais (z.B. für Netzspannung) anschlie- 
Ben, muß unbedingt mit einer externen Spannung gearbeitet weden. Es darf auch 
die Schutzdiode (mind. 1A) beim Schalten von großen Leistungen nicht zu klein 
sein. 
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Bild 7/2.14-2: Leistungsschalter mit einem Transistor oder Relais 


Anschluß des A/D-Wandlers ADC 0804 an den 6821 


Die Möglichkeiten des 6821 sind vielfältig. Eine besonders interessante soll nachfol- 
gend gezeigt werden. Diese Anwendung bezieht sich auf Messungen mit dem Com- 
puter. Allgemein ist es möglich, mit dem Schnittstellenbaustein Zeit-, Pegel- und 
Frequenzmessungen ohne Erweiterungen durchzuführen. Will man aber mit dem 
Computer Spannungen messen, so ergeben sich zwei Möglichkeiten. Entweder wird 
die Spannung in eine proportionale Frequenz oder in mehrere parallel anliegende 
Pegel umgewandelt. 


Es gibt verschiedene Techniken der Analog/Digital-Wandlung. Die Methode mit 
dem direkten Vergleich ist ein etwas umständliches Verfahren und wird deshalb nur 
selten verwendet. Mehr verbreitet ist das Integrationsverfahren. Es beruht darauf, 
die Zeit zu messen, die gebraucht wird, einen Kondensator auf die unbekannte 
Spannung aufzuladen und ihn mit einer bekannten Bezugsspannung wieder zu ent- 
laden. Das Zeitverhältnis zwischen diesen beiden Vorgängen entspricht dem Ver- 
hältnis der bekannten zur unbekannten Spannung. Die dritte Möglichkeit, ein ana- 
loges Signal in ein digitales Signal umzuformen, ist das Verfahren durch die 
schrittweise Annäherung. Diese Methode ist auch unter dem Namen sukzessive 
Approximation bekannt. 


Sukzessive Approximation 


Die A/D-Wandlung nach dem „Wägeverfahren‘‘ benutzt einen D/A-Wandler, einen 
Komparator und eine Steuereinheit. Dabei wird die Eingangsspannung mit der 
Spannung des D/A-Wandlers verglichen. Der Komparator vergleicht die beiden 
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Spannungen und sendet dann ein log. Signal an die Steuereinheit. Je nach dem, ob 
die Eingangsspannung größer oder kleiner ist, erhöht oder erniedrigt die Steuerein- 
heit den Spannungswert für den D/A-Wandler. 


Die Genauigkeit des Wandlungsverfahrens bestimmt die Anzahl der zu durchlaufen- 
den Durchgänge. Bei einem 4-Bit-A/D-Wandler muß die Spannung viermal geän- 
dert werden, bis sie gleich der Eingangsspannung ist. 


_| Eingang 











Bild 7/2.14-3: Schrittweises Einstellen der Spannung bei der sukzessiven Approximation 


Bild 7/2.14-3 zeigt einen „Ratevorgang‘‘ bei schrittweiser Annäherung. Ein Vorteil 
bei der Umwandlung mit der sukzessiven Approximation liegt in der Geschwindig- 
keit. Es gibt fertige Bausteine, die Umwandlungszeiten von 10 Mikrosekunden 
‚haben. Damit lassen sich Frequenzen im Hörbereich (bis 20 kHz) gut erkennen. 
Durch den häufigen Gebrauch von A/D-Wandlern in der Computertechnik hat die 
Industrie komplette integrierte Bausteine entwickelt. Die auf dem Markt erhält- 
lichen ICs haben eine Auflösung von 8-16 Bit. Das entspricht einer Genauigkeit von 
1/256-1/65536 des Eingangsspannungsbereiches. Für einfache Messungen kann ein 
8-Bit-A/-Wandler ausreichen, um z.B. die Raumtemperatur messen zu können. 


Der A/D-Wandler ADC 0804 


Der A/D-Wandlerbaustein ADC 0804 von National Semiconductor hat eine Auf- 
lösung von 8 Bit und somit eine Genauigkeit von 1/256 der Eingangsspannung. 
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Seine Kompatibilität zu allen gängigen Computerbussen ermöglichen einen pro- 
blemlosen Anschluß an den C64. Die Umwandlungszeit des Wandlers beträgt bei 
Normalbeschaltung (R = 10 k; C = 150 pfF) 100 Mikrosekunden. Der Eingangs- 
spannungsbereich geht von 0 V bis +5 V. Die Versorgungsspannung beträgt eben- 
falls O V und +5 V. Der Baustein ist bei vielen Elektronik-Versendern erhältlich und 
kostet ca. 20 DM. Eingebaut ist der Wandler in ein 20-Pin-Gehäuse. 
























DB & 
cs 
RO 
einheit RD_ 
DB INTR 
ukzessive 
x.- Register 


8-Bit Schieberegister 











Bild 7/2.14-4: Interner Aufbau des ADC 0804 


Der interne Aufbau ist in Bild 7/2.14-4 dargestellt. Es zeigt die Verbindung der ein- 
zelnen Komponenten. Will man den Wandler starten, so müssen die Bedingungen 
der Leitungen an der Ansprecheinheit erfüllt sein. Ist dies der Fall, so geht ein Start- 
signal von der Ansprecheinheit zum Schieberegister. Damit der Schieberegister auch 
arbeiten kann, benötigt er einen Takt. Die Taktfrequenz des Taktgenerators kann 
durch externe Beschaltung von R und C bestimmt werden. Nun ist der Wandler be- 
triebsbereit. Das analoge Eingangssignal wird auf das Nullpotential des Bausteins 
abgestimmt und kommt dann an den negativen Eingang des Komparators (Ver- 
gleicher). Die Ausgangsspannung des D/ A-Wandlers geht an den positiven Eingang 
des Komparators. Die Wandlungslogik wurde weiter oben schon beschrieben. Ist 
die Ausgangsspannung am D/A-Wandler gleich der Eingangsspannung, so liegt 
der Wert der Eingangsspannung zwischen sukzessiven Approx.-Register und D/A- 
Wandler in binärer Form vor. Diese Dualzahl wird dann über das Tri-State Ausgabe- 
register an die Datenleitungen DB®-DB7 ausgegeben. Bild 7/2.14-5 zeigt 
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die Anschlußbelegung des Bausteins ADC 0804. Die externe Beschaltung des Wand- 
lers besteht aus dem Widerstand R = 10 k und dem Kondensator C = 150 pF. Die 
beiden passiven Bauelemente bestimmen die Taktfrequenz. Der Widerstand darf 
nicht kleiner als 10 k sein. Der Wert des Kondensators kann noch verkleinert und 
somit die Taktfrequenz vergrößert werden. 





Bild 7/2.14-5: Anschlußbelegung des ADC 0804 


Der Aufbau 


Da der A/D-Wandler nur in Verbindung mit dem Schnittstellenbaustein arbeitet, 
empfiehlt es sich, die beiden ICs auf einer Platine aufzubauen. Die Verwendung von 
IC-Sockeln ist ratsam, da die Bausteine empfindlich und nicht billig sind. Zum Ver- 
suchsaufbau kann eine Lochrasterplatine verwendet werden. Bild 7/2.14-6 zeigt die 
Verbindung des A/D-Wandlers mit dem Schnittstellenbaustein. Der Anschluß des 
1I/O-Bausteins 6821 an den Expansionsport des C64 wurde im ersten Teil der Folge 
besprochen. Die Betriebsspannung kann bei der Schaltung dem Computer entnom- 
‚men werden, 
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ADC 0804 LCN P/A 6821 





Bild 7/2.14-6: Verbindung des ADC 0804 mit dem P/A 6821 





—o Vınl-) 


OP1 = LM 324 





Bild 7/2.14-7: Impedanzwandler 


Anwendungen des ADC 


Mit dem A/D-Wandler lassen sich direkt Spannungen zwischen O0 V und +5 V mes- 
sen. Die Schaltung in Bild 7/2.14-7 zeigt einen Impedanzwandler. Der Operations- 
verstärker arbeitet mit der Verstärkung 1. Wichtig ist die Betriebsspannung von 
+9V und die Verbindung der Masseleitung des Computers und der Schaltung. Die 
Schaltung ermöglicht eine belastungsfreie Spannungsmessung. Listing 7/2.14-3 
zeigt das entsprechende Programm. 
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10 REM * SPANNUNGS- * 

20 REM » MESSUNG + 

30 REM 

40 REM * WANDLER + 

50 REM ANSPRECHEN * 

60 PA=56832 

70 POKEPA +1,48 

80 POKEPA + 1,0 

90 POKEPA, 0 

100 POKEPA + 1,4 

200 REM +WERT LESEN * 

210 PRINT'KZ“ 

220 A=PEEK(PA) 

230 B=50/256*A 

240 C=INT(B)/10 

300 REM * WERT AUSLESEN + 
310 PRINTER] SPANNUNG ="CHl VOLT“ 
320 GOTO220 

READY. 














Listing 7/2.14-3: Spannungsmessung 


Mit Sensoren ist es möglich, auch andere Größen zu messen. Auf dem Markt sind 
Sensoren für Temperatur, Druck, Luftfeuchtigkeit, Magnetfeldstärke und weitere 
physikalische Größen erhältlich. Die Schaltung in Bild 7/2.14-8 wandelt die Tempe- 
raturwerte mit dem Sensor in proportionale Spannungswerte um und paßt die 





OP1 = LM 324 


STP 35 
Draufsicht 





Bild 7/2.14-8: Eingangsschaltung zur Temperaturmessung mit dem Sensor STP 35 
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umgewandelte Spannung an den Eingangsbereich des A/D-Wandlers an. Der ver- 
wendete Temperatursensor STP 35 von Texas Instruments hat eine Empfindlichkeit 
von 10 mV/K (Kelvin). Die Kalibrierung der Schaltung kann durch Eiswasser oder 
direkten Temperaturvergleich über den Spindeltrimmer (1 k) erfolgen. Wichtig ist, 
daß die Eingangsspannung des Wandlers nicht größer als +5 V wird. Darum sollte 
die Ausgangsspannung der Schaltung erst mit einem gewöhnlichen Meßgerät über- 
prüft werden. Der Operationsverstärker arbeitet mit dem Verstärkungsfaktor 10. So 
ergibt sich eine Spannungsänderung von 100 mV für 1 Kelvin. Das Programm für 
die Temperaturmessung ist in Listing 7/2.14-4 dargestellt. In den REM-Zeilen der 
Programme ist die Funktion des nachfolgenden Programmteils abgedruckt. 





10 REM * TEMPERATUR- * 
20 REM « MESSUNG * 

30 REM 

40 REM *« WANDLER  * 

50 REM +ANSPRECHEN * 

60 PA = 56832 

70 POKEPA +1,48 

80 POKEPA + 1,0 

90 POKEPA, 0 

100 POKEPA +1,4 

200 REM *+WERT LESEN * 

210 PRINT'KI“ 

220 A=PEEK(PA) 

230 B=INT((255-A)*.1953) 

300 REM * WERT AUSLESEN * 

310 PRINTER)“ TEMPERATUR ="BHI GRAD“ 
320 GOTO 220 

READY. 











Listing 7/2.14-4: Temperaturmessung 


Teil 8 


Spezielle 
Einsatzbereiche 
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Teil 8: Spezielle Einsatzbereiche 


8/3 
Modelleisenbahnen 





Modelleisenbahnen waren sicherlich bis zum Erscheinen des Computers eines der 
weitverbreiteten Hobbys, wenn nicht das weitverbreitetste. Was liegt näher, das neue- 
ste Hobby und eines der traditionsreichsten miteinander zu verbinden. Im Rahmen 
von Kapitel 8/3 wollen wir uns mit Computersteuerungen von Modelleisenbahnen 
beschäftigen. 


Die Computersteuerung von Modelleisenbahnen bietet den Vorteil, daß man die 
Zweidimensionalität seines Bildschirms verlassen und echte Abläufe mit seinem 
Computer steuern kann. Vielleicht kann man auch etwas Familienzusammenfüh- 
rung betreiben, wenn der Vater eine Modelleisenbahn besitzt und der Sohn einen 
Computer. Vielleicht hat der Vater sogar dann ein Einsehen und beschafft die längst 
überfällige Floppy. 


Zur Zeit sind mehrere elektronische Steuerungssysteme für Modelleisenbahnen auf 
dem Markt, jedoch nur eines bietet direkt den Anschluß an Computer: Märklin 
Digital H0. Mit ihm wollen wir uns im Folgenden zuerst beschäftigen. 


8/3.1 
Märklin Digital HO 





Der Marktführer bei den Modellbahnherstellern hat die Vorteile seines Dreileiter- 
Wechselstromsystems genutzt und dafür eine Digitalsteuerung konzipiert. Die Firma 
Märklin ist sogar noch einen Schritt weitergegangen und hät zu dieser Digitalsteue- 
rung sofort ein Interface angeboten, das an die verschiedensten Computer ange- 
schlossen werden kann. Vorreiter war auch hier die Gruppe der Commodore Home- 
Computer. 
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Nachdem wir die einzelnen Komponenten des Digitalsystems besprochen haben, 
bieten wir eine kleine Unterprogramm-Bibliothek an und gehen sodann auf spezielle 
Problemlösungen ein. 





RER 


Bild 8/3: Der kleine Unterschied: Rechts eine konventionelle Steuerung mit entsprechend vielen Kabeln, 
links die zwei Kabel von Märklin Digital HO. 
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8/3.1.1 
Die Digital-Geräte 





Auch wenn man die Modellbahn direkt — nur über zwei Drähte — mit dem Com- 
puter steuern kann, wollen wir in den einzelnen Unterkapiteln die verschiedenen 
Komponenten des Digitalsystems besprechen. Dadurch läßt sich die Anwendung des 
Computers viel leichter verstehen. 


8/3.1.1.1 


Central-Unit 





Die Central-Unit ist das Herzstück des Digitalsystems, sozusagen die CPU. 


Bild 8/3.1.1.1 
Die Zentraleinheit 
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In ihr laufen alle Fäden zusammen (sprich die Leitungen der Keyboards und Con- 
trol 80 sowie des Interfaces und der Rückmeldebausteine) und die Information wird 
über zwei Kabel an die Modellbahnanlage übergeben. Damit werden sowohl Loks 
als auch Magnetartikel (Weichen, Signale und Fernschalter) gesteuert. Ihren Strom 
bezieht die Central-Unit von einem Transformer, der nichts anderes ist, als ein 
Transformator. Gegenüber den üblichen Märklin-Transformatoren weist der Trans- 
former jedoch eine Leistung von 52 VA aus, die speziell auf das Digitalsystem abge- 
stimmt ist. 


An die Central-Unit werden die Control 80 und die Keyboards direkt über Steckver- 
bindungen angeschlossen, mittlerweile sind jedoch auch Verbindungskabel erhält- 
lich, sodaß die Geräte auch in einiger Entfernung aufgestellt werden können. Gene- 
rell werden rechts von der Central-Unit die Control 80 aufgestellt und links die 
Keyboards. Das Interface wird dabei als Control 80 behandelt. 


Neben der Steuerung der Anlage überwacht die Central-Unit auch die angeschlosse- 
nen Geräte. Z.B. werden den Control 80 jeweils interne Nummern gegeben. Dadurch 
ist es möglich, zu verhindern, daß zwei Control 80 auf die gleiche Lok zugreifen. 
Aber davon später mehr. 


8/3.1.1.2 


Control 80 





Das Control 80 ersetzt den bisherigen Fahrregler und noch ein bißchen mehr. 


Bild 8/3.1.1.2 
Das Fahrgerät 
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Gegenüber der analogen Steuerung der konventionellen Fahrregler an den Transfor- 
matoren besitzt der Regler des Control 80 diskrete Kontakte. Einer davon dient zum 
Umschalten der Fahrtrichtung, ein anderer beinhaltet die Nullstellung. Die rest- 
lichen vierzehn Kontakte sind für die unterschiedlichen Geschwindigkeitsstufen vor- 
gesehen. 


Die Control 80-Geräte werden rechts an die Central-Unit angesteckt, bis zu zehn 
Stück an der Zahl. Mit ihnen wird nicht nur die Geschwindigkeit der angeschlosse- 
nen Loks gesteuert, sondern auch noch einiges, was bisher nicht möglich war: Eine 
Zusatzfunktion. Diese Zusatzfunktion wird über die beiden Tasten off und function 
ein- oder ausgeschaltet. Diese Sonderfunktion wird in der Regel das Licht sein — 
das bei Digital-Loks jeweils nur in Fahrtrichtung leuchtet, aber auch eine Telex- 
kupplung bzw. eine Rauchpatrone bei Dampfloks gelten als Sonderfunktion. 


Am Control 80 kann über die Tasten stop/go auch ein Nothalt und ein Neustart bei 
der Modellbahnanlage erfolgen. In diesem Fall wird die Stromzufuhr zur Anlage 
abgeschaltet, so daß alle Loks sofort stehen bleiben. Allerdings Weichen kann man 
dann auch nicht mehr schalten. Mit dem Computer läßt sich dies jedoch sehr ein- 
fach umgehen, wie wir im Rahmen von Kapitel 8/3.1.2 noch sehen werden. 


Neben den vier genannten Tasten und dem Fahrregler befindet sich noch eine Zif- 
ferntastatur von 0 bis 9 an jedem Control 80. Mit diesen Ziffern wird jeweils die 
aktuelle Loknummer angewählt. Mit dem Fahrregler werden also nicht alle Loks 
innerhalb eines Stromkreises gesteuert — dies ginge sowieso nicht, da ein konstanter 
Strom beim Digitalsystem an den Schienen anliegt — sondern jede Lok einzeln. 


Dazu besitzt jede Lok einen eigenen Dekoder, den wir im nächsten Kapitel noch 
kurz besprechen werden. Über das Control 80 rufen Sie also eine der vorhandenen 
Loks über ihre Nummer auf. Diese Nummer kann Werte von 1 bis 80 (mit Aus- 
nahme von 68) annehmen. Diese und nur diese Lok wird mit dem Fahrregler und 
der Tastenkombination off/function gesteuert. Wählen sie eine andere Lok, so be- 
hält die vorher gewählte Lok ihre Geschwindigkeit und den Einschaltzustand ihrer 
Zusatzfunktion bei. Dies bedeutet, daß zwar bis zu achtzig Loks einzeln manipuliert 
werden können, jedoch nur auf eine einzige Lok ein direkter Zugriff besteht. 


Haben Sie aber zwei Control 80, so können Sie auch zwei verschiedene Loks direkt 
beeinflussen, wobei von Hause aus keine Zuordnung stattfindet, welche Lok von 
welchem Control 80 gesteuert werden kann. Lediglich die Central-Unit verhindert, 
daß zwei Control 80 auf dieselbe Lok zugreifen. 


Nachteil gegenüber einer konventionellen Steuerung ist es, daß jedesmal bei er- 
neutem Einschalten der Anlage jede einzelne Lok aufgerufen werden muß, auch 
wenn nur ein reiner Blockstreckenbetrieb gefahren wird. Diese Aufgabe kann aber 
auch der Computer übernehmen. 
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8/3.1.1.3 


Dekoder 80 





Der Dekoder 80 ist das Gegenstück zum Control 80. Jede Lok muß einen Dekoder 
80 enthalten, um über eine Control 80 angesprochen werden zu können. 








Bild 8/3.1.1.3: Der Dekoder im Entwicklungsstadium 


Obwohl an jedem Dekoder 80 ein achtfacher DIL-Schalter angebracht ist, können 
nicht 255 Loks adressiert werden. Die interne Logik der Dekoder 80 arbeitet mit 
Tri-State-Technik. Dies bedeutet, daß je zwei Schalter nur drei wirksame Schalt- 
möglichkeiten besitzen. Fixe Rechner haben sicherlich schnell herausgefunden, daß 
3* (4 Schaltergruppen mit je 3 Möglichkeiten) 81 ergibt, was die Anzahl der Loks 
also auf 80 begrenzt, wenn man bei 1 zu zählen beginnt und die Nummer 68 aus- 
spart. 


Gegenüber anderen Digitalsystemen bieten die DIL-Schalter eine saubere Lösung, 
einer Lok eine selbstgewählte Nummer zu geben. Löten von Drahtbrücken oder so- 
gar eine Programmierung der Dekoder ist also nicht erforderlich. Meistens sind die 
Gehäuse auch mit einer einzigen Schraube am Träger befestigt, so daß hier die 
wenigsten Probleme anzutreffen sind. 








Modelleisenbahnen Teil 8 Kapitel 3.1 Seite 7 











3.1 Märklin Digital HO Teil 8: Spezielle Einsatzbereiche 


Im derzeitigen Sortiment von Märklin gibt es einige Digital-Loks, u.a. den IC/E. 
Näheres entnehmen Sie bitte den einschlägigen Prospekten. 


Aber auch bereits vorhandene Loks mit konventioneller Steuerung können umge- 
rüstet werden. Bei Drucklegung dieses Werkes gilt dies zwar noch nicht für alle 
Loks, aber für einen großen Teil. In einem weiteren Schritt werden die Dekoder 
nochmals verkleinert (im Entwicklungsstadium waren es noch ganze Platinen, siehe 
Bild Seite 6), sodaß ab Sommer alle Loks auf das Digitalsystem umgerüstet werden 
können. 


8/3.1.1.4 


Keyboard 





Das Keyboard ersetzt beim Digitalsystem die Weichenstellpulte Es kann bis zu 
16 Magnetartikel schalten. 


Bild 8/3.1.1.4 
Stellpult 
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Neben den 32 Tasten zum Schalten der Magnetartikel (für jeden eine rote und eine 
grüne Taste) befinden sich über der roten Taste noch eine rote Leuchtanzeige, die 
anzeigt, wenn zuletzt die betreffende rote Taste gedrückt wurde. Dies ist eine ein- 
fache Möglichkeit für Rückmeldung der Weichenstellung, sofern man nicht selbst 
Hand angelegt hat. 


Die Keyboards haben auf der Rückseite einen vierpoligen DIL-Schalter, mit dem 
ihnen Nummern von 0 bis 15 zugewiesen werden können. Daraus resultiert, daß bis 
zu 255 Magnetartikel an ein Digitalsystem anschließbar sind. Mit einigen einfachen 
Tricks schafft man auch mehr, wenn das jemand zu wenig ist. 


Die Keyboards werden rechts an die Central-Unit direkt angesteckt. Zur Vermeidung 
von Verwechslungen sind die Keyboards und die Control 80 spiegelbildlich mit 
Steckern und Buchsen versehen. 


Die Signale der Keyboards werden über die Central-Unit direkt an die Dekoder 80 
übermittelt. 


8/3.1.1.5 


Dekoder k83 





Auch die Weichen, Signale und andere Magnetartikel müssen in den digitalen 
Stromkreis einbezogen werden, wenn über die beiden einzigen benötigten Leitungen 
einzelne Weichen angesprochen werden sollen. Dazu gibt es Dekoder, die die Infor- 
mationen für vier Magnetartikel aus den digitalen Steuerimpulsen herausfiltern. 
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Bild 8/3.1.1.5 


Die Dekoder k83 bilden das Gegenstück beim Keyboard gegenüber dem Dekoder 80 
zum Control 80. Auch die Dekoder k83 enthalten wieder einen eigenen DIL-Schalter 
mit 255 Schaltstellungen. Da aufgrund der Anzahl von Keyboards jedoch nur 256 
Magnetartikel möglich sind und je Dekoder k83 vier Stück geschaltet werden kön- 
nen, sind nur 64 Schaltstellungen nötig. 


Sofern die zwei Kabel von der CPU zur Anlage an der Schiene angeschlossen sind, 
können die Stromversorgungsanschlüsse der Dekoder k83 ebenfalls irgendwo an den 
Schienen angcklemmt werden. Wir hatten bereits erwähnt, daß die gesamte digitale 
Spannung und auch die Steuerinformation ständig an den Schienen anliegt. Die 
Dekoder k83 können also dort immer exakt vier Magnetartikel, die im entsprechen- 
den Bereich liegen, schalten. Trotzdem vermindern gerade die Dekoder k83 den 
sonst enormen Kabelaufwand, da nicht mehr für jede Weiche zwei Kabel zum zen- 
.tralen Stellpult gezogen werden müssen (Ringleitung für den Lichtanschluß voraus- 
gesetzt — sonst drei Kabel). 


Obwohl alle Magnetartikel direkt mit einem Dekoder k83 angesteuert werden kön- 
nen, muß auf diese Tatsache nicht immer zurückgegriffen werden können. Im weite- 
ren Verlauf werden wir auf einige Sparmaßnahmen eingehen, um die Kosten des Di- 
gitalsystems etwas zu dämpfen. 
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9 
Kommerzielle Programme 





Durch die wachsende Leistungsfähigkeit von Home-Computern werden diese im- 
mer öfter im kommerziellen Bereich eingesetzt. Andererseits halten aber auch 
die kommerziellen Programme Einzug in den häuslichen Bereich, hier sind vor 
allem die Textverarbeitung und die Dateiverwaltung zu nennen. Neben diesen 
beiden Bereichen wollen wir auch das Thema Tabellenkalkulation aufgreifen. 


9/11 
Textverarbeitung 





Am Anfang ihrer Geschichte waren Computer ‚Nur-Rechner‘. Dies änderte sich 
bei den ersten kommerziellen Einsätzen. Prozentrechnung ist im kommerziellen 
. Einsatz nicht selten die komplexeste mathematische Operation. 


Aber mit seinem Siegeszug hat sich der Computer auch weiter von seiner ur- 
sprünglichen Aufgabe entfernt. Die meistverbreiteste Heimanwendung ist heute 
- wenn man einigen Meinungsforschungs-Instituten glauben will - die Textver- 
arbeitung. 


Wir haben einige für Sie getestet und wollen diese in loser Reihenfolge vorstellen. 
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91.1.1 


Wordpro 3+ 
(Autor: Thomas Roth) 





Wordpro 3+ ist ein semiprofessionelles Textverarbeitungsprogramm, das die Mög- 
lichkeiten eines Heimcomputers sehr gut ausnutzt. 


Eine Menüführung im herkömmlichen Sinne gibt es nicht. Nachdem man das 
Programm gestartet hat, legt man den Druckertyp und die Speicherverteilung fest. 
Fortan besteht der Bildschirm nur noch aus einer Kopfzeile, einer Trennlinie und 
23 Schreibzeilen. Befehle, die den Ausdruck betreffen, werden in den Text mit hin- 
eingeschrieben. Es wird hierfür ein Zeichen reserviert, das dem Programm an- 
zeigt, daß in dieser Zeile ein oder mehrere Befehle für den Drucker stehen. Stan- 
dardbefehle, wie Randfestlegen oder Seitengröße bestimmen, sind genauso vorhan- 
den, wie ein Blocksatzbefehl, ein Befehl zum rechtsbündigen Schreiben, ein Be- 
fehl zum bedingten Seitenumbruch oder ein Zentrierbefehl. 


Der Speicher ist in zwei Teilbereiche aufgegliedert, deren Größe am Programm- 
start festgelegt wird. Der Hauptspeicher, der normalerweise 300 Zeilen zu 40 Zei- 
chen, also 12000 Bytes faßt, ist für das Erstellen der Haupttexte gedacht. Der 
Nebenspeicher ist besonders zum Einladen des Inhaltsverzeichnisses der Diskette, 
sowie für die Daten der Serienbriefe geeignet. 


Auch die Möglichkeit, Serienbriefe auszudrucken, ist bei Wordpro 3+ vorhanden. 
Dies ist ein weiteres und je nach Anwendung auch wichtiges Kennzeichen für 
ein semiprofessionelles Programm. Beim Erstellen von Serienbriefen werden die 
Daten, z.B. Anreden und Namen, im Nebenspeicher abgelegt. Beim Text im Haupt- 
speicher wird an diejenigen Stellen, an denen die Daten nacheinander eingesetzt 
werden sollen, ein bestimmtes Zeichen gesetzt. Beim Druck werden dann die 
Daten aus dem Nebenspeicher selbständig in den Text eingefügt. 


Es ist nicht möglich, den Text formatiert auf dem Bildschirm auszugeben. Dafür 
gibt es aber vielfältige Möglichkeiten, den Text während der Erstellung zu ver- 
ändern. Es besteht die Möglichkeit, ganze Zeilen zu löschen, beziehungsweise 
ganze Zeilen einzufügen. Auch ein Insertmodus ist vorhanden, in dem man in 
einen geschlossenen Text etwas einfügen kann, ohne umständlich vorher Platz 
schaffen zu müssen. Das alles sind aber Funktionen, die in bessergn Computern 
sowieso im Direktmodus verfügbar sind, besonders wenn sie für die Textverarbei- 
tung vorgesehen sind (z.B. CMB 8000, C 128, PC’s allgemein). 
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Darüber hinaus gibt es aber bei Wordpro 3+ eben noch eine Vielzahl weiterer 
nützlicher Funktionen. Es können zum Beispiel Textbereiche markiert und da- 
nach gelöscht oder an eine andere Stelle im Text transportiert werden. Ebenso 
einfach können Wörter oder ganze Sätze gelöscht werden. Der Text kann nach 
einem festgelegten Begriff durchsucht und dieser gegen einen anderen ausgetauscht 
werden; dies geschieht nicht nur bei dem Begriff, der so gefunden wird, sondern 
bei allen, die im Text stehen. 


Da der nach dem Laden des Programmes noch übrig bleibende Speicherplatz 
relativ gering ist, scheint es auch sinnvoll, daß man einen Text in mehrere Stufen 
gliedern und diese Teile dann zusammenhängend ausdrucken kann. Obwohl das 
Programm die volle Geschwindigkeit des normalerweise verwendeten Disketten- 
laufwerks 1541 ausnutzt, dauert das Laden solcher Texte meist relativ lange. Beim 
Ausdrucken von längeren Texten ist es natürlich sehr praktisch, wenn der Drucker- 
eingang mit einem Puffer versehen ist, weil dadurch die volle Geschwindigkeit 
des Programmes ausgenutzt wird. 


Wie es für ein gutes Textverarbeitungsprogramm kennzeichnend ist, kann auch 
Wordpro 3+ rechnen. Zahlenkolonnen, die im Text stehen, können sehr einfach 
aufaddiert werden, was manchmal sehr hilfreich sein kann. 


Selbstverständlich ist es, daß man mit diesem Programm auch Diskettenbefehle 
an das Laufwerk geben und den Diskettenstatus abrufen kann. Meldungen, wie 
der Diskettenstatus, werden in der Befehlszeile am oberen Bildschirmrand ausge- 
druckt. Dies erleichtert das Arbeiten sehr, denn man bleibt an seiner Position 
im Text stehen und muß nicht umständlich erst das Teilprogramm wieder verlassen. 


Eine große Anzahl von Fehlermeldungen bei Fehlbedienungen erleichtert den 
Umgang und die Fehleranalyse. Besonders am Anfang weiß man dies zu 
schätzen, denn dieses Programm hat zwar den Vorteil, daß man damit sehr schnell 
und effizient arbeiten kann, allerdings benötigt man auch eine gewisse Einarbei- 
tungszeit, bevor man flüssig mit Wordpro 3+ umgehen kann, aber dies ist bei 
Textverarbeitungsprogrammen üblich. 


Wie auch bei nur-professionellen Programmen besteht hier die Möglichkeit, Kopf- 
zeilen oder Fußzeilen festzulegen. Das sind Zeilen, die jeweils an den Anfang, 
beziehungsweise an das Ende jeder neuen Seite geschrieben werden. Sehr prak- 
tisch ist es, daß man in diesen Spezialzeilen auch die beim Ausdruck aktuelle 
Seitenzahl einbauen kann. 

Eine Fähigkeit, die beim C 64 als einfachen Heimcomputer erwartungsgemäß fehlt, 
ist der Tabulator. Auch diese Fähigkeit wird durch das Programm simuliert. Mit 
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wenig Aufwand können direkt dort, wo man mit dem Cursor steht, Tabs gesetzt 
oder auch wieder aufgehoben werden. 


Zusammenfassend kann man sagen, daß dieses Programm für einen 40-Zeichen- 
Computer sehr passend organisiert ist. Schon nach einer kurzen Einarbeitungs- 
zeit wird es Ihnen Spaß machen, zusammen mit diesem Programm Texte zu er- 
arbeiten. Wünschenswert wäre allerdings noch, daß auch im Programm drucker- 
spezifische Zeichen gesendet werden können. Sonst läßt das Programm kaum 
Wünsche offen. 
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9/1.2 
Kalkulation 





Neben der Textverarbeitung erobern sich Tabellen-Kalkulationen (engl. Spread- 
Sheets) immer mehr Freunde. Kalkulationsprogramme arbeiten mit einem vom 
Anwender selbst festzulegenden Formular. Mit diesem Formular können ähnliche 
Rechnungen mit komplizierten Strukturen oder Tabellen sehr leicht durch den 
Rechner bearbeitet und aktualisiert werden. 


9/1.2.1 


Multiplan 
(Autor: Christoph L. Herd / USA) 


Name: 
Microsoft MULTIPLAN 


Programmart: 
Tabellenkalkulationsprogramm 


Notwendige Hardware: 
Commodore 64 oder 128, Diskettenlaufwerk 
Ein Drucker wäre wünschenswert, ist aber nicht unbedingt erforderlich. 


Lieferbare Formate: 
1541-Format für C 64-Version 
"CP/M-Format für PC 128-Version 


Preis: 
etwa 200,- DM 
Dokumentation: 


Sehr umfangreich, mit Einführungsteil, etwa 200 Seiten Lehrteil, großem Stich- 
wortverzeichnis, vielen Anlagen und umfangreichem Inhaltsverzeichnis. 


Technische Daten: 
MULTIPLAN ist ein Tabellenkalkulationsprogramm mit 63 Spalten und 255 Zeilen, 
was dem amerikanischen Standard bei Tabellenkalkulationsprogrammen entspricht. 
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Das Programm hat 61 Arbeitsfunktionen (z.B. Load, Save, Print, etc.) und 40 mathe- 
matische Funktionen (wie z.B. sin, cos, sum, etc.), davon sind 8 logische Ver- 
gleiche (IF-THEN-ELSE, AND, OR, NOT, TRUE und FALSE, ISERROR und 


ISNA). Zusätzlich gibt es natürlich auch die bekannten Operatoren “+“, * 
„=“ ED <=, „oz“ und A 


_» ”» 


$) 


_» 


Generelle Beurteilung: 


Bevor wir das Programm näher beschreiben, möchten wir auf die zwei mögli- 
chen Formate eingehen. MULTIPLAN ist sowohl für den Commodore 64 erhält- 
lich, als auch für den C 128. Die C 64-Version läuft auf der 6510-CPU und mit 
dem 40-Zeichen-Bildschirm, was bei Tabellenkalkulationen leider sehr wenig ist. 
Besitzer eines C 128 können sich hier freuen, MULTIPLAN ist für den C 128 
unter dem CP/M-Format erhältlich, d.h. schnellere Geschwindigkeit und voller 
80-Zeichen-Bildschirm. Vom Bedienungsablauf unterscheiden sich die Versionen 
nicht, die C 64-Version hat eben nur einen kleineren Bildschirm und ist (bedingt 
durch das langsamere 1541-Floppy-Laufwerk) auch etwas langsamer. In der Rechen- 
leistung gibt es aber keine Abstriche zur 128-CP/M-Version. 


MULTIPLAN auf den Commodore-Heimcomputern (C64 & C128) ist somit 
eine vollständige Implementierung, in der zum Vergleich eines MULTIPLAN’s 
für den IBM-PC nichts fehlt. Wie kann man aber ein derart umfangreiches Pro- 
grammpaket wie MULTIPLAN auf einem Homecomputer zum Laufen bringen? 
Die Entwickler haben hier zu einem Trick gegriffen: Programm-Overlays. 


Bei dieser Methode wird ein Management-Programm in den Computer eingelesen. 
Wenn nun eine Funktion (z.B. „Save“) gewählt wird, dann lädt dieser Manager 
den Programmteil ein, welcher zur Abwicklung dieser Funktion notwendig ist. 
Bei der Groß-DV sagt man hierzu: Das Programm steht in einem virtuellen 
Speicher. 


Diese Programmiertechnik bedingt natürlich, daß die Systemdiskette mit der 
Funktionsbibliothek sehr oft angesprochen wird. Bei einem Einzellaufwerk be- 
hilft man sich dadurch, daß man die Bibliothek auf die Datendisk mitkopiert, 
dadurch geht zwar auf der Datendisk etwas Platz verloren, man spart sich aber 
auf der anderen Seite sehr viele Diskettenwechsel. Bei C64-MULTIPLAn hat die 
Funktionsbibliothek den Namen „MP, SYS“ und ist eine REL-Datei. 


Im generellen ist dieses Programm wahrscheinlich das Beste und Vielfältigste, 
was pure Leistung betrifft. Außer den vielen normalen und erwarteten Tabellen- 
kalkulationsprogrammfunktionen kann man zahlreichen exotischen Funktionen 
begegnen. So kann man den Bildschirm in acht Windows aufteilen, Daten von einer 
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Tabelle in einer anderen Tabelle verwenden, Daten sortieren, Spalten und Zei- 
len mit Namen benennen und die Tabelle (bei MULTIPLAN heißt sowas „Work- 
sheet“ oder auch „Arbeitsblatt“) als SEQ-Datei auf Disk ausgeben. Diese Datei 
kann dann von Textverarbeitungsprogrammen weiterverarbeitet werden. 


Der Autor verarbeitet solche Dateien sowohl mit PaperClip von Batteries In- 
cluded, als auch mit Easy-Script oder dem legendären Wordpro 3+/64. Manchmal 
kann es Probleme geben, wenn z.B. die Textverarbeitung die Großbuchstaben 
der Arbeitsblatt-Datei nicht schlucken will. Dies kann daran liegen, daß Commo- 
dore zwei verschiedene ASCII-Code-Bereiche für Großbuchstaben verwendet, 
manche Textprogramme aber nur einen Bereich akzeptieren. In solchen Fällen 
hilft ein einfaches BASIC-Programm, das die entsprechenden Codes in ein für die 
Textverarbeitung akzeptables Format umsetzt. 


Als weitere Stärken von MULTIPLAN ist die variable Spaltenweite und die 
Fähigkeit zur Iteration zu nennen. Iteration ist das Wiederholen eines bestimm- 
ten Rechenvorgangs bis ein gewünschtes Ergebnis vorliegt. 


Das Programm arbeitet sehr zuverlässig und es ist schlechthin unmöglich, es 
versehentlich zum Absturz zu bringen. Benutzerfehler, wie zum Beispiel das 
Speichern eines Worksheets auf einem Disk-Laufwerk ohne eingelegte Diskette, 
das Ausdrucken ohne angeschlossenem Drucker oder das Speichern auf schreib- 
geschützten Disketten, werden abgefangen und führen nicht zum Programm- 
Crash. Auch ein „Panik-Knopf“ ist zu finden (RUN/STOP-Taste beim C 64). 
Diese Taste bringt einen immer zum Hauptmenü zurück. Das ist bei weitem je- 
doch noch nicht alles. Wenn man irgendwo nicht mehr weiter weiß, dann genügt 
ein einfacher Druck auf „?“, und MULTIPLAN liefert sofort alle nötigen Infor- 
mationen zu der unklaren Funktion. Diese Hilfstexte werden aus einer anderen 
MULTIPLAN-Bibliothek geholt („MP.HLP®). Wer mit MULTIPLAN noch wenig 
Erfahrung hat, sollte sich diese Bibliothek auch auf seine Datendisk kopieren, 
MULTIPLAN arbeitet auch ohne diese Bibliothek, aber dann ist das Abrufen 
von Hilfstexten und Erklärungen logischerweise nicht mehr möglich. 


Stärken: 


Leistung ist das Hauptmerkmal dieses Programms. Wenn etwas mit einem Tabel- 
lenkalkulationsprogramm machbar ist, dann kann man es mit MULTIPLAN ma- 
chen. Angenehm ist, daß man innerhalb des Ausdruckmenüs noch Kommandos 
an den Drucker senden kann, so daß eine besonders große Tabelle im 132-Zei- 
chen-Mode gedruckt werden kann. Ein weiteres Plus ist die Erhältlichkeit von 
Trainingsbüchern von Drittherstellern, hervorgerufen durch die Popularität dieses 
Programms. Das Bedienungshandbuch enthält u.a. einen Anhang in dem beschrie- 
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ben wird, wie man VISICALC-Kommandos in MULTIPLAN-Kommandos über- 
setzt. Dieser Anhang ist wichtig für Benutzer, die entweder von VISICALC auf 
MULTIPLAN umsteigen, oder die VISICALC tagsüber im Büro benutzen und 
sich Arbeit für ihren Heimcomputer mit nach Hause nehmen wollen. Auch Tabel- 
lenbeispiele, die in Anwendungsmagazinen in VISICALC-Format besprochen und 
abgedruckt sind, sind dadurch übersetzbar. 


Schwächen: 


Die enorme Leistung dieses Programms wird durch seine Langsamkeit erkauft. 
Jedes Mal, wenn ein neues Kommando ausgeführt wird, muß der dazu notwen- 
dige Programmcode vom Diskettenlaufwerk gelesen werden, was in einer etwa 
5 bis 6 Sekunden langen Pause resultiert. Auch beim Laden eines Arbeitsblattes 
wird alles geladen, jedes eingestellte Format, jedes Window, einfach alles. Da- 
durch wird auch das Laden und Speichern von Arbeitsblättern sehr langsam. 


Das Handbuch enthält so ziemlich alles, was es über MULTIPLAN zu sagen 
gibt. Leider ist es mit über 400 Seiten zu dick für den Durchschnittsbenutzer, 
der eine schnelle Übersicht über die Funktionen erwartet. 


Die Bildschirmfarben (Rand-, Hintergrund- und Zeichenfarbe) bleiben bestehen 
und können vom laufenden Programm aus nicht verändert werden. Man darf 
deshalb nicht vergessen, sich vor dem Start von MULTIPLAN eine angenehme 
Farbkombination einzustellen. 


Bei der C64-Version wird es auf dem 40-Zeichen breiten Bildschirm naturge- 
mäß etwas eng, und man braucht schon einige Phantasie, um sich vorzustellen, 
was geschieht, wenn man alle 8 möglichen Windows aufmachen will. Die 
C128-Version hat diesen Nachteil glücklicherweise nicht. 


Gesamtbeurteilung: 


Unserer Meinung nach ist Multiplan das stärkste Tabellenkalkulationsprogramm 
für die Commodore-Heimcomputer. Die hohe Leistung wird jedoch durch Ge- 
schwindigkeitseinbußen bezahlt, aber das sollte bei Heimanwendungen keine so 
große Rolle spielen. Dieses Programm, sowie das dazugehörige Handbuch ist je- 
doch nicht für den gelegentlichen Benutzer gemacht, sondern erfordert gründliche 
Einarbeitung (Einarbeitungszeit: etwa 2 Tage). Wer ein anderes, einfacher zu be- 
dienendes Programm kennt, das seine Wünsche voll befriedigt, der sollte auf 
MULTIPLAN verzichten. Wer aber ausgefallene Wünsche hat und hohe Lei- 
stungsfähigkeit bei seinen Kalkulationsaufgaben verlangt, der wird an MULTIPLAN 
wohl nicht vorbeikommen. 
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911.3 
Dateiverwaltung 





Neben der Textverarbeitung und dem Spieleinsatz wird ein Home-Computer am 
häufigsten für die Dateiverwaltung verwendet. Ob dies nun im kommerziellen 
Einsatz für Kundenadressen ist, oder im privaten Bereich für die Adressen und 
Telefonnummern von Bekannten oder noch weiter zur Verwaltung von Dias, 
Schallplatten, Tonbändern oder Briefmarken, ist den meisten käuflichen Stan- 
dardpaketen egal. Hier kann der Anwender seinen ganz speziellen Datenaufbau 
realisieren. 


Manche Dateiverwaltungen für Home-Computer nennen sich großspurig Daten- 
bank, obwohl weder die Hardware- noch Softwarevoraussetzungen vorhanden 
sind. Was eine Dateiverwaltung wirklich leistet, ist vom praktischen Einsatz und 
dem Anwendungsgebiet abhängig. Alles muß aufeinander abgestimmt sein und 
der Anwender eines C 64 oder C 128 braucht in den seltensten Fällen eine kompli- 
zierte Datenbank. 


Ergänzend zu der in diesem Buch vorgestellten umfassenden Dateiverwaltung 
möchten wir einige Standardpakete für Sie testen und vorstellen. 


9/1.3.1 


Multidata 
(Autor: Thomas Roth) 





Multidata ist ein kombiniertes Datenverwaltungs- und Textverarbeitungspro- 
gramm. e 


Auffällig ist zuerst, daß dieses Programm mehrsprachig in der Benutzerführung 
ist. Man kann zwischen deutsch, englisch, französisch, italienisch und spanisch 
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auswählen. Das Programm benötigt nicht zuletzt wegen dieser Mehrsprachigkeit 
eine ganze Diskettenseite auf der 1541. Dadurch ist - bei nur einem Laufwerk - 
ein häufiges und lästiges Wenden oder Wechseln der Diskette nicht zu umgehen, 
weil jedes neue Teilprogramm von der Programmdiskette gelesen werden muß. 


Mit Multidata können bis zu 16 Datenmerkmale je Datensatz frei festgelegt wer- 
den. Dazu legt man zuerst den Namen des Datenmerkmals (z.B. Nachname) 
fest und gibt dann die gewünschte Form ein. Als Form stehen ‚alpha‘ (Buch- 
staben), ‚numerisch‘ und ‚datum‘ zur Auswahl. Das Datenmerkmal kann bis zu 
25 Zeichen umfassen, was manchmal jedoch nicht ausreichend ist. Es können 
auch bestimmte Datenmerkmale als Indexfelder festgelegt werden. Das bedeutet, 
daß diese getrennt in einer Indexdatei abgespeichert werden und man später ei- 
nen Datensatz recht schnell anhand eines solchen Indexfeldes suchen kann. 


Bemerkenswert ist auch, daß immer, wenn eine bestimmte Datei zur Bearbeitung 
ausgesucht werden soll, alle Dateien von dieser Diskette auf dem Bildschirm 
aufgeführt und mit einer Nummer versehen werden. Nun muß man nur noch 
diese Nummer eingeben und erspart sich die Schreibarbeit für den ganzen Da- 
teinamen. Dies erscheint vielleicht im ersten Augenblick sehr unwichtig, es hat 
aber besonders den Vorteil, daß man einen Überblick von den auf der Diskette 
befindlichen Dateien erhält. 


Es besteht auch die Möglichkeit, die Datensätze in einer Datei zu sortieren. Als 
Sortierkriterium können mehrere Felder herangezogen werden, die dann mit 
unterschiedlichen Prioritäten beim Sortieren versehen werden. Neben dem üb- 
lichen aufsteigenden Sortieren ist auch ein abfallendes Sortieren möglich. 


Die Funktionstasten sind mit häufigen Funktionen wie ‚zurück zum Hauptmenü‘, 
‚zurück zum letzten Menü‘ oder ‚Ion ein/aus‘ belegt. Diese Belegung ist immer 
in den unteren zwei Bildschirmzeilen angezeigt. Das verkleinert zwar den effek- 
tiv nutzbaren Platz auf dem Bildschirm, aber dadurch und durch die gute Menü- 
führung ist für das Programm kaum eine Einarbeitungszeit nötig. Das Eingabe- 
system im allgemeinen ist benutzerfreundlich und einfach zu handhaben. 


Einen eigenen Programmteil gibt es für Liste/Aufstellung erstellen. Hiermit 
kann man die Daten oder Teile der Daten einer Datei auf dem Bildschirm oder 
auf dem Drucker ausgeben. Zuerst wird festgelegt, welche Datenmerkmale stell- 
vertretend für jeden Datensatz ausgegeben werden sollen. Dann wird festgelegt, 
nach welchen Auswahlkriterien die Datensätze ausgesucht werden sollen (Selek- 
tieren der Datensätze). Zum Beispiel könnte man hier festlegen, daß nur die 
Datensätze mit einem Geburtsdatum vor dem 01.01.1950 ausgegeben werden 
sollen. Beachtlich ist, daß einzelne dieser Kriterien auch mit ‚und‘ bzw. ‚oder‘ 
miteinander verbunden werden können. Danach wird noch gefragt, die Daten 
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in der Sortierung eines Indexfeldes oder in der Reihenfolge, die von einer Sor- 
tierung bestimmt ist, ausgegeben werden sollen. Dieser Programmteil ist sicher- 
lich einer der besten im ganzen Programm. 


Es besteht auch die Möglichkeit, eine ganze Diskette oder eine Datei von Multi- 
data aus auf ein anderes Laufwerk zu kopieren. Ein speichergepuffertes Kopieren 
mit nur einem Laufwerk, ist leider nicht möglich. 


Wie schon am Anfang erwähnt, besitzt Multidata auch die Möglichkeit, Texte zu 
verarbeiten. Hier können Texte erstellt, gespeichert, geändert und ausgedruckt 
werden. Dieser Programmteil ist aber nur mäßig ausgebildet. Die Texte müssen 
zeilenweise eingegeben werden und ein freies Bewegen im Text ist dadurch nicht 
möglich. Insgesamt erscheint dieser ganze Programmteil unbeholfen und umständ- 
lich. Jedes durchschnittliche Textverarbeitungsprogramm bietet mehr an Lei- 
stungsfähigkeit. 


Zusammenfassend ist zu bemerken, daß der Datenverarbeitungsteil recht gut 
und komfortabel ausgebildet ist, dagegen ist der Textverarbeitungsteil zu einfach. 
Auch die Rechengeschwindigkeit im Programm läßt zu wünschen übrig. Zusammen 
mit dem langsamen Diskettenlaufwerk wird es bald langweilig, mit diesem Pro- 
gramm zu arbeiten. 
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Maschinensprache-Befehle 
(Mnemonics) 





Im Rahmen der Übersichten dürfen natürlich auch die Maschinensprache-Befehle 
nicht fehlen. Dabei wollen wir zwei verschiedene Übersichten darstellen, zum einen 
eine alphabetische Befehlsübersicht, zum anderen eine Übersicht nach Opcodes ge- 
ordnet. 


Alphabetische Befehlsübersicht 
der Maschinensprache-Befehle 





In der folgenden Tabelle haben wir für Sie alle Maschinensprache-Befehle in alpha- 
betischer Reihenfolge zusammengefaßt. Um Ihnen ein möglichst einfaches Arbeiten 
mit dieser Übersicht zu gestatten, haben wir neben den Befehlskürzel auch die engli- 
sche Bedeutung (aus der sich meist die Abkürzung ergibt) und die deutsche Bedeu- 
tung eingetragen. Außerdem ist die Funktion angegeben, wobei als Variablen die in 
Kapitel 4/5 angegebenen Werte zugrunde liegen. 


Sehr wichtig für eine Übersicht ist natürlich die Behandlung der Flags. Um auch 
auf die Unterschiede der Beeinflussung eingehen zu können, haben wir auf drei 
Kürzel zurückgegriffen: 
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a — aktiv: Das Flag beeinflußt die Wirkungsweise des Befehls. 


b — beides: Das Flag beinflußt den Befehl, und wird durch den Befehl gegebe- 
nenfalls geändert. 


p — passiv: Das Flag wird gegebenenfalls durch den Befehl verändert. 


Als letztes haben wir die zu jedem Befehl möglichen Adressierungsarten aufgeführt, 
zu der auch die Symbolform, der entsprechende Opcode und die Anzahl der benö- 
tigten Bytes gehört. 
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